cpsa-4.4.4: tst/dhcr_um_implicit_auth.tst

(herald "DHCR: unified model (UM) original" (bound 30) (limit 4000)
  (goals-sat) (algebra diffie-hellman))

(comment "CPSA 4.4.4")
(comment "All input read from tst/dhcr_um_implicit_auth.scm")
(comment "Step count limited to 4000")
(comment "Strand count bounded at 30")

(defprotocol dhcr-um diffie-hellman
  (defrole init
    (vars (l x rndx) (beta eta expt) (a b name) (na nb data)
      (priv-stor locn))
    (trace (load priv-stor (pv a l))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) eta)
          (enc na nb a b
            (hash (exp (gen) (mul l beta)) (exp (gen) (mul x eta))))))
      (send nb))
    (uniq-orig na)
    (uniq-gen x)
    (absent (x l) (x beta))
    (facts (neq a b))
    (gen-st (pv a l)))
  (defrole resp
    (vars (l y rndx) (alpha chi expt) (a b name) (na nb data)
      (priv-stor locn))
    (trace (load priv-stor (pv b l))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l alpha)) (exp (gen) (mul y chi))))))
      (recv nb) (send "done"))
    (uniq-orig nb)
    (uniq-gen y)
    (absent (y l) (y alpha) (y chi))
    (facts (neq a b))
    (gen-st (pv b l)))
  (defrole ltx-gen
    (vars (self name) (l rndx) (priv-stor locn) (ignore mesg))
    (trace (load priv-stor ignore) (stor priv-stor (pv self l))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    (uniq-orig l))
  (defrole ltx-disclose
    (vars (self name) (l rndx) (priv-stor locn))
    (trace (load priv-stor (pv self l)) (stor priv-stor "nil") (send l))
    (gen-st (pv self l)))
  (defrule undisclosed-not-disclosed
    (forall ((z strd) (l rndx))
      (implies
        (and (fact undisclosed l) (p "ltx-disclose" z (idx 2))
          (p "ltx-disclose" "l" z l))
        (false))))
  (defrule eq-means-=
    (forall ((v1 v2 mesg)) (implies (fact eq v1 v2) (= v1 v2))))
  (defgenrule neqRl_indx
    (forall ((x indx)) (implies (fact neq x x) (false))))
  (defgenrule neqRl_strd
    (forall ((x strd)) (implies (fact neq x x) (false))))
  (defgenrule neqRl_mesg
    (forall ((x mesg)) (implies (fact neq x x) (false))))
  (defgenrule scissorsRule
    (forall ((z0 z1 z2 strd) (i0 i1 i2 indx))
      (implies
        (and (trans z0 i0) (trans z1 i1) (trans z2 i2)
          (leads-to z0 i0 z1 i1) (leads-to z0 i0 z2 i2))
        (and (= z1 z2) (= i1 i2)))))
  (defgenrule cakeRule
    (forall ((z0 z1 z2 strd) (i0 i1 i2 indx))
      (implies
        (and (trans z0 i0) (trans z1 i1) (leads-to z0 i0 z1 i1)
          (leads-to z0 i0 z2 i2) (prec z1 i1 z2 i2)) (false))))
  (defgenrule no-interruption
    (forall ((z0 z1 z2 strd) (i0 i1 i2 indx))
      (implies
        (and (leads-to z0 i0 z2 i2) (trans z1 i1)
          (same-locn z0 i0 z1 i1) (prec z0 i0 z1 i1) (prec z1 i1 z2 i2))
        (false))))
  (defgenrule shearsRule
    (forall ((z0 z1 z2 strd) (i0 i1 i2 indx))
      (implies
        (and (trans z0 i0) (trans z1 i1) (trans z2 i2)
          (leads-to z0 i0 z1 i1) (same-locn z0 i0 z2 i2)
          (prec z0 i0 z2 i2))
        (or (and (= z1 z2) (= i1 i2)) (prec z1 i1 z2 i2)))))
  (defgenrule invShearsRule
    (forall ((z0 z1 z2 strd) (i0 i1 i2 indx))
      (implies
        (and (trans z0 i0) (trans z1 i1) (same-locn z0 i0 z1 i1)
          (leads-to z1 i1 z2 i2) (prec z0 i0 z2 i2))
        (or (and (= z0 z1) (= i0 i1)) (prec z0 i0 z1 i1)))))
  (defgenrule fact-init-neq0
    (forall ((z strd) (b a name))
      (implies
        (and (p "init" z (idx 2)) (p "init" "a" z a) (p "init" "b" z b))
        (fact neq a b))))
  (defgenrule fact-resp-neq0
    (forall ((z strd) (b a name))
      (implies
        (and (p "resp" z (idx 2)) (p "resp" "a" z a) (p "resp" "b" z b))
        (fact neq a b))))
  (defgenrule trRl_ltx-gen-at-1
    (forall ((z strd))
      (implies (p "ltx-gen" z (idx 2)) (trans z (idx 1)))))
  (defgenrule trRl_ltx-gen-at-0
    (forall ((z strd))
      (implies (p "ltx-gen" z (idx 2)) (trans z (idx 0)))))
  (defgenrule trRl_ltx-disclose-at-1
    (forall ((z strd))
      (implies (p "ltx-disclose" z (idx 2)) (trans z (idx 1)))))
  (defgenrule trRl_ltx-disclose-at-0
    (forall ((z strd))
      (implies (p "ltx-disclose" z (idx 2)) (trans z (idx 0)))))
  (defgenrule gen-st-init-0
    (forall ((z strd) (a name) (l rndx))
      (implies
        (and (p "init" z (idx 1)) (p "init" "l" z l) (p "init" "a" z a))
        (gen-st (pv a l)))))
  (defgenrule gen-st-resp-0
    (forall ((z strd) (b name) (l rndx))
      (implies
        (and (p "resp" z (idx 1)) (p "resp" "l" z l) (p "resp" "b" z b))
        (gen-st (pv b l)))))
  (defgenrule gen-st-ltx-disclose-0
    (forall ((z strd) (self name) (l rndx))
      (implies
        (and (p "ltx-disclose" z (idx 1)) (p "ltx-disclose" "l" z l)
          (p "ltx-disclose" "self" z self)) (gen-st (pv self l)))))
  (lang (sig sign) (body (tuple 3)) (pv (tuple 2))))

(defskeleton dhcr-um
  (vars (na nb na-0 nb-0 data) (a b a-0 b-0 name) (pt pt-0 pval)
    (priv-stor priv-stor-0 locn) (ltxa ltxb x y rndx)
    (eta chi beta alpha expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l ltxa) (x x) (beta beta) (eta eta))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0)
  (uniq-gen x y)
  (absent (x ltxa) (x beta) (y ltxb) (y chi) (y alpha))
  (facts
    (eq (hash (exp (gen) (mul ltxa beta)) (exp (gen) (mul x eta)))
      (hash (exp (gen) (mul ltxb alpha)) (exp (gen) (mul y chi))))
    (neq ltxa ltxb) (undisclosed ltxa) (undisclosed beta)
    (undisclosed ltxb) (undisclosed alpha))
  (goals
    (forall
      ((zi zr strd) (ltxa ltxb x y rndx) (eta chi beta alpha expt)
        (a b a-0 b-0 name))
      (implies
        (and (p "init" zi 4) (p "init" "l" zi ltxa)
          (p "init" "beta" zi beta) (p "init" "x" zi x)
          (p "init" "eta" zi eta) (p "init" "a" zi a)
          (p "init" "b" zi b-0) (p "resp" zr 4) (p "resp" "l" zr ltxb)
          (p "resp" "alpha" zr alpha) (p "resp" "y" zr y)
          (p "resp" "chi" zr chi) (p "resp" "a" zr a-0)
          (p "resp" "b" zr b)
          (fact eq
            (hash (exp (exp (gen) beta) ltxa) (exp (exp (gen) eta) x))
            (hash (exp (exp (gen) alpha) ltxb) (exp (exp (gen) chi) y)))
          (non (privk "sig" b)) (non (privk "sig" a))
          (fact neq ltxa ltxb) (fact undisclosed ltxa)
          (fact undisclosed beta) (fact undisclosed ltxb)
          (fact undisclosed alpha))
        (and (= a-0 a) (= b-0 b) (= beta ltxb) (= alpha ltxa)))))
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul ltxb alpha))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a ltxa)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) eta)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul ltxa beta))
              (exp (gen) (mul x eta))))))))
  (label 0)
  (realized)
  (origs (na-0 (1 2)) (nb (0 3)))
  (ugens (x (1 2)) (y (0 3)))
  (comment "Not closed under rules"))

(defskeleton dhcr-um
  (vars (na nb na-0 nb-0 data) (a b a-0 b-0 name) (pt pt-0 pval)
    (priv-stor priv-stor-0 locn) (ltxa ltxb rndx) (alpha expt)
    (x y rndx) (chi expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l ltxa) (x x)
    (beta (mul (rec ltxa) ltxb alpha)) (eta (mul (rec x) y chi)))
  (precedes ((0 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0)
  (uniq-gen x y)
  (absent (x (mul (rec ltxa) ltxb alpha)) (x ltxa) (y ltxb) (y alpha)
    (y chi))
  (gen-st (pv a ltxa) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul ltxb alpha)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul ltxb alpha)) (exp (gen) (mul y chi))))
    (neq ltxa ltxb) (undisclosed ltxa)
    (undisclosed (mul (rec ltxa) ltxb alpha)) (undisclosed ltxb)
    (undisclosed alpha))
  (rule eq-means-= fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul ltxb alpha))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a ltxa)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec ltxa) ltxb alpha))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul ltxb alpha))
              (exp (gen) (mul y chi))))))))
  (label 1)
  (parent 0)
  (unrealized (0 0) (1 0) (1 3))
  (origs (na-0 (1 2)) (nb (0 3)))
  (ugens (x (1 2)) (y (0 3)))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (alpha expt) (x y rndx) (chi expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul ltxb alpha (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul ltxb alpha (rec l))) (x l) (y ltxb) (y alpha) (y chi))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul ltxb alpha)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul ltxb alpha)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul ltxb alpha (rec l)))
    (undisclosed ltxb) (undisclosed alpha))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-0 (cat pt-0 (pv a l))) (1 0))
  (strand-map 0 1)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul ltxb alpha))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul ltxb alpha (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul ltxb alpha))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l)))))
  (label 2)
  (parent 1)
  (unrealized (0 0) (1 1) (1 3))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (l rndx) (alpha chi-0 expt) (ltxb l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 3) (0 1)) ((3 3) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (x y-0) (y chi) (y (mul (rec ltxb) l-0 y-0)) (y ltxb)
    (y-0 l) (y-0 alpha) (y-0 chi-0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (1 1))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 3)
  (parent 2)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (l rndx) (beta expt) (ltxb l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 2) (0 1)) ((3 2) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (x x-0) (y chi) (y (mul (rec ltxb) l-0 x-0)) (y ltxb)
    (x-0 l) (x-0 beta))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (1 1))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-1 b-1 (exp (gen) x-0)))))
  (label 4)
  (parent 2)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (ltxb-0 ltxb) (alpha (mul (rec ltxb) l)) (l-0 l)) (gen)
    (1 1))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l)))))
  (label 5)
  (parent 2)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((2 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 3 ltx-gen 3) (exp (gen) l-0) (1 1))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 6)
  (parent 2)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 2) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (1 1))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 7)
  (parent 2)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (alpha expt) (x y rndx) (chi expt) (l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul ltxb alpha (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) (mul ltxb alpha (rec l) (rec w))) w))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 1) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul ltxb alpha (rec l))) (x l) (y ltxb) (y alpha) (y chi))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul ltxb alpha)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul ltxb alpha)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul ltxb alpha (rec l)))
    (undisclosed ltxb) (undisclosed alpha))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener
      (cat (exp (gen) (mul ltxb alpha (rec l) (rec w))) w))
    (exp (gen) (mul ltxb alpha (rec l))) (1 1))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul ltxb alpha))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul ltxb alpha (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul ltxb alpha))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) (mul ltxb alpha (rec l) (rec w))) w))
      (send (cat (exp (gen) (mul ltxb alpha (rec l) (rec w))) w))))
  (label 8)
  (parent 2)
  (unrealized (0 0) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 3) (0 1))
    ((3 3) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 4 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 9)
  (parent 3)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 3) (0 1)) ((3 3) (1 1))
    ((4 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x y-0) (y chi) (y (mul (rec ltxb) l y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 10)
  (parent 3)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 2) (0 1))
    ((3 2) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 4 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 11)
  (parent 4)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 2) (0 1)) ((3 2) (1 1))
    ((4 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x x-0) (y chi) (y (mul (rec ltxb) l x-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 12)
  (parent 4)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x l rndx) (chi expt) (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (one)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y chi) (y l-0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul chi y)))
      (hash (exp (gen) l) (exp (gen) (mul chi y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 3 0 resp 4)
    (enc na-0 nb-0 a-0 b-0
      (hash (exp (gen) l) (exp (gen) (mul y-0 chi)))) (1 3))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b (gen) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l)))))
  (label 13)
  (parent 5)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 priv-stor-1 locn)
    (x ltxb l l-0 y rndx) (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha (mul l (rec l-0)))
    (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (3 2)) ((1 2) (3 2)) ((2 1) (1 0)) ((3 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 l)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul y chi)) (y-1 (mul l (rec l-0))) (y-1 l-0)
    (y-1 (mul y chi y-0 (rec y-1))))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-0))
  (facts (neq b a-0) (neq a b-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) l) (exp (gen) (mul y chi y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) l) (exp (gen) (mul y chi y-0)))) (1 3))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi y-0))))))))
  (label 14)
  (parent 5)
  (unrealized (0 0) (0 1) (1 3) (3 0) (3 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (precedes ((0 3) (3 0)) ((2 1) (1 0)) ((3 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener (hash (exp (gen) l) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0 (hash (exp (gen) l) (exp (gen) (mul y chi))))
    (1 3))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi))))))
  (label 15)
  (parent 5)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x l rndx) (chi expt) (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l l (rec l-0))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x l) (y (mul l l (rec l-0))) (y chi) (y l-0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-0) (undisclosed (mul l l (rec l-0))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 3 0 resp 4)
    (enc na-0 nb-0 self b-0
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y-0 chi)))) (1 3))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l)))
      (recv (sig (body b (exp (gen) l) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l)))
      (send
        (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))))
  (label 16)
  (parent 6)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 priv-stor-1 locn)
    (x ltxb l l-0 y rndx) (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l l)) (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha (mul l l (rec l-0)))
    (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (3 2)) ((1 2) (3 2)) ((2 1) (1 0)) ((2 2) (1 1))
    ((3 3) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-0 l)
  (uniq-gen x y-0 y-1)
  (absent (x l) (y-0 (mul (rec ltxb) l l)) (y-0 ltxb) (y-0 (mul y chi))
    (y-1 (mul l l (rec l-0))) (y-1 l-0) (y-1 (mul y chi y-0 (rec y-1))))
  (gen-st (pv b ltxb) (pv b-0 l-0) (pv self l))
  (facts (neq b a) (neq self b-0) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 self b-0
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi y-0)))) (1 3))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig
          (body self (exp (gen) (mul l l (rec l-0))) (pubk "sig" self))
          (privk "sig" self)))
      (recv (cat na-0 self b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l))
              (exp (gen) (mul y chi y-0))))))))
  (label 17)
  (parent 6)
  (unrealized (0 0) (0 1) (1 3) (3 0) (3 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (3 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 self b-0
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))))
  (label 18)
  (parent 6)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 rndx) (chi expt)
    (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-0) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y chi) (y l-1))
  (gen-st (pv b l-1) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 4 0 resp 4)
    (enc na-0 nb-0 a-0 b-0
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y-0 chi)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 19)
  (parent 7)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (x ltxb l l-0 l-1 y rndx) (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l l-0)) (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-2) (l l-1) (y y-1)
    (alpha (mul l l-0 (rec l-1))) (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (4 2)) ((1 2) (4 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 l l-0)
  (uniq-gen x y-0 y-1)
  (absent (x l) (x l-0) (y-0 (mul (rec ltxb) l l-0)) (y-0 ltxb)
    (y-0 (mul y chi)) (y-1 (mul l l-0 (rec l-1))) (y-1 l-1)
    (y-1 (mul y chi y-0 (rec y-1))))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-1))
  (facts (neq b a-0) (neq a b-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi y-0)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 (pv b-0 l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0))
              (exp (gen) (mul y chi y-0))))))))
  (label 20)
  (parent 7)
  (unrealized (0 0) (0 1) (1 3) (4 0) (4 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 2) (1 1)) ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))))
  (label 21)
  (parent 7)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l rndx) (w expt)
    (ltxb rndx) (chi expt) (l-0 ltxb-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb-0) (y y) (alpha (mul l w (rec ltxb))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul l w (rec ltxb) (rec l-0) ltxb-0))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y) (mul l w (rec ltxb) (rec l-0) ltxb-0 (rec y))))
  (precedes ((0 3) (3 0)) ((2 1) (1 0)) ((3 1) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul l w (rec ltxb) (rec l-0) ltxb-0)) (x l-0)
    (y (mul l w (rec ltxb))) (y chi) (y ltxb-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb-0))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul l w (rec ltxb) ltxb-0))
        (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l w (rec ltxb) ltxb-0))
        (exp (gen) (mul chi y)))) (neq l-0 ltxb-0) (undisclosed l-0)
    (undisclosed (mul l w (rec ltxb) (rec l-0) ltxb-0))
    (undisclosed ltxb-0) (undisclosed (mul l w (rec ltxb))))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 4 0 resp 4) (exp (gen) y-0) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb-0)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul l w (rec ltxb))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w (rec ltxb) ltxb-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul l w (rec ltxb) (rec l-0) ltxb-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w (rec ltxb) ltxb-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y)
         (mul l w (rec ltxb) (rec l-0) ltxb-0 (rec y))))
      (send
        (cat (exp (gen) y)
          (mul l w (rec ltxb) (rec l-0) ltxb-0 (rec y))))))
  (label 22)
  (parent 8)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (l rndx) (beta expt) (ltxb l-0 rndx) (w expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul w x-0)) (y chi) (y (mul (rec ltxb) l-0 w x-0))
    (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 w x-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 w x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 w x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 w x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-1 b-1 (exp (gen) x-0)))))
  (label 23)
  (parent 8)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 1) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x w) (y chi) (y (mul (rec ltxb) l w)) (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (ltxb-0 ltxb) (alpha (mul (rec ltxb) l w)) (l-0 l)
      (w-0 w)) (gen) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 24)
  (parent 8)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (l rndx) (alpha chi-0 expt) (ltxb l-0 rndx) (w expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul w y-0)) (y chi) (y (mul (rec ltxb) l-0 w y-0))
    (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 w y-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 w y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 w y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 w y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 25)
  (parent 8)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (1 3)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 4 ltx-gen 3) (exp (gen) l-0) (3 0))
  (strand-map 0 1 3 2)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 26)
  (parent 8)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul w l-0)) (y chi) (y (mul (rec ltxb) l w l-0))
    (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 27)
  (parent 8)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a a-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha chi expt) (y l rndx) (chi-0 expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul y l (rec l-0))) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta y) (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l) (y y) (alpha alpha) (chi chi))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 3) (0 1)) ((3 3) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l)
  (uniq-gen x y y-0)
  (absent (x y) (x l) (y alpha) (y chi) (y l) (y-0 (mul y l (rec l-0)))
    (y-0 chi-0) (y-0 l-0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul y l)) (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul y l)) (exp (gen) (mul chi-0 y-0))))
    (neq l l-0) (undisclosed l) (undisclosed y) (undisclosed l-0)
    (undisclosed (mul y l (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 4 0 resp 4)
    (enc na-1 nb-1 a-1 b-0
      (hash (exp (gen) (mul y l)) (exp (gen) (mul y-1 chi-0)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul y l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul y l)) (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b (exp (gen) y) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na nb a b
            (hash (exp (gen) (mul y l)) (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y))))))))
  (label 28)
  (parent 9)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (ltxb y l l-0 y-0 rndx) (chi-0 expt) (y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-1) (alpha (mul (rec ltxb) y l)) (chi (mul y-0 chi-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y)
    (eta (mul (rec x) y-0 chi-0 y-1)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha (mul y l (rec l-0)))
    (chi (mul y-0 chi-0 y-1 (rec y-2))))
  (precedes ((0 3) (4 2)) ((1 2) (4 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 3) (0 1)) ((3 3) (1 1)) ((3 3) (4 1)) ((4 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 nb-1 l)
  (uniq-gen x y y-1 y-2)
  (absent (x y) (x l) (y alpha) (y chi) (y l) (y-1 (mul (rec ltxb) y l))
    (y-1 ltxb) (y-1 (mul y-0 chi-0)) (y-2 (mul y l (rec l-0))) (y-2 l-0)
    (y-2 (mul y-0 chi-0 y-1 (rec y-2))))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-0))
  (facts (neq a a-1) (neq b a-0) (neq a b-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y l)) (exp (gen) (mul y-0 chi-0 y-1)))
      (hash (exp (gen) (mul y l)) (exp (gen) (mul y-0 chi-0 y-1))))
    (neq l ltxb) (undisclosed l) (undisclosed y) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul y l)) (exp (gen) (mul y-0 chi-0 y-1))))
    (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y l)) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y-0 chi-0))))
      (send
        (cat (exp (gen) y-1)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y l))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y-0 chi-0 y-1))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y l))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig (body a (exp (gen) (mul y l (rec l-0))) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y-0 chi-0 y-1 (rec y-2)))))
      (send
        (cat (exp (gen) y-2)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y l))
              (exp (gen) (mul y-0 chi-0 y-1))))))))
  (label 29)
  (parent 9)
  (unrealized (0 0) (0 1) (1 3) (4 0) (4 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 3) (0 1))
    ((3 3) (1 1)) ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))))
  (label 30)
  (parent 9)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l l-0 y rndx) (chi-0 expt) (l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul l-0 y (rec l-1))) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta y) (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 3) (0 1))
    ((3 3) (1 1)) ((4 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (x y) (y alpha) (y chi) (y l)
    (y-0 (mul l-0 y (rec l-1))) (y-0 chi-0) (y-0 l-1))
  (gen-st (pv b l-1) (pv a l-0) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 y)) (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul l-0 y)) (exp (gen) (mul chi-0 y-0))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed y) (undisclosed l-1)
    (undisclosed (mul l-0 y (rec l-1))))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 0 resp 4)
    (enc na-1 nb-1 a-1 b-1
      (hash (exp (gen) (mul l-0 y)) (exp (gen) (mul y-1 chi-0)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 y (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b (exp (gen) y) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l)))))
  (label 31)
  (parent 10)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (alpha chi expt) (ltxb l l-0 y l-1 y-0 rndx) (chi-0 expt)
    (y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-1) (alpha (mul (rec ltxb) l-0 y))
    (chi (mul y-0 chi-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y)
    (eta (mul (rec x) y-0 chi-0 y-1)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-2) (l l-1) (y y-2)
    (alpha (mul l-0 y (rec l-1))) (chi (mul y-0 chi-0 y-1 (rec y-2))))
  (precedes ((0 3) (5 2)) ((1 2) (5 2)) ((2 1) (1 0)) ((3 3) (0 1))
    ((3 3) (1 1)) ((3 3) (5 1)) ((4 1) (3 0)) ((5 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 nb-1 l l-0)
  (uniq-gen x y y-1 y-2)
  (absent (x l-0) (x y) (y alpha) (y chi) (y l)
    (y-1 (mul (rec ltxb) l-0 y)) (y-1 ltxb) (y-1 (mul y-0 chi-0))
    (y-2 (mul l-0 y (rec l-1))) (y-2 l-1)
    (y-2 (mul y-0 chi-0 y-1 (rec y-2))))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-0 l-1) (pv b-1 l))
  (facts (neq b-1 a-1) (neq b a-0) (neq a b-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y)) (exp (gen) (mul y-0 chi-0 y-1)))
      (hash (exp (gen) (mul l-0 y)) (exp (gen) (mul y-0 chi-0 y-1))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 y)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-0 y)) (exp (gen) (mul y-0 chi-0 y-1))))
    (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y)) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y-0 chi-0))))
      (send
        (cat (exp (gen) y-1)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y-0 chi-0 y-1))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((load priv-stor-2 (cat pt-4 (pv b-0 l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 y (rec l-1))) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y-0 chi-0 y-1 (rec y-2)))))
      (send
        (cat (exp (gen) y-2)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y))
              (exp (gen) (mul y-0 chi-0 y-1))))))))
  (label 32)
  (parent 10)
  (unrealized (0 0) (0 1) (1 3) (5 0) (5 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 3) (0 1)) ((3 3) (1 1))
    ((4 1) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x y-0) (y chi) (y (mul (rec ltxb) l y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))))
  (label 33)
  (parent 10)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 data) (b a b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (beta expt) (x-0 l rndx) (chi expt) (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul x-0 l (rec l-0))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta x-0) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 2) (0 1)) ((3 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l)
  (uniq-gen x x-0 y)
  (absent (x x-0) (x l) (x-0 beta) (x-0 l) (y (mul x-0 l (rec l-0)))
    (y chi) (y l-0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed x-0) (undisclosed l-0)
    (undisclosed (mul x-0 l (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 4 0 resp 4)
    (enc na-1 nb-0 a-0 b-1
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y-0 chi)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul x-0 l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) x-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0)))))
  (label 34)
  (parent 11)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 priv-stor-1 locn)
    (x rndx) (beta expt) (ltxb x-0 l l-0 y rndx) (chi expt)
    (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) x-0 l)) (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1)
    (alpha (mul x-0 l (rec l-0))) (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (4 2)) ((1 2) (4 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 2) (0 1)) ((3 2) (1 1)) ((3 2) (4 1)) ((4 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 na-1 l)
  (uniq-gen x x-0 y-0 y-1)
  (absent (x x-0) (x l) (x-0 beta) (x-0 l) (y-0 (mul (rec ltxb) x-0 l))
    (y-0 ltxb) (y-0 (mul y chi)) (y-1 (mul x-0 l (rec l-0))) (y-1 l-0)
    (y-1 (mul y chi y-0 (rec y-1))))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-0))
  (facts (neq a b-1) (neq b a-0) (neq a b-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi y-0)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig (body a (exp (gen) (mul x-0 l (rec l-0))) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l))
              (exp (gen) (mul y chi y-0))))))))
  (label 35)
  (parent 11)
  (unrealized (0 0) (0 1) (1 3) (4 0) (4 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 2) (0 1))
    ((3 2) (1 1)) ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))))
  (label 36)
  (parent 11)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l l-0 x-0 rndx) (chi expt) (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 x-0 (rec l-1))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta x-0) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (0 1))
    ((3 2) (1 1)) ((4 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-0)
  (uniq-gen x x-0 y)
  (absent (x l-0) (x x-0) (x-0 beta) (x-0 l) (y (mul l-0 x-0 (rec l-1)))
    (y chi) (y l-1))
  (gen-st (pv b l-1) (pv a l-0) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed x-0) (undisclosed l-1)
    (undisclosed (mul l-0 x-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 0 resp 4)
    (enc na-1 nb-0 a-1 b-1
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y-0 chi)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 x-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) x-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 37)
  (parent 12)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (beta expt) (ltxb l l-0 x-0 l-1 y rndx) (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l-0 x-0)) (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-2) (l l-1) (y y-1)
    (alpha (mul l-0 x-0 (rec l-1))) (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (5 2)) ((1 2) (5 2)) ((2 1) (1 0)) ((3 2) (0 1))
    ((3 2) (1 1)) ((3 2) (5 1)) ((4 1) (3 0)) ((5 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 na-1 l l-0)
  (uniq-gen x x-0 y-0 y-1)
  (absent (x l-0) (x x-0) (x-0 beta) (x-0 l)
    (y-0 (mul (rec ltxb) l-0 x-0)) (y-0 ltxb) (y-0 (mul y chi))
    (y-1 (mul l-0 x-0 (rec l-1))) (y-1 l-1)
    (y-1 (mul y chi y-0 (rec y-1))))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-0 l-1) (pv a-1 l))
  (facts (neq a-1 b-1) (neq b a-0) (neq a b-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi y-0))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi y-0))))
    (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((load priv-stor-2 (cat pt-4 (pv b-0 l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 x-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0))
              (exp (gen) (mul y chi y-0))))))))
  (label 38)
  (parent 12)
  (unrealized (0 0) (0 1) (1 3) (5 0) (5 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 2) (0 1)) ((3 2) (1 1))
    ((4 1) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x x-0) (y chi) (y (mul (rec ltxb) l x-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))))
  (label 39)
  (parent 12)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener (cat (exp (gen) l) (exp (gen) (mul y chi))))
    (hash (exp (gen) l) (exp (gen) (mul y chi))) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi))))))
  (label 40)
  (parent 15)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))) (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))))
  (label 41)
  (parent 18)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (chi expt)
    (l-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y (mul l (rec l-0) l-1)) (y chi) (y l-0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 4 3 ltx-gen 3)
    (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 42)
  (parent 19)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 2) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))))
  (label 43)
  (parent 21)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (w expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 5 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 44)
  (parent 23)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul w x-0)) (y chi) (y (mul (rec ltxb) l w x-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 45)
  (parent 23)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x l rndx) (alpha chi expt)
    (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) alpha l-0)))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y chi) (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 4 0 resp 4)
    (enc na-0 nb-0 a-0 b-0
      (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y-0 chi))))
    (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul (rec l) alpha l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) alpha l-0)))
      (send (cat (gen) (mul (rec l) alpha l-0)))))
  (label 46)
  (parent 24)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 priv-stor-1 locn)
    (x ltxb l l-0 rndx) (alpha expt) (y rndx) (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l-0 alpha))
    (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0 alpha))
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) l-0 alpha)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha)
    (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (4 2)) ((1 2) (4 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 l)
  (uniq-gen x y-0 y-1)
  (absent (x (mul (rec l) l-0 alpha)) (x l)
    (y-0 (mul (rec ltxb) l-0 alpha)) (y-0 ltxb) (y-0 (mul y chi))
    (y-1 l-0) (y-1 alpha) (y-1 (mul y chi y-0 (rec y-1))))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-0))
  (facts (neq b a-0) (neq a b-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) l-0 alpha))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 alpha)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0))))
    (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 alpha))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) l-0 alpha))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) l-0 alpha)))
      (send (cat (gen) (mul (rec l) l-0 alpha))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0))))))))
  (label 47)
  (parent 24)
  (unrealized (0 0) (1 1) (1 3) (3 0) (4 0) (4 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x w) (y chi) (y (mul (rec ltxb) l w)) (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))))
  (label 48)
  (parent 24)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (w expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 5 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 49)
  (parent 25)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul w y-0)) (y chi) (y (mul (rec ltxb) l w y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 50)
  (parent 25)
  (unrealized (0 0) (0 1) (1 3))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x l rndx) (alpha chi expt)
    (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta (mul (rec x) chi y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y chi) (y l-0))
  (precur (2 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((3 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 4 0 resp 4)
    (enc na-0 nb-0 self b-0
      (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y-0 chi))))
    (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul (rec l) alpha l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l)))
      (send
        (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))))
  (label 51)
  (parent 26)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 priv-stor-1 locn)
    (x ltxb l l-0 rndx) (alpha expt) (y rndx) (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l-0 alpha))
    (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0 alpha))
    (eta (mul (rec x) y chi y-0)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) l-0 alpha)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha)
    (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (4 2)) ((1 2) (4 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)) ((4 3) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-0 l)
  (uniq-gen x y-0 y-1)
  (absent (x (mul (rec l) l-0 alpha)) (x l)
    (y-0 (mul (rec ltxb) l-0 alpha)) (y-0 ltxb) (y-0 (mul y chi))
    (y-1 l-0) (y-1 alpha) (y-1 (mul y chi y-0 (rec y-1))))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv b-0 l-0) (pv self l))
  (facts (neq b a) (neq self b-0) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) l-0 alpha))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 alpha)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 self b-0
      (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0))))
    (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 alpha)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) l-0 alpha))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) l-0 alpha)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) l-0 alpha))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig (body self (exp (gen) alpha) (pubk "sig" self))
          (privk "sig" self)))
      (recv (cat na-0 self b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0))))))))
  (label 52)
  (parent 26)
  (unrealized (0 0) (1 1) (1 3) (2 0) (4 0) (4 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (4 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 self b-0
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))))
  (label 53)
  (parent 26)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 rndx)
    (alpha chi expt) (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul (rec l) alpha l-1))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-1)) (x l) (y alpha) (y chi) (y l-1))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul (rec l) alpha l-1))
    (undisclosed l-1) (undisclosed alpha))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 0 resp 4)
    (enc na-0 nb-0 a-0 b-0
      (hash (exp (gen) (mul l-2 alpha)) (exp (gen) (mul y-0 chi))))
    (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul (rec l) alpha l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) alpha l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 54)
  (parent 27)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (x ltxb l l-0 l-1 rndx) (alpha expt) (y rndx) (chi expt)
    (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l-1 alpha))
    (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-1 alpha))
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) l-1 alpha)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha)
    (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (5 2)) ((1 2) (5 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 l l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (mul (rec l) l-1 alpha)) (x l)
    (y-0 (mul (rec ltxb) l-1 alpha)) (y-0 ltxb) (y-0 (mul y chi))
    (y-1 l-1) (y-1 alpha) (y-1 (mul y chi y-0 (rec y-1))))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-1))
  (facts (neq b a-0) (neq a b-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y chi y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) l-1 alpha))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 alpha)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y chi y-0))))
    (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 alpha))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) l-1 alpha))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) l-1 alpha)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) l-1 alpha))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 (pv b-0 l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul y chi y-0))))))))
  (label 55)
  (parent 27)
  (unrealized (0 0) (1 1) (1 3) (3 0) (5 0) (5 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul w l-0)) (y chi) (y (mul (rec ltxb) l w l-0))
    (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))))
  (label 56)
  (parent 27)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 3) (0 1))
    ((3 3) (1 1)) ((4 1) (1 3)) ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))))
  (label 57)
  (parent 30)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 3) (0 1)) ((3 3) (1 1))
    ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x y-0) (y chi) (y (mul (rec ltxb) l y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))))
  (label 58)
  (parent 33)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 2) (0 1))
    ((3 2) (1 1)) ((4 1) (1 3)) ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))))
  (label 59)
  (parent 36)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 2) (0 1)) ((3 2) (1 1))
    ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x x-0) (y chi) (y (mul (rec ltxb) l x-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))))
  (label 60)
  (parent 39)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (3 0)) ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (1 0))
    ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 5 ltx-gen 3) (exp (gen) l) (4 0))
  (strand-map 0 1 4 2 3)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 61)
  (parent 40)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l (rec w))) w))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul l (rec w))) w)) (exp (gen) l)
    (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l (rec w))) w))
      (send (cat (exp (gen) (mul l (rec w))) w))))
  (label 62)
  (parent 40)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l (rec w))) w))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul l l (rec w))) w))
    (exp (gen) (mul l l)) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l (rec w))) w))
      (send (cat (exp (gen) (mul l l (rec w))) w))))
  (label 63)
  (parent 41)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1) (y x))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 4 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 64)
  (parent 42)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (chi expt)
    (l-0 y l-1 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y (mul l (rec l-0) l-1)) (y chi) (y l-0))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
    (exp (gen) (mul (rec x) chi y)) (1 3))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) chi y (rec w))) w))))
  (label 65)
  (parent 42)
  (unrealized (0 0) (0 1) (4 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (6 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) l) l-0))
    (exp (gen) (mul l l-0)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0))))
  (label 66)
  (parent 43)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) l-0) l))
    (exp (gen) (mul l l-0)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) l)) (send (cat (exp (gen) l-0) l))))
  (label 67)
  (parent 43)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 data) (b a b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (beta expt) (x-0 l rndx) (alpha chi expt) (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) alpha l-0)))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l)
  (uniq-gen x x-0 y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (x-0 beta) (x-0 l) (y alpha)
    (y chi) (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 0 resp 4)
    (enc na-1 nb-0 a-0 b-1
      (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y-0 chi))))
    (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul (rec l) alpha l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) alpha l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0)))))
  (label 68)
  (parent 44)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 priv-stor-1 locn)
    (x rndx) (beta expt) (ltxb x-0 l l-0 rndx) (alpha expt) (y rndx)
    (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l-0 alpha))
    (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0 alpha))
    (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) l-0 alpha)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha)
    (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (5 2)) ((1 2) (5 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 na-1 l)
  (uniq-gen x x-0 y-0 y-1)
  (absent (x (mul (rec l) l-0 alpha)) (x l) (x-0 beta) (x-0 l)
    (y-0 (mul (rec ltxb) l-0 alpha)) (y-0 ltxb) (y-0 (mul y chi))
    (y-1 l-0) (y-1 alpha) (y-1 (mul y chi y-0 (rec y-1))))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-0))
  (facts (neq a b-1) (neq b a-0) (neq a b-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) l-0 alpha))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 alpha)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-0 alpha)) (exp (gen) (mul y chi y-0))))
    (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 alpha))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) l-0 alpha))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) l-0 alpha)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) l-0 alpha))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul y chi y-0))))))))
  (label 69)
  (parent 44)
  (unrealized (0 0) (1 1) (1 3) (3 0) (5 0) (5 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (w expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))))
  (label 70)
  (parent 44)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l l-0 x-0 rndx) (alpha chi expt) (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul (rec l-0) alpha l-1))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) alpha l-1)))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-0)
  (uniq-gen x x-0 y)
  (absent (x (mul (rec l-0) alpha l-1)) (x l-0) (x-0 beta) (x-0 l)
    (y alpha) (y chi) (y l-1))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) alpha l-1)) (undisclosed l-1)
    (undisclosed alpha))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 6 0 resp 4)
    (enc na-1 nb-0 a-1 b-1
      (hash (exp (gen) (mul l-2 alpha)) (exp (gen) (mul y-0 chi))))
    (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l-0) alpha l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) alpha l-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) alpha l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 71)
  (parent 45)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (beta expt) (ltxb l l-0 x-0 l-1 rndx) (alpha expt) (y rndx)
    (chi expt) (y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l-1 alpha))
    (chi (mul y chi)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l-0) l-1 alpha)) (eta (mul (rec x) y chi y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) l-1 alpha)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha)
    (chi (mul y chi y-0 (rec y-1))))
  (precedes ((0 3) (6 2)) ((1 2) (6 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 na-1 l l-0)
  (uniq-gen x x-0 y-0 y-1)
  (absent (x (mul (rec l-0) l-1 alpha)) (x l-0) (x-0 beta) (x-0 l)
    (y-0 (mul (rec ltxb) l-1 alpha)) (y-0 ltxb) (y-0 (mul y chi))
    (y-1 l-1) (y-1 alpha) (y-1 (mul y chi y-0 (rec y-1))))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-0 l-1) (pv a-1 l))
  (facts (neq a-1 b-1) (neq b a-0) (neq a b-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y chi y-0)))
      (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y chi y-0))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1 alpha)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-1 alpha)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-1 alpha)) (exp (gen) (mul y chi y-0))))
    (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 alpha))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) l-1 alpha))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul y chi y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) l-1 alpha)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) l-1 alpha))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((load priv-stor-2 (cat pt-4 (pv b-0 l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y chi y-0 (rec y-1)))))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul y chi y-0))))))))
  (label 72)
  (parent 45)
  (unrealized (0 0) (1 1) (1 3) (3 0) (6 0) (6 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul w x-0)) (y chi) (y (mul (rec ltxb) l w x-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))))
  (label 73)
  (parent 45)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (chi expt) (y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta l-0) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 1) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l-0)
  (uniq-gen x y)
  (absent (x l-0) (y chi) (y (mul (rec l) l-0 l-0)) (y l))
  (precur (3 0))
  (gen-st (pv b l) (pv a l-0))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul chi y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 4 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) l-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0))))
  (label 74)
  (parent 46)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (chi expt) (y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (one)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (one)))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul l (rec l-0))) (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul chi y)))
      (hash (exp (gen) l) (exp (gen) (mul chi y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (alpha (mul l (rec l-0))) (l-2 l-0)) (one)
    (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b (gen) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one)))))
  (label 75)
  (parent 46)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-1) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l-1)) (send (cat (gen) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))))
  (label 76)
  (parent 46)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (alpha chi expt)
    (l y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul alpha l)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul alpha l)))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y chi) (y l-1) (l-0 (mul alpha l)))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul alpha l)) (mul alpha l)
    (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) (mul alpha l)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l)))))
  (label 77)
  (parent 46)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x l rndx) (alpha chi expt)
    (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) alpha l-0)))
  (deflistener l)
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y chi) (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) alpha l-0)
    (3 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul (rec l) alpha l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) alpha l-0)))
      (send (cat (gen) (mul (rec l) alpha l-0)))) ((recv l) (send l)))
  (label 78)
  (parent 46)
  (unrealized (0 0) (0 1) (1 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x w) (y chi) (y (mul (rec ltxb) l w)) (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener (cat (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w)) (exp (gen) (mul y chi))))))
  (label 79)
  (parent 48)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a a-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha chi expt) (y l rndx) (alpha-0 chi-0 expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha alpha-0) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul (rec l) alpha-0 l-0))
    (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y) (mul (rec y) (rec l) alpha-0 l-0)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l) (y y) (alpha alpha) (chi chi))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) alpha-0 l-0)) (x l) (y alpha) (y chi) (y l)
    (y-0 alpha-0) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha-0 l-0)) (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul alpha-0 l-0)) (exp (gen) (mul chi-0 y-0))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha-0 l-0))
    (undisclosed l-0) (undisclosed alpha-0))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 0 resp 4)
    (enc na-1 nb-1 a-1 b-0
      (hash (exp (gen) (mul l-1 alpha-0)) (exp (gen) (mul y-1 chi-0))))
    (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha-0) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l) alpha-0 l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na nb a b
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y) (mul (rec y) (rec l) alpha-0 l-0)))
      (send (cat (exp (gen) y) (mul (rec y) (rec l) alpha-0 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y))))))))
  (label 80)
  (parent 49)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (ltxb y l l-0 rndx) (alpha-0 expt) (y-0 rndx) (chi-0 expt)
    (y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-1) (alpha (mul (rec ltxb) l-0 alpha-0))
    (chi (mul y-0 chi-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0 alpha-0))
    (eta (mul (rec x) y-0 chi-0 y-1)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y) (mul (rec y) (rec l) l-0 alpha-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha-0)
    (chi (mul y-0 chi-0 y-1 (rec y-2))))
  (precedes ((0 3) (5 2)) ((1 2) (5 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 nb-1 l)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec l) l-0 alpha-0)) (x l) (y alpha) (y chi) (y l)
    (y-1 (mul (rec ltxb) l-0 alpha-0)) (y-1 ltxb) (y-1 (mul y-0 chi-0))
    (y-2 l-0) (y-2 alpha-0) (y-2 (mul y-0 chi-0 y-1 (rec y-2))))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-0 l-0))
  (facts (neq a a-1) (neq b a-0) (neq a b-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul l-0 alpha-0))
        (exp (gen) (mul y-0 chi-0 y-1)))
      (hash (exp (gen) (mul l-0 alpha-0))
        (exp (gen) (mul y-0 chi-0 y-1)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec l) l-0 alpha-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 alpha-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-0 alpha-0))
        (exp (gen) (mul y-0 chi-0 y-1)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 alpha-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y-0 chi-0))))
      (send
        (cat (exp (gen) y-1)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 alpha-0))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) l-0 alpha-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y-0 chi-0 y-1))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 alpha-0))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y) (mul (rec y) (rec l) l-0 alpha-0)))
      (send (cat (exp (gen) y) (mul (rec y) (rec l) l-0 alpha-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l-0)))
      (recv
        (sig (body a (exp (gen) alpha-0) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y-0 chi-0 y-1 (rec y-2)))))
      (send
        (cat (exp (gen) y-2)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 alpha-0))
              (exp (gen) (mul y-0 chi-0 y-1))))))))
  (label 81)
  (parent 49)
  (unrealized (0 0) (1 1) (1 3) (3 0) (5 0) (5 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (w expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))))
  (label 82)
  (parent 49)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l l-0 y rndx) (alpha-0 chi-0 expt) (l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha alpha-0) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul (rec l-0) alpha-0 l-1))
    (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec l-0) (rec y) alpha-0 l-1)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) alpha-0 l-1)) (x l-0) (y alpha) (y chi)
    (y l) (y-0 alpha-0) (y-0 chi-0) (y-0 l-1))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha-0 l-1)) (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul alpha-0 l-1)) (exp (gen) (mul chi-0 y-0))))
    (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) alpha-0 l-1)) (undisclosed l-1)
    (undisclosed alpha-0))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 6 0 resp 4)
    (enc na-1 nb-1 a-1 b-1
      (hash (exp (gen) (mul l-2 alpha-0)) (exp (gen) (mul y-1 chi-0))))
    (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) alpha-0) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l-0) alpha-0 l-1))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na nb a b
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y) (mul (rec l-0) (rec y) alpha-0 l-1)))
      (send (cat (exp (gen) y) (mul (rec l-0) (rec y) alpha-0 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l)))))
  (label 83)
  (parent 50)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (alpha chi expt) (ltxb l l-0 y l-1 rndx) (alpha-0 expt) (y-0 rndx)
    (chi-0 expt) (y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-1) (alpha (mul (rec ltxb) l-1 alpha-0))
    (chi (mul y-0 chi-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l-0) l-1 alpha-0))
    (eta (mul (rec x) y-0 chi-0 y-1)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec l-0) (rec y) l-1 alpha-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-2) (l l-1) (y y-2) (alpha alpha-0)
    (chi (mul y-0 chi-0 y-1 (rec y-2))))
  (precedes ((0 3) (6 2)) ((1 2) (6 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 3) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-0 nb-1 l l-0)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec l-0) l-1 alpha-0)) (x l-0) (y alpha) (y chi)
    (y l) (y-1 (mul (rec ltxb) l-1 alpha-0)) (y-1 ltxb)
    (y-1 (mul y-0 chi-0)) (y-2 l-1) (y-2 alpha-0)
    (y-2 (mul y-0 chi-0 y-1 (rec y-2))))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-0 l-1) (pv b-1 l))
  (facts (neq b-1 a-1) (neq b a-0) (neq a b-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul l-1 alpha-0))
        (exp (gen) (mul y-0 chi-0 y-1)))
      (hash (exp (gen) (mul l-1 alpha-0))
        (exp (gen) (mul y-0 chi-0 y-1)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) l-1 alpha-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 alpha-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand resp 4)
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l-1 alpha-0))
        (exp (gen) (mul y-0 chi-0 y-1)))) (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 alpha-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) (mul y-0 chi-0))))
      (send
        (cat (exp (gen) y-1)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 alpha-0))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) l-1 alpha-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y-0 chi-0 y-1))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 alpha-0))
              (exp (gen) (mul y-0 chi-0 y-1)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y) (mul (rec l-0) (rec y) l-1 alpha-0)))
      (send (cat (exp (gen) y) (mul (rec l-0) (rec y) l-1 alpha-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((load priv-stor-2 (cat pt-4 (pv b-0 l-1)))
      (recv
        (sig (body a (exp (gen) alpha-0) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na-0 a b-0 (exp (gen) (mul y-0 chi-0 y-1 (rec y-2)))))
      (send
        (cat (exp (gen) y-2)
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 alpha-0))
              (exp (gen) (mul y-0 chi-0 y-1))))))))
  (label 84)
  (parent 50)
  (unrealized (0 0) (1 1) (1 3) (3 0) (6 0) (6 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul w y-0)) (y chi) (y (mul (rec ltxb) l w y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
    (enc na-0 nb-0 a b-0
      (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))) (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))))
  (label 85)
  (parent 50)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (chi expt) (y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul l-0 l-0)) (eta (mul (rec x) chi y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l-0)
  (uniq-gen x y)
  (absent (x l-0) (x (mul l-0 l-0)) (y chi)
    (y (mul (rec l) l-0 l-0 l-0)) (y l))
  (precur (2 0))
  (gen-st (pv b l) (pv a l-0))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul chi y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed (mul l-0 l-0))
    (undisclosed l) (undisclosed (mul (rec l) l-0 l-0 l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 4 3 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) l-0 l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) (mul l-0 l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l-0)))
      (send
        (sig (body a (exp (gen) l-0) (pubk "sig" a)) (privk "sig" a)))))
  (label 86)
  (parent 51)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (chi expt) (y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l l (rec l-0))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l) (eta (mul (rec x) chi y)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul l l (rec l-0))) (y l-0))
  (precur (2 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-0) (undisclosed (mul l l (rec l-0))))
  (leads-to ((3 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (alpha (mul l l (rec l-0))) (l-2 l-0)) (one)
    (2 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l)))
      (recv (sig (body b (exp (gen) l) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l)))
      (send
        (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))))
  (label 87)
  (parent 51)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul l l-1)) (eta (mul (rec x) chi y)))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)) ((4 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l l-1)) (y chi) (y (mul l l (rec l-0) l-1))
    (y l-0))
  (precur (2 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l l-1))
    (undisclosed l-0) (undisclosed (mul l l (rec l-0) l-1)))
  (leads-to ((3 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul l l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l)))
      (send
        (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))))
  (label 88)
  (parent 51)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (alpha chi expt)
    (l y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 l-0 (rec l-1))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul alpha l l-0)) (eta (mul (rec x) chi y)))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l l-0)) (x l-0)
    (y (mul alpha l l-0 l-0 (rec l-1))) (y chi) (y l-1)
    (l-0 (mul alpha l)))
  (precur (2 0))
  (gen-st (pv b l-1) (pv a l-0))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0 l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l l-0 l-0)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l l-0))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul alpha l)) (mul alpha l)
    (2 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0 l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) (mul alpha l l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0 l-0))
              (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l-0)))
      (send
        (sig (body a (exp (gen) l-0) (pubk "sig" a)) (privk "sig" a)))))
  (label 89)
  (parent 51)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb data) (b a name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x l rndx) (alpha chi expt)
    (l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta (mul (rec x) chi y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener l)
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 1) (4 0)) ((3 2) (2 0)) ((4 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y chi) (y l-0))
  (precur (2 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((3 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l)
    (mul (rec l) (rec l) alpha l-0) (2 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul (rec l) alpha l-0)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l)))
      (send
        (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a))))
    ((recv l) (send l)))
  (label 90)
  (parent 51)
  (unrealized (0 0) (0 1) (1 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))))
  (label 91)
  (parent 53)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1 l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul l-1 l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l-1 l-1)) (y chi) (y (mul l (rec l-0) l-1 l-1))
    (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-1 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 4 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul l-1 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 92)
  (parent 54)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1 l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul l l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 1) (1 1)) ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x (mul l l-1)) (x l-1) (y chi) (y (mul l (rec l-0) l-1 l-1))
    (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l-1))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul chi y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed (mul l l-1))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-1 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b (exp (gen) (mul l l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 93)
  (parent 54)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-0) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul l l-0 (rec l-1))) (y l-1))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l) (l-3 l-0) (alpha (mul l l-0 (rec l-1)))
      (l-4 l-1)) (one) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 94)
  (parent 54)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data)
    (b a self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (chi expt) (y l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1) l-2)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul l-0 l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-2))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-0 l-2)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-2)) (y chi) (y (mul l l-0 (rec l-1) l-2))
    (y l-1))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-2))
    (undisclosed l-1) (undisclosed (mul l l-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 (rec l-1) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul l-0 l-2)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-2)) (send (cat (exp (gen) l-0) l-2)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-2)))))
  (label 95)
  (parent 54)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (alpha chi expt)
    (l-0 y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul (rec l) alpha l-0 l-2))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y chi) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (3 0))
  (gen-st (pv b l-3) (pv a l-1))
  (facts (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul chi y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l) alpha l-0))
    (mul (rec l) alpha l-0) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 96)
  (parent 54)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (alpha chi expt)
    (l-0 y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul (rec l) alpha l-0 l-2))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y chi) (y l-3)
    (l-1 (mul (rec l) alpha l-0)))
  (precur (3 0))
  (gen-st (pv b l-3) (pv a l-1))
  (facts (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul chi y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) alpha l-0))
    (mul (rec l) alpha l-0) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 97)
  (parent 54)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul w l-0)) (y chi) (y (mul (rec ltxb) l w l-0))
    (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))))
  (label 98)
  (parent 56)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 3) (0 1))
    ((3 3) (1 1)) ((3 3) (6 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y-0) l))
    (exp (gen) (mul y-0 l)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l)) (send (cat (exp (gen) y-0) l))))
  (label 99)
  (parent 57)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) y-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 3) (0 1))
    ((3 3) (1 1)) ((3 3) (6 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) l) y-0))
    (exp (gen) (mul y-0 l)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) y-0)) (send (cat (exp (gen) l) y-0))))
  (label 100)
  (parent 57)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) y-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 3) (0 1)) ((3 3) (1 1))
    ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x y-0) (y chi) (y (mul (rec ltxb) l y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) l) y-0))
    (exp (gen) (mul l y-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) y-0)) (send (cat (exp (gen) l) y-0))))
  (label 101)
  (parent 58)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 3) (0 1))
    ((3 3) (1 1)) ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x y-0) (y chi) (y (mul (rec ltxb) l y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y-0) l))
    (exp (gen) (mul l y-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l)) (send (cat (exp (gen) y-0) l))))
  (label 102)
  (parent 58)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 2) (0 1))
    ((3 2) (1 1)) ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x-0) l))
    (exp (gen) (mul x-0 l)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l)) (send (cat (exp (gen) x-0) l))))
  (label 103)
  (parent 59)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) x-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 2) (0 1))
    ((3 2) (1 1)) ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) l) x-0))
    (exp (gen) (mul x-0 l)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) x-0)) (send (cat (exp (gen) l) x-0))))
  (label 104)
  (parent 59)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) x-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 2) (0 1)) ((3 2) (1 1))
    ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x x-0) (y chi) (y (mul (rec ltxb) l x-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) l) x-0))
    (exp (gen) (mul l x-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) x-0)) (send (cat (exp (gen) l) x-0))))
  (label 105)
  (parent 60)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 2) (0 1))
    ((3 2) (1 1)) ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x x-0) (y chi) (y (mul (rec ltxb) l x-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x-0) l))
    (exp (gen) (mul l x-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l)) (send (cat (exp (gen) x-0) l))))
  (label 106)
  (parent 60)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (3 0)) ((1 2) (0 2)) ((2 1) (1 3)) ((3 1) (2 0))
    ((4 1) (1 0)) ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 107)
  (parent 61)
  (unrealized (0 0) (0 1) (3 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w))) w))))
  (label 108)
  (parent 61)
  (unrealized (0 0) (0 1) (5 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (x-0 l) (x-0 beta))
  (precur (5 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l-0 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-1 b-1 (exp (gen) x-0)))))
  (label 109)
  (parent 62)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (y rndx) (chi expt)
    (ltxb l x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul y chi (rec x))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x) (mul l (rec x))))
  (precedes ((0 3) (4 0)) ((1 2) (5 0)) ((2 1) (1 0)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y chi) (y (mul (rec ltxb) l)) (y ltxb) (x (one)) (x l))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 1 init 3) (exp (gen) x-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y chi (rec x)))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x) (mul l (rec x))))
      (send (cat (exp (gen) x) (mul l (rec x))))))
  (label 110)
  (parent 62)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (5 0)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-0 l) (w l)) (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l)) (send (cat (gen) l))))
  (label 111)
  (parent 62)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (5 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l-0 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 112)
  (parent 62)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (chi expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul l (rec y))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y chi))
  (precur (5 0))
  (gen-st (pv a l) (pv b l-0))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul chi y)))
      (hash (exp (gen) l) (exp (gen) (mul chi y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a-0 (exp (gen) (mul l (rec l-0))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul chi y))))
      (send (hash (exp (gen) l) (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul chi y))))
      (send (cat (exp (gen) l) (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul l (rec y))))
      (send (cat (exp (gen) y) (mul l (rec y))))))
  (label 113)
  (parent 62)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (3 0)) ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (3 0))
    ((5 1) (1 0)) ((5 2) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (4 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 6 ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 5 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 114)
  (parent 62)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l (rec l-0))))
      (send (cat (exp (gen) l-0) (mul l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 115)
  (parent 62)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (y chi) (y (mul (rec ltxb) l-0 l-0)) (y ltxb) (x-0 l)
    (x-0 beta))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-0)))))
  (label 116)
  (parent 63)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (y rndx) (chi expt)
    (ltxb l x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul y chi (rec x))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x) (mul l l (rec x))))
  (precedes ((0 3) (4 0)) ((1 2) (5 0)) ((2 1) (1 0)) ((2 2) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (x l))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 1 init 3) (exp (gen) x-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y chi (rec x)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x) (mul l l (rec x))))
      (send (cat (exp (gen) x) (mul l l (rec x))))))
  (label 117)
  (parent 63)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l)))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-0 l) (w (mul l l))) (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l))) (send (cat (gen) (mul l l)))))
  (label 118)
  (parent 63)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 3) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (y chi) (y (mul (rec ltxb) l-0 l-0)) (y ltxb) (y-0 l)
    (y-0 alpha) (y-0 chi-0))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 119)
  (parent 63)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (chi expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l l (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul l l (rec y))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y (mul l l (rec l-0))) (y l-0) (y chi))
  (precur (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-0) (undisclosed (mul l l (rec l-0))))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul chi y))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul l l (rec y))))
      (send (cat (exp (gen) y) (mul l l (rec y))))))
  (label 120)
  (parent 63)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((2 2) (5 0))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 2 ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l))))
  (label 121)
  (parent 63)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l l (rec l-0))))
      (send (cat (exp (gen) l-0) (mul l l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 122)
  (parent 63)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn)
    (l x y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (0 0))
    ((3 2) (1 1)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y l) (y x) (y l-0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((3 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 4 3 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 123)
  (parent 64)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta y) (chi x) (beta l-0)
        (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na) (nb nb)
        (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (3 1)) (pt-2 (3 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y x) (y l-1))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((4 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 124)
  (parent 64)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1) (y (mul x w)))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 0 resp 4) (exp (gen) y-0) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 125)
  (parent 65)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self a-0 b name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 2) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 l-2) (x-2 beta))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2)))))
  (label 126)
  (parent 65)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w)))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (chi (mul x w)) (y-0 y)
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 127)
  (parent 65)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (w expt)
    (l-0 l-1 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul w x x)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta l-1)
    (eta (mul w x x y (rec x-0))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l-0 l-1)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0 l-1)) (y l) (y (mul w x x)) (x-0 l-0)
    (x-0 l-1))
  (precur (4 0))
  (gen-st (pv a l-0) (pv self l))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed l-1) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 1 init 3) (exp (gen) x-1) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 128)
  (parent 65)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor) (l l) (y y) (alpha (mul (rec l) l-0 l-2))
    (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor-1) (l l-2) (x x-0) (beta l-0)
    (eta (mul x w l-1 (rec x-0) y)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (3 0)) ((1 2) (0 2)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (1 0)) ((4 2) (3 0)))
  (non-orig (privk "sig" self) (privk "sig" self-0))
  (uniq-orig na nb l-0 l-2)
  (uniq-gen x-0 y)
  (absent (x-0 l-0) (x-0 l-2) (y (mul (rec l) l-0 l-2)) (y l)
    (y (mul x w l-1)))
  (precur (3 0))
  (gen-st (pv self l) (pv self-0 l-2))
  (facts (neq self self-0) (neq self-0 self)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l-2 l) (undisclosed l-2) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-2)))
  (leads-to ((4 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 5 ltx-gen 3) (exp (gen) l-3) (4 0))
  (strand-map 0 1 4 2 3)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig
          (body self-0 (exp (gen) (mul (rec l) l-0 l-2))
            (pubk "sig" self-0)) (privk "sig" self-0)))
      (recv (cat na self-0 self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))
      (send (cat na self-0 self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 129)
  (parent 65)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 3) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul x w y)) (y-1 l-2) (y-1 alpha) (y-1 chi))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul l-2 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 130)
  (parent 65)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-2)) (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-2)
    (eta (mul x w l-1 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-2)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 l-2) (y (mul l (rec l-0) l-2)) (y l-0)
    (y (mul x w l-1)))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-2) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 3 ltx-gen 3) (exp (gen) l-3) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))))
  (label 131)
  (parent 65)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data)
    (a self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 x rndx) (w expt) (l-2 x-0 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w l-2)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w l-2 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 2) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1 l-3)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w l-2)))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (4 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-2 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 132)
  (parent 65)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta chi expt)
    (y x-0 l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul x-0 l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul x-0 l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-1)) (x l) (y chi) (y (mul x-0 l (rec l-0) l-1))
    (y l-0) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul x-0 l-1))
    (undisclosed l-0) (undisclosed (mul x-0 l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul x-0 l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul x-0 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))))
  (label 133)
  (parent 68)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 data) (b a b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (beta chi expt) (y x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul x-0 l (rec l-0))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta x-0) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul x-0 l (rec l-0))) (y l-0)
    (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed x-0) (undisclosed l-0)
    (undisclosed (mul x-0 l (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (l-1 l) (alpha (mul x-0 l (rec l-0)))
      (l-2 l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul x-0 l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) x-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0)))))
  (label 134)
  (parent 68)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 data) (b a b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (beta expt) (x-0 rndx) (alpha chi expt) (l y x-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul (rec x-0) alpha l x-1 l-0 (rec l-1)))
    (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul (rec x-0) alpha l x-1))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) alpha l)))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l-0)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) alpha l x-1)) (x l-0)
    (y (mul (rec x-0) alpha l x-1 l-0 (rec l-1))) (y chi) (y l-1)
    (x-1 beta) (x-1 l-0) (l-0 (mul (rec x-0) alpha l)))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec x-0) alpha l x-1 l-0))
        (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul (rec x-0) alpha l x-1 l-0))
        (exp (gen) (mul chi y)))) (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec x-0) alpha l x-1)) (undisclosed l-1)
    (undisclosed (mul (rec x-0) alpha l x-1 l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) alpha l))
    (mul (rec x-0) alpha l) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec x-0) alpha l x-1 l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec x-0) alpha l x-1 l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec x-0) alpha l x-1))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec x-0) alpha l x-1 l-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) alpha l)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) alpha l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-1)))))
  (label 135)
  (parent 68)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 data) (b a b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (beta expt) (l rndx) (alpha chi expt) (l-0 y x-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec l) alpha l-0 x-0 l-1 (rec l-2)))
    (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul (rec l) alpha l-0 x-0))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) alpha l-0)))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) alpha l-0 x-0)) (x l-1)
    (y (mul (rec l) alpha l-0 x-0 l-1 (rec l-2))) (y chi) (y l-2)
    (x-0 beta) (x-0 (mul (rec l) alpha l-0)) (x-0 l-1))
  (precur (3 0))
  (gen-st (pv b l-2) (pv a l-1))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 x-0 l-1))
        (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 x-0 l-1))
        (exp (gen) (mul chi y)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 x-0)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 x-0 l-1 (rec l-2))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) alpha l-0))
    (mul (rec l) alpha l-0) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 x-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 x-0 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l) alpha l-0 x-0))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 x-0 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0)))))
  (label 136)
  (parent 68)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (w expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))))
  (label 137)
  (parent 70)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l rndx) (chi expt) (y x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul x-0 (rec l-0) l-1 l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul x-0 l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-1)) (x l-1) (y chi)
    (y (mul x-0 (rec l-0) l-1 l-1)) (y l-0) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l-1) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul chi y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed (mul x-0 l-1))
    (undisclosed l-0) (undisclosed (mul x-0 (rec l-0) l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul x-0 (rec l-0) l-1 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b (exp (gen) (mul x-0 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 138)
  (parent 71)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l rndx) (chi expt) (y l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 x-0 (rec l-1))) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta x-0) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (x x-0) (y chi) (y (mul l-0 x-0 (rec l-1))) (y l-1)
    (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed x-0) (undisclosed l-1)
    (undisclosed (mul l-0 x-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (x-1 x-0) (alpha (mul l-0 x-0 (rec l-1)))
      (l-3 l-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 x-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) x-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 139)
  (parent 71)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 data)
    (b a a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (beta expt) (l rndx) (chi expt) (y l-0 x-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 x-0 (rec l-1) l-2)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul x-0 l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-2))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-0 l-2)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul x-0 l-2)) (y chi)
    (y (mul l-0 x-0 (rec l-1) l-2)) (y l-1) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul x-0 l-2))
    (undisclosed l-1) (undisclosed (mul l-0 x-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l-0 x-0 (rec l-1) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) (mul x-0 l-2)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-2)) (send (cat (exp (gen) x-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2)))))
  (label 140)
  (parent 71)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l l-0 rndx) (alpha chi expt) (l-1 y l-2 x-0 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l-0) alpha l-1 l-2 x-0 (rec l-3)))
    (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-2) (x x) (beta (mul (rec l-0) alpha l-1 x-0))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) alpha l-1)))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) alpha l-1 x-0)) (x l-2)
    (y (mul (rec l-0) alpha l-1 l-2 x-0 (rec l-3))) (y chi) (y l-3)
    (x-0 beta) (x-0 l) (x-0 (mul (rec l-0) alpha l-1)))
  (precur (3 0))
  (gen-st (pv b l-3) (pv a l-2) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l-0) alpha l-1 l-2 x-0))
        (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul (rec l-0) alpha l-1 l-2 x-0))
        (exp (gen) (mul chi y)))) (neq l-2 l-3) (undisclosed l-2)
    (undisclosed (mul (rec l-0) alpha l-1 x-0)) (undisclosed l-3)
    (undisclosed (mul (rec l-0) alpha l-1 l-2 x-0 (rec l-3))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l-0) alpha l-1))
    (mul (rec l-0) alpha l-1) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec l-0) alpha l-1 l-2 x-0 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l-0) alpha l-1 l-2 x-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l-0) alpha l-1 x-0))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec l-0) alpha l-1 l-2 x-0))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) alpha l-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) alpha l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 141)
  (parent 71)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l x-0 rndx) (alpha chi expt) (l-0 y l-1 x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec x-0) alpha l-0 l-1 x-1 (rec l-2)))
    (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul (rec x-0) alpha l-0 x-1))
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) alpha l-0)))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) alpha l-0 x-1)) (x l-1)
    (y (mul (rec x-0) alpha l-0 l-1 x-1 (rec l-2))) (y chi) (y l-2)
    (l-1 (mul (rec x-0) alpha l-0)) (x-1 beta) (x-1 l))
  (precur (3 0))
  (gen-st (pv b l-2) (pv a l-1) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec x-0) alpha l-0 l-1 x-1))
        (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul (rec x-0) alpha l-0 l-1 x-1))
        (exp (gen) (mul chi y)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec x-0) alpha l-0 x-1)) (undisclosed l-2)
    (undisclosed (mul (rec x-0) alpha l-0 l-1 x-1 (rec l-2))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec x-0) alpha l-0))
    (mul (rec x-0) alpha l-0) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec x-0) alpha l-0 l-1 x-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec x-0) alpha l-0 l-1 x-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec x-0) alpha l-0 x-1))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec x-0) alpha l-0 l-1 x-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) alpha l-0)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) alpha l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 142)
  (parent 71)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul w x-0)) (y chi) (y (mul (rec ltxb) l w x-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))))
  (label 143)
  (parent 73)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-1) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self b)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (3 0)) ((4 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0)
    (l l-1))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand ltx-gen 3)
    (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l-1)) (send (cat (gen) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv b l-1)))
      (send
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))))
  (label 144)
  (parent 77)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul (rec l-0) y-0)))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 3) (0 1)) ((6 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul (rec l-0) y-0)))
      (send (cat (gen) (mul (rec l-0) y-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 145)
  (parent 79)
  (unrealized (0 0) (1 1) (1 3) (3 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul (rec l-0) x-0)))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 2) (0 1)) ((6 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul (rec l-0) x-0)))
      (send (cat (gen) (mul (rec l-0) x-0))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-1 b-1 (exp (gen) x-0)))))
  (label 146)
  (parent 79)
  (unrealized (0 0) (1 1) (1 3) (3 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (rec l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (rec l)))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (rec l)) (x l) (y chi) (y (rec ltxb)) (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (rec l)) (undisclosed ltxb) (undisclosed (rec ltxb)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-0 l) (w (rec l))) (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (rec ltxb)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (rec l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0 (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (rec l))) (send (cat (gen) (rec l))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))))
  (label 147)
  (parent 79)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (4 0)) ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (1 0)) ((5 2) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 6 ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 5 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 148)
  (parent 79)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) l-0)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) l-0)))
      (send (cat (gen) (mul (rec l) l-0))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 149)
  (parent 79)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w (rec w-0))) w-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x w) (y chi) (y (mul (rec ltxb) l w)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul l w (rec w-0))) w-0))
    (exp (gen) (mul l w)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w (rec w-0))) w-0))
      (send (cat (exp (gen) (mul l w (rec w-0))) w-0))))
  (label 150)
  (parent 79)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a a-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx)
    (alpha chi chi-0 expt) (y y-0 l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul y-0 l (rec l-0) l-1)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul y-0 l-1)) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-1)) (x l) (y chi-0)
    (y (mul y-0 l (rec l-0) l-1)) (y l-0) (y-0 alpha) (y-0 chi) (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul chi-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul y-0 l-1))
    (undisclosed l-0) (undisclosed (mul y-0 l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul y-0 l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul y-0 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))))
  (label 151)
  (parent 80)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a a-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha chi chi-0 expt) (y y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul y-0 l (rec l-0))) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta y-0) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi-0) (y (mul y-0 l (rec l-0))) (y l-0)
    (y-0 alpha) (y-0 chi) (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul chi-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed y-0) (undisclosed l-0)
    (undisclosed (mul y-0 l (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-1 y-0) (l-1 l) (alpha-0 (mul y-0 l (rec l-0)))
      (l-2 l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul y-0 l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) y-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0))))))))
  (label 152)
  (parent 80)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a a-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha chi expt) (y rndx) (alpha-0 chi-0 expt)
    (l y-0 y-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul (rec y) alpha-0 l y-1 l-0 (rec l-1)))
    (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul (rec y) alpha-0 l y-1))
    (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y) alpha-0 l)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (mul (rec y) alpha-0 l y-1)) (x l-0)
    (y-0 (mul (rec y) alpha-0 l y-1 l-0 (rec l-1))) (y-0 chi-0)
    (y-0 l-1) (y-1 alpha) (y-1 chi) (y-1 l-0)
    (l-0 (mul (rec y) alpha-0 l)))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec y) alpha-0 l y-1 l-0))
        (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul (rec y) alpha-0 l y-1 l-0))
        (exp (gen) (mul chi-0 y-0)))) (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec y) alpha-0 l y-1)) (undisclosed l-1)
    (undisclosed (mul (rec y) alpha-0 l y-1 l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y) alpha-0 l))
    (mul (rec y) alpha-0 l) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec y) alpha-0 l y-1 l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul (rec y) alpha-0 l y-1 l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec y) alpha-0 l y-1))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na nb a b
            (hash (exp (gen) (mul (rec y) alpha-0 l y-1 l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y) alpha-0 l)))
      (send (cat (exp (gen) y-1) (mul (rec y) alpha-0 l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 153)
  (parent 80)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a a-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha chi expt) (l rndx) (alpha-0 chi-0 expt)
    (l-0 y y-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec l) alpha-0 l-0 y-0 l-1 (rec l-2)))
    (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul (rec l) alpha-0 l-0 y-0))
    (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) alpha-0 l-0)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) alpha-0 l-0 y-0)) (x l-1)
    (y (mul (rec l) alpha-0 l-0 y-0 l-1 (rec l-2))) (y chi-0) (y l-2)
    (y-0 alpha) (y-0 chi) (y-0 (mul (rec l) alpha-0 l-0)) (y-0 l-1))
  (precur (3 0))
  (gen-st (pv b l-2) (pv a l-1))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha-0 l-0 y-0 l-1))
        (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul (rec l) alpha-0 l-0 y-0 l-1))
        (exp (gen) (mul chi-0 y)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha-0 l-0 y-0)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha-0 l-0 y-0 l-1 (rec l-2))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) alpha-0 l-0))
    (mul (rec l) alpha-0 l-0) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec l) alpha-0 l-0 y-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha-0 l-0 y-0 l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l) alpha-0 l-0 y-0))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha-0 l-0 y-0 l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) alpha-0 l-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) alpha-0 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-0))))))))
  (label 154)
  (parent 80)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (w expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))))
  (label 155)
  (parent 82)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l rndx) (chi-0 expt) (y y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul y-0 (rec l-0) l-1 l-1)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul y-0 l-1)) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (3 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-1)) (x l-1) (y chi-0)
    (y (mul y-0 (rec l-0) l-1 l-1)) (y l-0) (y-0 alpha) (y-0 chi)
    (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l-1) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul chi-0 y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed (mul y-0 l-1))
    (undisclosed l-0) (undisclosed (mul y-0 (rec l-0) l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul y-0 (rec l-0) l-1 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b (exp (gen) (mul y-0 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l)))))
  (label 156)
  (parent 83)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l rndx) (chi-0 expt) (y l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 y-0 (rec l-1))) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta y-0) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (x y-0) (y chi-0) (y (mul l-0 y-0 (rec l-1))) (y l-1)
    (y-0 alpha) (y-0 chi) (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul chi-0 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed y-0) (undisclosed l-1)
    (undisclosed (mul l-0 y-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (y-1 y-0) (alpha-0 (mul l-0 y-0 (rec l-1)))
      (l-3 l-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 y-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) y-0) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l)))))
  (label 157)
  (parent 83)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (alpha chi expt) (l rndx) (chi-0 expt) (y l-0 y-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 y-0 (rec l-1) l-2)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul y-0 l-2)) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-2))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-0 l-2)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul y-0 l-2)) (y chi-0)
    (y (mul l-0 y-0 (rec l-1) l-2)) (y l-1) (y-0 alpha) (y-0 chi)
    (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul chi-0 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul y-0 l-2))
    (undisclosed l-1) (undisclosed (mul l-0 y-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l-0 y-0 (rec l-1) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0 l-2))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) (mul y-0 l-2)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0 l-2))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-2)) (send (cat (exp (gen) y-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2)))))
  (label 158)
  (parent 83)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l l-0 rndx) (alpha-0 chi-0 expt) (l-1 y l-2 y-0 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l-0) alpha-0 l-1 l-2 y-0 (rec l-3)))
    (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-2) (x x) (beta (mul (rec l-0) alpha-0 l-1 y-0))
    (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) alpha-0 l-1)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) alpha-0 l-1 y-0)) (x l-2)
    (y (mul (rec l-0) alpha-0 l-1 l-2 y-0 (rec l-3))) (y chi-0) (y l-3)
    (y-0 alpha) (y-0 chi) (y-0 l) (y-0 (mul (rec l-0) alpha-0 l-1)))
  (precur (3 0))
  (gen-st (pv b l-3) (pv a l-2) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l-0) alpha-0 l-1 l-2 y-0))
        (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul (rec l-0) alpha-0 l-1 l-2 y-0))
        (exp (gen) (mul chi-0 y)))) (neq l-2 l-3) (undisclosed l-2)
    (undisclosed (mul (rec l-0) alpha-0 l-1 y-0)) (undisclosed l-3)
    (undisclosed (mul (rec l-0) alpha-0 l-1 l-2 y-0 (rec l-3))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l-0) alpha-0 l-1))
    (mul (rec l-0) alpha-0 l-1) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec l-0) alpha-0 l-1 l-2 y-0 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l-0) alpha-0 l-1 l-2 y-0))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec l-0) alpha-0 l-1 y-0))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul (rec l-0) alpha-0 l-1 l-2 y-0))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) alpha-0 l-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) alpha-0 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l)))))
  (label 159)
  (parent 83)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l y rndx) (alpha-0 chi-0 expt) (l-0 y-0 l-1 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y-0) (alpha (mul (rec y) alpha-0 l-0 l-1 y-1 (rec l-2)))
    (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x) (beta (mul (rec y) alpha-0 l-0 y-1))
    (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec y) alpha-0 l-0)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (mul (rec y) alpha-0 l-0 y-1)) (x l-1)
    (y-0 (mul (rec y) alpha-0 l-0 l-1 y-1 (rec l-2))) (y-0 chi-0)
    (y-0 l-2) (l-1 (mul (rec y) alpha-0 l-0)) (y-1 alpha) (y-1 chi)
    (y-1 l))
  (precur (3 0))
  (gen-st (pv b l-2) (pv a l-1) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec y) alpha-0 l-0 l-1 y-1))
        (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul (rec y) alpha-0 l-0 l-1 y-1))
        (exp (gen) (mul chi-0 y-0)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec y) alpha-0 l-0 y-1)) (undisclosed l-2)
    (undisclosed (mul (rec y) alpha-0 l-0 l-1 y-1 (rec l-2))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec y) alpha-0 l-0))
    (mul (rec y) alpha-0 l-0) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec y) alpha-0 l-0 l-1 y-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul (rec y) alpha-0 l-0 l-1 y-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b (exp (gen) (mul (rec y) alpha-0 l-0 y-1))
            (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na nb a b
            (hash (exp (gen) (mul (rec y) alpha-0 l-0 l-1 y-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec y) alpha-0 l-0)))
      (send (cat (exp (gen) y-1) (mul (rec y) alpha-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l)))))
  (label 160)
  (parent 83)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul w y-0)) (y chi) (y (mul (rec ltxb) l w y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test
    (added-listener
      (cat (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
    (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))))
  (label 161)
  (parent 85)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul l l-1)) (eta (mul (rec x) chi y)))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)) ((4 1) (5 0)) ((5 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l l-1)) (y chi) (y (mul l l (rec l-0) l-1))
    (y l-0))
  (precur (2 0))
  (gen-st (pv b l-0) (pv a l) (pv self l-1))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l l-1))
    (undisclosed l-0) (undisclosed (mul l l (rec l-0) l-1)))
  (leads-to ((3 1) (1 0)) ((4 1) (5 0)))
  (rule fact-resp-neq0 gen-st-ltx-disclose-0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-1 (2 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul l l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv a l)))
      (send
        (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-1)))
  (label 162)
  (parent 88)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 3) (0 1)) ((6 3) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) y-0)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 163)
  (parent 91)
  (unrealized (0 0) (1 1) (1 3) (2 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 2) (0 1)) ((6 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) x-0)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-0)))))
  (label 164)
  (parent 91)
  (unrealized (0 0) (1 1) (1 3) (2 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (rec l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (rec l)) (x l) (y chi) (y (rec ltxb)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (rec l)) (undisclosed ltxb) (undisclosed (rec ltxb)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (w (mul (rec l) (rec l))) (l-0 l))
    (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (rec ltxb)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (rec l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (gen) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l))))
      (send (cat (exp (gen) l) (mul (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))))
  (label 165)
  (parent 91)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (5 0)) ((4 1) (1 3)) ((5 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 3 ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi))))))
  (label 166)
  (parent 91)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) l-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 167)
  (parent 91)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l (rec w-0))) w-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul w l l (rec w-0))) w-0))
    (exp (gen) (mul w l l)) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l (rec w-0))) w-0))
      (send (cat (exp (gen) (mul w l l (rec w-0))) w-0))))
  (label 168)
  (parent 91)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1 l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul l-1 l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (5 0)) ((4 2) (3 0)) ((5 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l-1 l-1)) (y chi) (y (mul l (rec l-0) l-1 l-1))
    (y l-0))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l) (pv self l-1))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (5 0)))
  (rule fact-resp-neq0 gen-st-ltx-disclose-0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-1 (3 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul l-1 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-1)))
  (label 169)
  (parent 92)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 4 ltx-gen 3)
    (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 170)
  (parent 94)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data)
    (b a self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (chi expt) (y l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1) l-2)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul l-0 l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-2))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-2))
  (defstrand ltx-disclose 3 (self self-0) (priv-stor priv-stor-2)
    (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (6 0)) ((6 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-0 l-2)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-2)) (y chi) (y (mul l l-0 (rec l-1) l-2))
    (y l-1))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l) (pv self-0 l-2))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-2))
    (undisclosed l-1) (undisclosed (mul l l-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (6 0)))
  (rule fact-resp-neq0 gen-st-ltx-disclose-0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-2 (3 0)
    (ch-msg priv-stor-2 (cat pt-5 (pv self-0 l-2))))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 (rec l-1) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul l-0 l-2)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-2)) (send (cat (exp (gen) l-0) l-2)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-2))))
    ((load priv-stor-2 (cat pt-5 (pv self-0 l-2)))
      (stor priv-stor-2 (cat pt-6 "nil")) (send l-2)))
  (label 171)
  (parent 95)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0)
    (l-1 (one)))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 4 ltx-gen 3)
    (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 172)
  (parent 96)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0)
    (l (one)))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 4 ltx-gen 3)
    (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 173)
  (parent 97)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (b a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (chi expt) (y l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-2) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (defstrand ltx-gen 3 (ignore ignore-1) (self b)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb l l-1 l-2)
  (uniq-gen x y)
  (absent (x l) (x l-2) (y chi) (y (mul l (rec l-0) l-2)) (y l-0)
    (l (mul (rec l-1) l-2)))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-2)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-2) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand ltx-gen 3)
    (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-2)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-2)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-1) l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l-1) l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b l-2)))
      (send
        (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)))))
  (label 174)
  (parent 97)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) y-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 175)
  (parent 98)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (beta expt) (l-0 l-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) x-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-1 b-1 (exp (gen) x-0)))))
  (label 176)
  (parent 98)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (rec l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (rec l)) (x l) (y chi) (y (rec ltxb)) (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (rec l)) (undisclosed ltxb) (undisclosed (rec ltxb)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w (mul (rec l) (rec l-0))) (l-2 l-0)) (gen)
    (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (rec ltxb)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (rec l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0 (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0))))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))))
  (label 177)
  (parent 98)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((4 2) (6 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 4 ltx-gen 3) (exp (gen) l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (rec l)))
      (send (cat (exp (gen) l-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi))))))
  (label 178)
  (parent 98)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 7 ltx-gen 3) (exp (gen) l-1) (6 0))
  (strand-map 0 1 6 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 179)
  (parent 98)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-1)) (x l) (y chi) (y (mul (rec ltxb) l-1))
    (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-1) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) l-1)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 180)
  (parent 98)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w l-0 (rec w-0))) w-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul w l-0)) (y chi) (y (mul (rec ltxb) l w l-0))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul l w l-0 (rec w-0))) w-0))
    (exp (gen) (mul l w l-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w l-0 (rec w-0))) w-0))
      (send (cat (exp (gen) (mul l w l-0 (rec w-0))) w-0))))
  (label 181)
  (parent 98)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 3)) ((3 1) (2 0))
    ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 182)
  (parent 107)
  (unrealized (0 0) (0 1) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 3)) ((3 1) (2 0))
    ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (3 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 183)
  (parent 107)
  (unrealized (0 0) (0 1) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 rndx)
    (beta expt) (x rndx) (w expt) (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 l-0) (x-2 beta))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 184)
  (parent 108)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (w expt) (l x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul w x x y (rec x-0))))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x-0)
  (absent (y (mul (rec ltxb) l)) (y ltxb) (y (mul w x x)) (x-0 (one))
    (x-0 l))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x x y)))
      (hash (exp (gen) l) (exp (gen) (mul w x x y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 1 init 3) (exp (gen) x-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 185)
  (parent 108)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb l x rndx)
    (w expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w (rec x-0) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w)))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w))
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 186)
  (parent 108)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 3) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 l-0) (y-1 alpha) (y-1 chi))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 187)
  (parent 108)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul x w)))
  (precur (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 188)
  (parent 108)
  (unrealized (0 0) (0 1) (3 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb x rndx)
    (w expt) (l x-0 y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi (mul x w l)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (one))
    (eta (mul x w l (rec x-0) y)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w l y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w l y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((4 2) (5 0))
    ((5 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l-0) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y (mul x w l)))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 4 ltx-gen 3) (exp (gen) l-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w l))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w l y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w l y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w l y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))
      (send (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))))
  (label 189)
  (parent 108)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l x rndx) (w expt)
    (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w l-0 (rec x-0) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w l-0)))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-0 (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 190)
  (parent 108)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 191)
  (parent 109)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)) ((6 2) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 192)
  (parent 109)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 193)
  (parent 112)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)) ((6 3) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (5 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 194)
  (parent 112)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (3 0)) ((1 2) (0 2)) ((2 1) (1 3)) ((3 1) (2 0))
    ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (precur (4 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 195)
  (parent 114)
  (unrealized (0 0) (0 1) (3 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w))) w))))
  (label 196)
  (parent 114)
  (unrealized (0 0) (0 1) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l l)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((2 2) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (x-0 beta)
    (x-0 l))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l l)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 197)
  (parent 116)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l l (rec x-0))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 2) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (x-0 beta)
    (x-0 l-0))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l l (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l l (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 198)
  (parent 116)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l)))
  (deflistener l)
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((2 2) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l))) (send (cat (gen) (mul l l))))
    ((recv l) (send l)))
  (label 199)
  (parent 118)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((2 2) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 3) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l l)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 200)
  (parent 119)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l l (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((2 1) (1 0)) ((2 2) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 3) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l-0))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l l (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l l (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 201)
  (parent 119)
  (unrealized (0 0) (0 1) (1 3) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn) (l x rndx)
    (w expt) (y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (0 0))
    ((3 2) (1 1)) ((4 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y l) (y (mul x w)) (y l-0))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((3 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 5 3 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 202)
  (parent 125)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta (mul w y)) (chi (mul x w))
        (beta l-0) (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na)
        (nb nb) (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (3 1)) (pt-2 (3 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y (mul x w)) (y l-1))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 203)
  (parent 125)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-1) (beta l-0)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (5 0))
    ((3 2) (1 1)) ((4 1) (1 3)) ((5 2) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l-0) (x-1 l-1) (y (mul (rec l) l-0 l-1)) (y l)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (4 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a b) (neq b a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (5 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 6 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a b (exp (gen) x-2)))))
  (label 204)
  (parent 126)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a self) (b b) (priv-stor priv-stor-1)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (5 0))
    ((3 2) (1 1)) ((4 1) (1 3)) ((5 2) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self b) (neq b self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((3 1) (5 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 6 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 self b (exp (gen) x-2)))))
  (label 205)
  (parent 126)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 2) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1 l-2)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-2))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((6 1) (5 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-0 l-2)))))
  (label 206)
  (parent 126)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-0) (beta l-0)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (5 0))
    ((3 2) (1 1)) ((4 1) (1 3)) ((5 3) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l-0) (x-0 l-1) (y-0 (mul (rec l) l-0 l-1)) (y-0 l)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (4 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a a-0) (neq a-0 a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (5 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 6 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 207)
  (parent 130)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (5 0))
    ((3 2) (1 1)) ((4 1) (1 3)) ((5 3) (4 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self a-0) (neq a-0 self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((3 1) (5 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 6 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 208)
  (parent 130)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 2) (1 1))
    ((4 1) (1 3)) ((5 3) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1 l-2)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-2))
  (precur (4 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((6 1) (5 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b l-2)))))
  (label 209)
  (parent 130)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta chi expt)
    (y x-0 l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul x-0 l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul x-0 l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (6 0))
    ((6 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-1)) (x l) (y chi) (y (mul x-0 l (rec l-0) l-1))
    (y l-0) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l) (pv self l-1))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul x-0 l-1))
    (undisclosed l-0) (undisclosed (mul x-0 l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((5 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-1 (3 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul x-0 l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul x-0 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-1)))
  (label 210)
  (parent 133)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta chi expt)
    (y l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-1) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l-1)))
  (defstrand init 3 (na na-0) (a a) (b b-0) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 3 (ignore ignore-0) (self b)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x y x-0)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0)
    (l (mul (rec x-0) l-1)) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a b-0) (neq b-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand ltx-gen 3)
    (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv b l-1)))
      (send
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))))
  (label 211)
  (parent 135)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 l-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) x-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l-0) x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-1)) (y ltxb) (x-0 beta) (x-0 l-0) (x-1 l)
    (x-1 beta-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) x-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-1)))))
  (label 212)
  (parent 137)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (rec l)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 4 init 3) (exp (gen) x-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (rec l)))
      (send (cat (exp (gen) x-0) (rec l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi))))))
  (label 213)
  (parent 137)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (rec l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (rec l)) (x l) (y chi) (y (rec ltxb)) (y ltxb) (x-0 beta)
    (x-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (rec l)) (undisclosed ltxb) (undisclosed (rec ltxb)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w (mul (rec x-0) (rec l))) (x-1 x-0) (l-0 l)) (gen)
    (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (rec ltxb)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (rec l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0 (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))))
  (label 214)
  (parent 137)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (rec x-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 1) (3 0))
    ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((6 1) (1 0)) ((6 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 7 ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 6 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (rec x-0)))
      (send (cat (exp (gen) x-0) (rec x-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 215)
  (parent 137)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l-0) y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (x-0 beta) (x-0 l-0) (y-0 l)
    (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) y-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 216)
  (parent 137)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 217)
  (parent 137)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (w expt) (x-0 l rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0 l (rec w-0))) w-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul w x-0 l (rec w-0))) w-0))
    (exp (gen) (mul w x-0 l)) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l (rec w-0))) w-0))
      (send (cat (exp (gen) (mul w x-0 l (rec w-0))) w-0))))
  (label 218)
  (parent 137)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 data)
    (b a a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (beta expt) (l rndx) (chi expt) (y l-0 x-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 x-0 (rec l-1) l-2)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul x-0 l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-2))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (7 0))
    ((7 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-0 l-2)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul x-0 l-2)) (y chi)
    (y (mul l-0 x-0 (rec l-1) l-2)) (y l-1) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv a-0 l) (pv self l-2))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul x-0 l-2))
    (undisclosed l-1) (undisclosed (mul l-0 x-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((6 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-2 (3 0)
    (ch-msg priv-stor-2 (cat pt-5 (pv self l-2))))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l-0 x-0 (rec l-1) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) (mul x-0 l-2)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0 l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-2)) (send (cat (exp (gen) x-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2))))
    ((load priv-stor-2 (cat pt-5 (pv self l-2)))
      (stor priv-stor-2 (cat pt-6 "nil")) (send l-2)))
  (label 219)
  (parent 140)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (b a b-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta chi expt)
    (y l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-1) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l-1)))
  (defstrand init 3 (na na-0) (a b) (b b-0) (priv-stor priv-stor-1)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 3 (ignore ignore-0) (self b)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((5 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x y x-0)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0)
    (l (mul (rec x-0) l-1)) (x-0 beta) (x-0 l-1))
  (precur (3 0))
  (gen-st (pv b l-0) (pv b l-1) (pv a l))
  (facts (neq b b-0) (neq b-0 b) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 6 ltx-gen 3)
    (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv b l-1)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 b b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv b l-1)))
      (send
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))))
  (label 220)
  (parent 142)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 data)
    (b a a-0 b-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (beta expt) (l rndx) (chi expt) (y l-0 l-1 x-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1) l-2)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta l-2) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l-2)))
  (defstrand init 3 (na na-0) (a a-0) (b b-0) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 3 (ignore ignore-1) (self b)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb na-0 l l-0 l-2)
  (uniq-gen x y x-0)
  (absent (x l-0) (x l-2) (y chi) (y (mul l-0 (rec l-1) l-2)) (y l-1)
    (l-0 (mul (rec x-0) l-2)) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv a-0 l))
  (facts (neq a-0 b-0) (neq b-0 a-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul chi y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed l-2) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand ltx-gen 3)
    (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l-2)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a-0 b-0 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b l-2)))
      (send
        (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)))))
  (label 221)
  (parent 142)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (alpha chi-0 expt)
    (l-1 x-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l-1) y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 l-0)
    (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-1 ltxb)
    (undisclosed l-1) (undisclosed (mul (rec l-1) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-1) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 222)
  (parent 143)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (beta-0 expt) (l-1 x-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l-1) x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 l-0)
    (x-1 beta-0))
  (precur (3 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-1) (exp (gen) (mul y chi)))) (neq l-1 ltxb)
    (undisclosed l-1) (undisclosed (mul (rec l-1) x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-1) x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) x-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-2 b-2 (exp (gen) x-1)))))
  (label 223)
  (parent 143)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (rec l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (rec l-0)) (x l-0) (y chi) (y (rec ltxb)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (rec l-0)) (undisclosed ltxb)
    (undisclosed (rec ltxb)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w (mul (rec l-0) (rec x-0))) (x-1 x-0)) (gen)
    (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (rec ltxb)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (rec l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0 (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))))
  (label 224)
  (parent 143)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (rec l)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 l-0) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (rec l)))
      (send (cat (exp (gen) x-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi))))))
  (label 225)
  (parent 143)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec x-0) l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (4 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((7 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 8 ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 7 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec x-0) l-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec x-0) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 226)
  (parent 143)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (rec x-0)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((4 1) (3 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 8 ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 7 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (rec x-0)))
      (send (cat (exp (gen) x-0) (rec x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 227)
  (parent 143)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) l-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) l-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 228)
  (parent 143)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (x-0 l-0 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w x-0 (rec w-0))) w-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul w x-0)) (y chi) (y (mul (rec ltxb) l w x-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul l w x-0 (rec w-0))) w-0))
    (exp (gen) (mul l w x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w x-0 (rec w-0))) w-0))
      (send (cat (exp (gen) (mul l w x-0 (rec w-0))) w-0))))
  (label 229)
  (parent 143)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (comment "9 in cohort - 9 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul y-0 (rec l))))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 3) (0 1)) ((6 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 (rec l))) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul y-0 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul y-0 (rec l))))
      (send (cat (gen) (mul y-0 (rec l)))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 230)
  (parent 145)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) y-0)))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 3) (0 1)) ((6 3) (3 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) y-0)))
      (send (cat (gen) (mul (rec l) y-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 231)
  (parent 145)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul x-0 (rec l))))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 2) (0 1)) ((6 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 (rec l))) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul x-0 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul x-0 (rec l))))
      (send (cat (gen) (mul x-0 (rec l)))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 232)
  (parent 146)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) x-0)))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 2) (0 1)) ((6 2) (3 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) x-0)))
      (send (cat (gen) (mul (rec l) x-0))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 233)
  (parent 146)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (rec l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (rec l)))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (rec l)) (x l) (y chi) (y (rec ltxb)) (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (rec l)) (undisclosed ltxb) (undisclosed (rec ltxb)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (rec ltxb)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (rec l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0 (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (rec l))) (send (cat (gen) (rec l))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))) ((recv l) (send l)))
  (label 234)
  (parent 147)
  (unrealized (0 0) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (precur (2 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 235)
  (parent 148)
  (unrealized (0 0) (0 1) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w))) w))))
  (label 236)
  (parent 148)
  (unrealized (0 0) (0 1) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (l-0 rndx) (w expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul (rec l-0) w x-0)))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul (rec l-0) w x-0)))
      (send (cat (gen) (mul (rec l-0) w x-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-1 b-1 (exp (gen) x-0)))))
  (label 237)
  (parent 150)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w (rec l)))
    (eta (mul y chi (rec x))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w (rec l))))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))
  (precedes ((0 3) (5 0)) ((1 2) (6 0)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x)
  (absent (y chi) (y (mul (rec ltxb) w (rec l) l-0)) (y ltxb)
    (x (mul w (rec l))) (x l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 1 init 3) (exp (gen) x-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y chi (rec x)))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w (rec l))))
      (send (cat (gen) (mul w (rec l)))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))
      (send (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))))
  (label 238)
  (parent 150)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) w)))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w)) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-0 l) (w-0 (mul (rec l) w)) (w-1 w)) (gen) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) w)))
      (send (cat (gen) (mul (rec l) w))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 239)
  (parent 150)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (l-0 rndx) (w expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul (rec l-0) w y-0)))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul (rec l-0) w y-0)))
      (send (cat (gen) (mul (rec l-0) w y-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 240)
  (parent 150)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l rndx) (w expt)
    (l-0 rndx) (chi expt) (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul w (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) w (rec l-0) l-1)))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (y (mul w (rec l-0)))
    (y chi) (y l-1))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b l-1))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) w (rec l-0) l-1)))
      (send (cat (gen) (mul (rec l) w (rec l-0) l-1))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))))
  (label 241)
  (parent 150)
  (unrealized (0 0) (1 1) (1 3) (3 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (4 0)) ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb))
  (precur (2 0) (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 7 ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 6 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 242)
  (parent 150)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) w l-0)))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) w l-0)))
      (send (cat (gen) (mul (rec l) w l-0))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 243)
  (parent 150)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a a-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx)
    (alpha chi chi-0 expt) (y y-0 l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul y-0 l (rec l-0) l-1)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta (mul y-0 l-1)) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (6 0))
    ((6 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-1)) (x l) (y chi-0)
    (y (mul y-0 l (rec l-0) l-1)) (y l-0) (y-0 alpha) (y-0 chi) (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l) (pv self l-1))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul chi-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul y-0 l-1))
    (undisclosed l-0) (undisclosed (mul y-0 l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((5 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-1 (3 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul y-0 l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) (mul y-0 l-1)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l l-1))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-1)))
  (label 244)
  (parent 151)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx)
    (alpha chi chi-0 expt) (y l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-1) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l-1)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 3 (ignore ignore-0) (self b)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x y y-0)
  (absent (x l) (x l-1) (y chi-0) (y (mul l (rec l-0) l-1)) (y l-0)
    (l (mul (rec y-0) l-1)) (y-0 alpha) (y-0 chi) (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-0) (pv a l))
  (facts (neq a a-0) (neq a-0 a) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand ltx-gen 3)
    (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv b l-1)))
      (send
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))))
  (label 245)
  (parent 153)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb l rndx)
    (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (rec l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 4 resp 4) (exp (gen) y-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (rec l)))
      (send (cat (exp (gen) y-0) (rec l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi))))))
  (label 246)
  (parent 155)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l-0) x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0)
    (x-0 l) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) x-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-2 a-2 b-1 (exp (gen) x-0)))))
  (label 247)
  (parent 155)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (rec l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (rec l)) (x l) (y chi) (y (rec ltxb)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (rec l)) (undisclosed ltxb) (undisclosed (rec ltxb)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w (mul (rec y-0) (rec l))) (y-1 y-0) (l-0 l)) (gen)
    (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (rec ltxb)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (rec l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0 (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))))
  (label 248)
  (parent 155)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (rec y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 1) (3 0))
    ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((6 1) (1 0)) ((6 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 7 ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 6 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (rec y-0)))
      (send (cat (exp (gen) y-0) (rec y-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 249)
  (parent 155)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (y-0 l-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l-0) y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0)
    (y-1 l) (y-1 alpha-0) (y-1 chi-1))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) y-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul l alpha-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 250)
  (parent 155)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l) l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 251)
  (parent 155)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (w expt) (y-0 l rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0 l (rec w-0))) w-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul w y-0 l (rec w-0))) w-0))
    (exp (gen) (mul w y-0 l)) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l (rec w-0))) w-0))
      (send (cat (exp (gen) (mul w y-0 l (rec w-0))) w-0))))
  (label 252)
  (parent 155)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (alpha chi expt) (l rndx) (chi-0 expt) (y l-0 y-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 y-0 (rec l-1) l-2)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta (mul y-0 l-2)) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-2))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (7 0))
    ((7 2) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-0 l-2)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul y-0 l-2)) (y chi-0)
    (y (mul l-0 y-0 (rec l-1) l-2)) (y l-1) (y-0 alpha) (y-0 chi)
    (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv b-0 l) (pv self l-2))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul chi-0 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul y-0 l-2))
    (undisclosed l-1) (undisclosed (mul l-0 y-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((6 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-2 (3 0)
    (ch-msg priv-stor-2 (cat pt-5 (pv self l-2))))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l-0 y-0 (rec l-1) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0 l-2))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) (mul y-0 l-2)) (pubk "sig" b))
          (privk "sig" b))) (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0 l-2))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-2)) (send (cat (exp (gen) y-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2))))
    ((load priv-stor-2 (cat pt-5 (pv self l-2)))
      (stor priv-stor-2 (cat pt-6 "nil")) (send l-2)))
  (label 253)
  (parent 158)
  (unrealized (0 0) (0 1) (1 1) (1 3))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (b a a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx)
    (alpha chi chi-0 expt) (y l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l) (x x) (beta l-1) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l-1)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-1) (l l-1) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 3 (ignore ignore-0) (self b)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((5 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x y y-0)
  (absent (x l) (x l-1) (y chi-0) (y (mul l (rec l-0) l-1)) (y l-0)
    (l (mul (rec y-0) l-1)) (y-0 alpha) (y-0 chi) (y-0 l-1))
  (precur (3 0))
  (gen-st (pv b l-0) (pv b l-1) (pv a l))
  (facts (neq b a-0) (neq a-0 b) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (displaced 5 6 ltx-gen 3)
    (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv b l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv b l-1)))
      (send
        (sig (body b (exp (gen) l-1) (pubk "sig" b)) (privk "sig" b)))))
  (label 254)
  (parent 160)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a a-0 b-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x rndx)
    (alpha chi expt) (l rndx) (chi-0 expt) (y l-0 l-1 y-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1) l-2)) (chi chi-0))
  (defstrand init 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta l-2) (eta (mul (rec x) chi-0 y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l-2)))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 3 (ignore ignore-1) (self b)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 2) (1 1)))
  (non-orig (privk "sig" b) (privk "sig" a))
  (uniq-orig na nb nb-0 l l-0 l-2)
  (uniq-gen x y y-0)
  (absent (x l-0) (x l-2) (y chi-0) (y (mul l-0 (rec l-1) l-2)) (y l-1)
    (l-0 (mul (rec y-0) l-2)) (y-0 alpha) (y-0 chi) (y-0 l))
  (precur (3 0))
  (gen-st (pv b l-1) (pv a l-0) (pv b-0 l))
  (facts (neq b-0 a-0) (neq a-0 b-0) (neq b a) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul chi-0 y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul chi-0 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed l-2) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1) l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation encryption-test (added-strand ltx-gen 3)
    (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)) (1 1))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na a b (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y))
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul chi-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l-2)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-0 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-0)
          (enc na-0 nb-0 a-0 b-0
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-0 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b l-2)))
      (send
        (sig (body b (exp (gen) l-2) (pubk "sig" b)) (privk "sig" b)))))
  (label 255)
  (parent 160)
  (unrealized (0 0) (0 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (alpha-0 chi-1 expt)
    (l-1 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l-1) y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 l-0) (y-1 alpha-0) (y-1 chi-1))
  (precur (3 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-1) (exp (gen) (mul y chi)))) (neq l-1 ltxb)
    (undisclosed l-1) (undisclosed (mul (rec l-1) y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-1) y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) y-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul l-0 alpha-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 256)
  (parent 161)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx) (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (rec l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 l-0) (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (rec l)))
      (send (cat (exp (gen) y-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi))))))
  (label 257)
  (parent 161)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (rec l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (rec l-0)) (x l-0) (y chi) (y (rec ltxb)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (rec l-0)) (undisclosed ltxb)
    (undisclosed (rec ltxb)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w (mul (rec l-0) (rec y-0))) (y-1 y-0)) (gen)
    (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (rec ltxb)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (rec l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0 (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0))))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))))
  (label 258)
  (parent 161)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (beta expt)
    (l-1 y-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l-1) x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 l-0) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-1 ltxb)
    (undisclosed l-1) (undisclosed (mul (rec l-1) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-1) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-2 b-2 (exp (gen) x-0)))))
  (label 259)
  (parent 161)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec y-0) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (4 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((7 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 8 ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 7 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec y-0) l-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec y-0) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 260)
  (parent 161)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (rec y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((4 1) (3 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 8 ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 7 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (rec y-0)))
      (send (cat (exp (gen) y-0) (rec y-0))))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 261)
  (parent 161)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) l-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 262)
  (parent 161)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt) (y-0 l-0 rndx)
    (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l w y-0 (rec w-0))) w-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul w y-0)) (y chi) (y (mul (rec ltxb) l w y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul l w y-0 (rec w-0))) w-0))
    (exp (gen) (mul l w y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l w y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l w y-0 (rec w-0))) w-0))
      (send (cat (exp (gen) (mul l w y-0 (rec w-0))) w-0))))
  (label 263)
  (parent 161)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (comment "9 in cohort - 9 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul y-0 (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (6 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 3) (0 1))
    ((6 3) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 (rec l))) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul y-0 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 3 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul y-0 (rec l) (rec l))))
      (send (cat (exp (gen) l) (mul y-0 (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 264)
  (parent 163)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 3) (0 1)) ((6 3) (2 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((3 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) y-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 265)
  (parent 163)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul x-0 (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (6 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 2) (0 1))
    ((6 2) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 (rec l))) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul x-0 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 3 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul x-0 (rec l) (rec l))))
      (send (cat (exp (gen) l) (mul x-0 (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 266)
  (parent 164)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 2) (0 1)) ((6 2) (2 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((3 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) x-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 267)
  (parent 164)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (rec ltxb)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (rec l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (gen) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (6 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (rec l)) (x l) (y chi) (y (rec ltxb)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (gen) (exp (gen) (mul y chi)))
      (hash (gen) (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (rec l)) (undisclosed ltxb) (undisclosed (rec ltxb)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) (rec l)) (2 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (rec ltxb)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (gen) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (rec l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (gen) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l))))
      (send (cat (exp (gen) l) (mul (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (gen) (exp (gen) (mul y chi))))
      (send (hash (gen) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (exp (gen) (mul y chi))))
      (send (cat (gen) (exp (gen) (mul y chi))))) ((recv l) (send l)))
  (label 268)
  (parent 165)
  (unrealized (0 0) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (6 0))
    ((3 2) (2 0)) ((3 2) (5 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (2 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv l) (send l)))
  (label 269)
  (parent 166)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (l-0 rndx) (w expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) w x-0)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) w x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-0)))))
  (label 270)
  (parent 168)
  (unrealized (0 0) (1 1) (1 3) (2 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w (rec l)))
    (eta (mul y chi (rec x))))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l) (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))
  (precedes ((0 3) (5 0)) ((1 2) (6 0)) ((2 1) (1 1)) ((3 1) (1 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x)
  (absent (y chi) (y (mul (rec ltxb) w (rec l) l-0)) (y ltxb)
    (x (mul w (rec l))) (x l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l) l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 1 init 3) (exp (gen) x-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w (rec l) l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y chi (rec x)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l) (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))
      (send (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))))
  (label 271)
  (parent 168)
  (unrealized (0 0) (0 1) (1 3) (2 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w)) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w-0 (mul (rec l) (rec l) w)) (l-0 l) (w-1 w)) (gen)
    (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) w)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 272)
  (parent 168)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (l-0 rndx) (w expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) w y-0)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) (rec l-0) w y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 273)
  (parent 168)
  (unrealized (0 0) (1 1) (1 3) (2 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l rndx) (w expt)
    (l-0 rndx) (chi expt) (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul w (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi y)))
  (deflistener
    (cat (exp (gen) l) (mul (rec l) (rec l) w (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (y (mul w (rec l-0)))
    (y chi) (y l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul w (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) w (rec l-0) l-1)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) w (rec l-0) l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))))
  (label 274)
  (parent 168)
  (unrealized (0 0) (1 1) (1 3) (2 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 3 ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w (rec l))))
      (send (cat (exp (gen) l) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w))))
  (label 275)
  (parent 168)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) w l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) w l-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) w l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 276)
  (parent 168)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1) (y x))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 277)
  (parent 170)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
    (exp (gen) (mul (rec x) chi y)) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) chi y (rec w))) w))))
  (label 278)
  (parent 170)
  (unrealized (0 0) (0 1) (5 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (l-0 (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1)
    (y x))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 279)
  (parent 172)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0)
    (l-1 (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
    (exp (gen) (mul (rec x) chi y)) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) chi y (rec w))) w))))
  (label 280)
  (parent 172)
  (unrealized (0 0) (0 1) (5 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (l (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1)
    (y x))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 281)
  (parent 173)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (chi expt)
    (y l l-0 l-1 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul l (rec l-0) l-1)) (y l-0)
    (l (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
    (exp (gen) (mul (rec x) chi y)) (1 3))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) chi y (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) chi y (rec w))) w))))
  (label 282)
  (parent 173)
  (unrealized (0 0) (0 1) (5 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (mul (rec l) y-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul y-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (mul (rec l) y-0 (rec l-0))))
      (send (cat (exp (gen) l) (mul (rec l) y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 283)
  (parent 175)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) y-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (7 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) y-0 (rec l-0))))
      (send (cat (exp (gen) l-0) (mul (rec l) y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 284)
  (parent 175)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-1))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-1))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) y-0)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-1)))))
  (label 285)
  (parent 175)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (mul (rec l) x-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul x-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (mul (rec l) x-0 (rec l-0))))
      (send (cat (exp (gen) l) (mul (rec l) x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 286)
  (parent 176)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) x-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (7 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) x-0 (rec l-0))))
      (send (cat (exp (gen) l-0) (mul (rec l) x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 287)
  (parent 176)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 beta) (x-0 l-1))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-1))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) x-0)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-1)))))
  (label 288)
  (parent 176)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((4 2) (6 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (rec l)))
      (send (cat (exp (gen) l-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv l) (send l)))
  (label 289)
  (parent 178)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (7 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0))
    ((7 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l)))
  (label 290)
  (parent 179)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 rndx) (w expt)
    (l-1 rndx) (chi expt) (l-2 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul w (rec l-1))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-1) l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) w (rec l-1) l-2)) (x l) (y (mul w (rec l-1)))
    (y chi) (y l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b l-2))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
    (neq l l-2) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-1) l-2)) (undisclosed l-2)
    (undisclosed (mul w (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-1))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w (rec l-1) l-2)))
      (send
        (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w (rec l-1) l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))))
  (label 291)
  (parent 181)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (beta expt) (l-0 l-1 rndx) (w expt)
    (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) w x-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-1 b-1 (exp (gen) x-0)))))
  (label 292)
  (parent 181)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) w)) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w-0 (mul (rec l) (rec l-0) w)) (l-2 l-0)
      (w-1 w)) (gen) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 293)
  (parent 181)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul w (rec l-0)))
    (eta (mul y chi (rec x))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l) (mul (rec l) w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x) (mul w (rec l-0) l-1 (rec x))))
  (precedes ((0 3) (6 0)) ((1 2) (7 0)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y chi) (y (mul (rec ltxb) w (rec l-0) l-1)) (y ltxb)
    (x (mul w (rec l-0))) (x l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul w (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 1 init 3) (exp (gen) x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l-0) l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y chi (rec x)))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l) (mul (rec l) w (rec l-0))))
      (send (cat (exp (gen) l) (mul (rec l) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x) (mul w (rec l-0) l-1 (rec x))))
      (send (cat (exp (gen) x) (mul w (rec l-0) l-1 (rec x))))))
  (label 294)
  (parent 181)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 8 ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 7 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) w)))
      (send (cat (exp (gen) l) (mul (rec l) w))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 295)
  (parent 181)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 l-1 rndx) (w expt)
    (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) w y-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) (rec l-1) w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 296)
  (parent 181)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) w)))
      (send (cat (exp (gen) l-0) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w))))
  (label 297)
  (parent 181)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 rndx) (w expt) (l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) w))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-1)) (x l) (y chi)
    (y (mul (rec ltxb) w l-1)) (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w l-1)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) w)) (send (cat (exp (gen) l-1) w)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 298)
  (parent 181)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (beta expt) (x rndx)
    (w expt) (x-0 x-1 y x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 1) (6 0)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 299)
  (parent 184)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 2) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-0))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 300)
  (parent 184)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (alpha chi expt) (x rndx)
    (w expt) (y x-0 y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 1) (6 0)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-1))))))))
  (label 301)
  (parent 187)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (5 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 3) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (5 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((4 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 302)
  (parent 187)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 303)
  (parent 188)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul x w)))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 304)
  (parent 188)
  (unrealized (0 0) (0 1) (6 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3)) ((3 1) (2 0))
    ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0)) ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (precur (4 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 305)
  (parent 195)
  (unrealized (0 0) (0 1) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3)) ((3 1) (2 0))
    ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0)) ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (precur (4 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (3 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 306)
  (parent 195)
  (unrealized (0 0) (0 1) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 rndx)
    (beta expt) (x rndx) (w expt) (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 l-0) (x-2 beta))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 307)
  (parent 196)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (w expt) (l x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul w x x y (rec x-0))))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x-0)
  (absent (y (mul (rec ltxb) l)) (y ltxb) (y (mul w x x)) (x-0 (one))
    (x-0 l))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x x y)))
      (hash (exp (gen) l) (exp (gen) (mul w x x y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 1 init 3) (exp (gen) x-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x x y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 308)
  (parent 196)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb l x rndx)
    (w expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w (rec x-0) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w)))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w))
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 309)
  (parent 196)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 l-0) (y-1 alpha) (y-1 chi))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 310)
  (parent 196)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul x w)))
  (precur (4 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 311)
  (parent 196)
  (unrealized (0 0) (0 1) (3 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb x rndx)
    (w expt) (l x-0 y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi (mul x w l)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (one))
    (eta (mul x w l (rec x-0) y)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w l y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w l y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((5 2) (6 0)) ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l-0) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y (mul x w l)))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 5 ltx-gen 3) (exp (gen) l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w l))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w l y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w l y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w l y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))
      (send (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))))
  (label 312)
  (parent 196)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l x rndx) (w expt)
    (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w l-0 (rec x-0) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w l-0)))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-0 (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 313)
  (parent 196)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 x-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-1 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) x-1 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul x-1 (rec l))) (x l) (y chi) (y (mul (rec ltxb) x-1))
    (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-1) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul x-1 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-1 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) x-1 (rec l))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) x-1 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 314)
  (parent 212)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 l x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) x-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (3 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l) x-1)) (x l) (y chi) (y (mul (rec ltxb) x-1))
    (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-1) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) x-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 315)
  (parent 212)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (rec l)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (rec l)))
      (send (cat (exp (gen) x-0) (rec l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv l) (send l)))
  (label 316)
  (parent 213)
  (unrealized (0 0) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (rec x-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener x-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (7 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 1) (3 0))
    ((6 2) (5 0)) ((7 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((6 1) (1 0)) ((6 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x-0) (rec x-0) (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (rec x-0)))
      (send (cat (exp (gen) x-0) (rec x-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))) ((recv x-0) (send x-0)))
  (label 317)
  (parent 215)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) y-0 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul y-0 (rec l))) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul y-0 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-2 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) y-0 (rec l))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) y-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 318)
  (parent 216)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (3 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-2 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) y-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 319)
  (parent 216)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 l-0 rndx) (w expt) (x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) w x-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) w))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l-0) w x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-1)) (y ltxb) (x-0 beta) (x-0 l-0) (x-1 l)
    (x-1 beta-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) w x-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) w x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-1)))))
  (label 320)
  (parent 218)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w (rec l) x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w (rec l) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l))))
      (send (cat (exp (gen) x-0) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
  (label 321)
  (parent 218)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w)) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w-0 (mul (rec x-0) (rec l) w)) (x-1 x-0) (l-0 l)
      (w-1 w)) (gen) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 322)
  (parent 218)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (y rndx)
    (chi beta expt) (ltxb x rndx) (w expt) (l l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (mul w (rec l)))
    (eta (mul y chi (rec x-0))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x) (mul (rec x) w (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l) l-0 (rec x-0))))
  (precedes ((0 3) (6 0)) ((1 2) (7 0)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen y x x-0)
  (absent (y chi) (y (mul (rec ltxb) w (rec l) l-0)) (y ltxb) (x beta)
    (x l-0) (x-0 (mul w (rec l))) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l) l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 1 init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul y chi (rec x-0)))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x) (mul (rec x) w (rec l))))
      (send (cat (exp (gen) x) (mul (rec x) w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l) l-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w (rec l) l-0 (rec x-0))))))
  (label 323)
  (parent 218)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 l-0 rndx) (w expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) w y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l-0) w y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (x-0 beta) (x-0 l-0) (y-0 l)
    (y-0 alpha) (y-0 chi-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l-0) w y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 324)
  (parent 218)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (beta expt) (x-0 l rndx) (w expt) (l-0 rndx) (chi expt)
    (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul w (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w (rec l-0) l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x x-0 y)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (x-0 beta) (x-0 l)
    (y (mul w (rec l-0))) (y chi) (y l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b l-1))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w (rec l-0) l-1)))
      (send
        (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w (rec l-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))))
  (label 325)
  (parent 218)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 8 ltx-gen 3) (exp (gen) l-0) (7 0))
  (strand-map 0 1 7 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 326)
  (parent 218)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 327)
  (parent 218)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) y-0 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul y-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha)
    (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul y-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) y-0 (rec l-0))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 328)
  (parent 222)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec x-0) y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((5 1) (8 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (x-0 beta) (x-0 l-0) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec x-0) y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec x-0) y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 329)
  (parent 222)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt)
    (l-0 x-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l-0) y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha)
    (y-0 chi-0) (y-0 l-1))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 330)
  (parent 222)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) x-1 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul x-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0)
    (x-1 l-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul x-1 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-1 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) x-1 (rec l-0))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) x-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 331)
  (parent 223)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec x-0) x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((5 1) (8 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l) x-1)) (x l) (y chi) (y (mul (rec ltxb) x-1))
    (y ltxb) (x-0 beta) (x-0 l-0) (x-1 beta-0) (x-1 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-1) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec x-0) x-1)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec x-0) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-1)))))
  (label 332)
  (parent 223)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l-0) x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0)
    (x-1 l-1))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) x-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 333)
  (parent 223)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (rec l)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (x-0 l-0) (x-0 beta))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (rec l)))
      (send (cat (exp (gen) x-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv l) (send l)))
  (label 334)
  (parent 225)
  (unrealized (0 0) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (rec x-0)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener x-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (8 0))
    ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((4 1) (3 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x-0) (rec x-0) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (rec x-0)))
      (send (cat (exp (gen) x-0) (rec x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))) ((recv x-0) (send x-0)))
  (label 335)
  (parent 227)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (beta-0 expt) (l-1 x-0 rndx)
    (w expt) (x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) w x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) w))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l-1) w x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 l-0)
    (x-1 beta-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul (rec l-1) w x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-1) w x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) w x-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) w x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-2 b-2 (exp (gen) x-1)))))
  (label 336)
  (parent 229)
  (unrealized (0 0) (1 1) (1 3) (3 0) (9 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l-0) (x-0 beta))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 init 3) (exp (gen) x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w)))
      (send (cat (exp (gen) x-0) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
  (label 337)
  (parent 229)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l l-0 x-0 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w)) (x l-0) (y chi) (y (mul (rec ltxb) w))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w-0 (mul (rec l-0) (rec x-0) w)) (x-1 x-0)
      (w-1 w)) (gen) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 338)
  (parent 229)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (y rndx) (chi beta expt)
    (ltxb l x rndx) (w expt) (l-0 l-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x-0) (beta (mul w (rec l-0)))
    (eta (mul y chi (rec x-0))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x) (mul (rec x) w (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l-0) l-1 (rec x-0))))
  (precedes ((0 3) (7 0)) ((1 2) (8 0)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen y x x-0)
  (absent (y chi) (y (mul (rec ltxb) w (rec l-0) l-1)) (y ltxb) (x beta)
    (x l) (x-0 (mul w (rec l-0))) (x-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul w (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 1 init 3) (exp (gen) x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l-0) l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul y chi (rec x-0)))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x) (mul (rec x) w (rec l-0))))
      (send (cat (exp (gen) x) (mul (rec x) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l-0) l-1 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w (rec l-0) l-1 (rec x-0))))))
  (label 339)
  (parent 229)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (alpha chi-0 expt) (l-1 x-0 rndx)
    (w expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l-1) w y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 l-0)
    (y-0 alpha) (y-0 chi-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul (rec l-1) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-1) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l-1) (rec x-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 340)
  (parent 229)
  (unrealized (0 0) (1 1) (1 3) (3 0) (9 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l l-0 x-0 rndx) (w expt) (l-1 rndx) (chi expt) (l-2 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul w (rec l-1))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l-0) w (rec l-1) l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w (rec l-1) l-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
  (precedes ((0 3) (8 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x x-0 y)
  (absent (x (mul (rec l-0) w (rec l-1) l-2)) (x l-0) (x-0 beta) (x-0 l)
    (y (mul w (rec l-1))) (y chi) (y l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b l-2) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
    (neq l-0 l-2) (undisclosed l-0)
    (undisclosed (mul (rec l-0) w (rec l-1) l-2)) (undisclosed l-2)
    (undisclosed (mul w (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 0 resp 4) (exp (gen) y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-1))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w (rec l-1) l-2)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l-0) (rec x-0) w (rec l-1) l-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))))
  (label 341)
  (parent 229)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 9 ltx-gen 3) (exp (gen) l-1) (8 0))
  (strand-map 0 1 8 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w))))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 342)
  (parent 229)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 9 ltx-gen 3) (exp (gen) l-1) (8 0))
  (strand-map 0 1 2 3 4 8 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w l-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 343)
  (parent 229)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 rndx) (w expt) (l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w l-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) w))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w l-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) w)) (send (cat (exp (gen) l-1) w)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 344)
  (parent 229)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0)) ((6 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (precur (2 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (4 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 345)
  (parent 235)
  (unrealized (0 0) (0 1) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0)) ((6 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y x))
  (precur (2 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (4 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 346)
  (parent 235)
  (unrealized (0 0) (0 1) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 rndx)
    (beta expt) (x rndx) (w expt) (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 l-0) (x-2 beta))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 347)
  (parent 236)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (w expt) (l x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul w x x y (rec x-0))))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x-0)
  (absent (y (mul (rec ltxb) l)) (y ltxb) (y (mul w x x)) (x-0 (one))
    (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x x y)))
      (hash (exp (gen) l) (exp (gen) (mul w x x y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 1 init 3) (exp (gen) x-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 348)
  (parent 236)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb l x rndx)
    (w expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w (rec x-0) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w))
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 349)
  (parent 236)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 l-0) (y-1 alpha) (y-1 chi))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 350)
  (parent 236)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul x w)))
  (precur (2 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 351)
  (parent 236)
  (unrealized (0 0) (0 1) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb x rndx)
    (w expt) (l x-0 y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi (mul x w l)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (one))
    (eta (mul x w l (rec x-0) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w l y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w l y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((5 2) (6 0)) ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l-0) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y (mul x w l)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 5 ltx-gen 3) (exp (gen) l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w l))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w l y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w l y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w l y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w l y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))
      (send (cat (exp (gen) l-0) (mul x w l (rec x-0) y (rec l-0))))))
  (label 352)
  (parent 236)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l x rndx) (w expt)
    (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w l-0 (rec x-0) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-0 (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 353)
  (parent 236)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta w expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul w x-0 (rec l))))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul w x-0 (rec l))))
      (send (cat (gen) (mul w x-0 (rec l)))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 354)
  (parent 237)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) w x-0)))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) w x-0)))
      (send (cat (gen) (mul (rec l) w x-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 355)
  (parent 237)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l)))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 2 ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l)) (send (cat (gen) l)))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l))) (send (cat (gen) (mul l l)))))
  (label 356)
  (parent 239)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-0 l) (w l)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l)) (send (cat (gen) l))))
  (label 357)
  (parent 239)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l-0)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l-0))) (send (cat (gen) (mul l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 358)
  (parent 239)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul w l)))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb) (l w))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul w l))) (send (cat (gen) (mul w l)))))
  (label 359)
  (parent 239)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) w)))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w)) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) w)))
      (send (cat (gen) (mul (rec l) w))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))) ((recv l) (send l)))
  (label 360)
  (parent 239)
  (unrealized (0 0) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul w y-0 (rec l))))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul w y-0 (rec l))))
      (send (cat (gen) (mul w y-0 (rec l)))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 361)
  (parent 240)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) w y-0)))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) w y-0)))
      (send (cat (gen) (mul (rec l) w y-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 362)
  (parent 240)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l rndx) (w expt)
    (l-0 rndx) (chi expt) (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul w (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul (rec l) w (rec l-0) l-1)))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
  (deflistener y)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (y (mul w (rec l-0)))
    (y chi) (y l-1))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b l-1))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w (rec l-0) l-1 (rec y))
    (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul (rec l) w (rec l-0) l-1)))
      (send (cat (gen) (mul (rec l) w (rec l-0) l-1))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y)))))
    ((recv y) (send y)))
  (label 363)
  (parent 241)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx)
    (alpha expt) (l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta y))
  (deflistener (cat (gen) (mul (rec l) alpha l-0)))
  (deflistener (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y l-0) (y x))
  (precur (2 0) (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (mul (rec l) alpha l-0)))
      (send (cat (gen) (mul (rec l) alpha l-0))))
    ((recv (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 364)
  (parent 242)
  (unrealized (0 0) (1 1) (2 0) (4 0) (5 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))))
  (label 365)
  (parent 242)
  (unrealized (0 0) (0 1) (7 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) l))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (3 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 7 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) l)) (send (cat (exp (gen) l-0) l)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 366)
  (parent 243)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul (rec l) l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l-0) (y chi) (y (mul (rec ltxb) l-0 l-0)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul (rec l) l-0 l-0)))
      (send (cat (exp (gen) l) (mul (rec l) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 367)
  (parent 243)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w (mul l (rec l-0))) (l-2 l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l (rec l-0))))
      (send (cat (exp (gen) l-0) (mul l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 368)
  (parent 243)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l-1))
  (deflistener (hash (exp (gen) (mul l l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y chi) (y (mul (rec ltxb) l l-1)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-1) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l-1)) (send (cat (gen) l-1)))
    ((recv (hash (exp (gen) (mul l l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l (rec l-0) l-1)))
      (send (cat (exp (gen) l-0) (mul l (rec l-0) l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 369)
  (parent 243)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul (rec l) w)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) w l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) w)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0)) (y ltxb) (l-1 (mul (rec l) w)))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l) w))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) (rec l) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w))
    (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul (rec l) w)))
      (send (cat (gen) (mul (rec l) w))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) w l-0 (rec l-1))))
      (send (cat (exp (gen) l-1) (mul (rec l) w l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 370)
  (parent 243)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w l)))
  (deflistener (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul w l l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l-0) (y chi) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (l-0 (mul w l)))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w l)) (mul w l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w l))) (send (cat (gen) (mul w l))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul w l l-0 (rec l-1))))
      (send (cat (exp (gen) l-1) (mul w l l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 371)
  (parent 243)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb l rndx)
    (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (rec l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (rec l)))
      (send (cat (exp (gen) y-0) (rec l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv l) (send l)))
  (label 372)
  (parent 246)
  (unrealized (0 0) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) x-0 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul x-0 (rec l))) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul x-0 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-2 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) x-0 (rec l))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) x-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-0)))))
  (label 373)
  (parent 247)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (3 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-2 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l) x-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l) x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 374)
  (parent 247)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (rec y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener y-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (7 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 1) (3 0))
    ((6 2) (5 0)) ((7 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((6 1) (1 0)) ((6 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0) (rec y-0) (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (rec y-0)))
      (send (cat (exp (gen) y-0) (rec y-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))) ((recv y-0) (send y-0)))
  (label 375)
  (parent 249)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-1 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) y-1 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul y-1 (rec l))) (x l) (y chi) (y (mul (rec ltxb) y-1))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1)
    (y-1 l))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-1) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul y-1 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-1 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) y-1 (rec l))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) y-1 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 376)
  (parent 250)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (y-0 l y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l) y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (3 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l) y-1)) (x l) (y chi) (y (mul (rec ltxb) y-1))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1)
    (y-1 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-1) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l) y-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l) y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 377)
  (parent 250)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (alpha chi expt) (y l rndx)
    (w expt) (l-0 rndx) (chi-0 expt) (l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul w (rec l-0))) (chi chi-0))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) y) (mul (rec y) (rec l) w (rec l-0) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y) (alpha alpha) (chi chi))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1))
      (exp (gen) (mul chi-0 y-0))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi-0 y-0))))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l-0) l-1 (rec y-0))))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (y alpha) (y chi)
    (y l) (y-0 (mul w (rec l-0))) (y-0 chi-0) (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b l-1))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l-0) l-1))
        (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul w (rec l-0) l-1))
        (exp (gen) (mul chi-0 y-0)))) (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y) (mul (rec y) (rec l) w (rec l-0) l-1)))
      (send (cat (exp (gen) y) (mul (rec y) (rec l) w (rec l-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l-0) l-1 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul w (rec l-0) l-1 (rec y-0))))))
  (label 378)
  (parent 252)
  (unrealized (0 0) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 l-0 rndx)
    (w expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l-0) w x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0) (x-0 l) (x-0 beta))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) w x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-2 a-2 b-1 (exp (gen) x-0)))))
  (label 379)
  (parent 252)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w)) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w-0 (mul (rec y-0) (rec l) w)) (y-1 y-0) (l-0 l)
      (w-1 w)) (gen) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 380)
  (parent 252)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 rndx) (w expt) (l l-0 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w (rec l)))
    (eta (mul y chi (rec x))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))
  (precedes ((0 3) (6 0)) ((1 2) (7 0)) ((2 1) (1 0)) ((2 1) (4 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen y y-0 x)
  (absent (y chi) (y (mul (rec ltxb) w (rec l) l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0) (x (mul w (rec l))) (x l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l) l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 1 init 3) (exp (gen) x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y chi (rec x)))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w (rec l))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))
      (send (cat (exp (gen) x) (mul w (rec l) l-0 (rec x))))))
  (label 381)
  (parent 252)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (y-0 l-0 rndx) (w expt) (y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) w))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l-0) w y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0) (y-1 l) (y-1 alpha-0) (y-1 chi-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) w y-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l-0) w y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul l alpha-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 382)
  (parent 252)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (w expt) (l rndx) (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w (rec l) y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w (rec l) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l))))
      (send (cat (exp (gen) y-0) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
  (label 383)
  (parent 252)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 8 ltx-gen 3) (exp (gen) l-0) (7 0))
  (strand-map 0 1 7 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 384)
  (parent 252)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 385)
  (parent 252)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) y-1 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul y-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul y-1 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-1 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) y-1 (rec l-0))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) y-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 386)
  (parent 256)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (l y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec y-0) y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((5 1) (8 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l) y-1)) (x l) (y chi) (y (mul (rec ltxb) y-1))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0) (y-1 alpha-0) (y-1 chi-1)
    (y-1 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-1) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec y-0) y-1)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec y-0) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 387)
  (parent 256)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l-0) y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 alpha-0) (y-1 chi-1) (y-1 l-1))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) y-1) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-1) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) y-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-1) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 388)
  (parent 256)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx) (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (rec l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
  (deflistener l)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) y-0)) (x l) (y chi) (y (mul (rec ltxb) y-0))
    (y ltxb) (y-0 l-0) (y-0 alpha) (y-0 chi-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) y-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) y-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (rec l)))
      (send (cat (exp (gen) y-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) y-0) (exp (gen) (mul y chi)))))
    ((recv l) (send l)))
  (label 389)
  (parent 257)
  (unrealized (0 0) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) x-0 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul x-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul x-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) x-0 (rec l-0))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-0)))))
  (label 390)
  (parent 259)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec y-0) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((5 1) (8 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l) x-0)) (x l) (y chi) (y (mul (rec ltxb) x-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0) (x-0 beta) (x-0 l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec y-0) x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec y-0) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-0)))))
  (label 391)
  (parent 259)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt)
    (l-0 y-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l-0) x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 beta) (x-0 l-1))
  (precur (3 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) x-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) x-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) x-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 392)
  (parent 259)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (rec y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener y-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (8 0))
    ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((4 1) (3 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0) (rec y-0) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (rec y-0)))
      (send (cat (exp (gen) y-0) (rec y-0))))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))) ((recv y-0) (send y-0)))
  (label 393)
  (parent 261)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l l-0 y rndx) (w expt) (l-1 rndx) (chi-0 expt) (l-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-2) (y y-0) (alpha (mul w (rec l-1))) (chi chi-0))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l-0) w (rec l-1) l-2))
    (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y) (mul (rec l-0) (rec y) w (rec l-1) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-1) l-2))
      (exp (gen) (mul chi-0 y-0))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi-0 y-0))))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l-1) l-2 (rec y-0))))
  (precedes ((0 3) (8 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w (rec l-1) l-2)) (x l-0) (y alpha) (y chi)
    (y l) (y-0 (mul w (rec l-1))) (y-0 chi-0) (y-0 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b l-2) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l-1) l-2))
        (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul w (rec l-1) l-2))
        (exp (gen) (mul chi-0 y-0)))) (neq l-0 l-2) (undisclosed l-0)
    (undisclosed (mul (rec l-0) w (rec l-1) l-2)) (undisclosed l-2)
    (undisclosed (mul w (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 0 resp 4) (exp (gen) y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-1))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y) (mul (rec l-0) (rec y) w (rec l-1) l-2)))
      (send
        (cat (exp (gen) y) (mul (rec l-0) (rec y) w (rec l-1) l-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w (rec l-1) l-2))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (hash (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-1) l-2))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (cat (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l-1) l-2 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul w (rec l-1) l-2 (rec y-0))))))
  (label 394)
  (parent 263)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (beta expt) (l-1 y-0 rndx)
    (w expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l-1) w x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 l-0) (x-0 beta))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul (rec l-1) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-1) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-2 b-2 (exp (gen) x-0)))))
  (label 395)
  (parent 263)
  (unrealized (0 0) (1 1) (1 3) (3 0) (9 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w)) (x l-0) (y chi) (y (mul (rec ltxb) w))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (mul (rec l-0) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w-0 (mul (rec l-0) (rec y-0) w)) (y-1 y-0)
      (w-1 w)) (gen) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l-0) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 396)
  (parent 263)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt) (l-0 l-1 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l-0) l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul w (rec l-0)))
    (eta (mul y chi (rec x))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x) (mul w (rec l-0) l-1 (rec x))))
  (precedes ((0 3) (7 0)) ((1 2) (8 0)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen y y-0 x)
  (absent (y chi) (y (mul (rec ltxb) w (rec l-0) l-1)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (x (mul w (rec l-0))) (x l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul w (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 1 init 3) (exp (gen) x-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l-0) l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y chi (rec x)))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w (rec l-0))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x) (mul w (rec l-0) l-1 (rec x))))
      (send (cat (exp (gen) x) (mul w (rec l-0) l-1 (rec x))))))
  (label 397)
  (parent 263)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (alpha-0 chi-1 expt)
    (l-1 y-0 rndx) (w expt) (y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-1) w y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) w))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l-1) w y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 l-0) (y-1 alpha-0) (y-1 chi-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul (rec l-1) w y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-1) w y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) w y-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-1) (rec y-0) w y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul l-0 alpha-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 398)
  (parent 263)
  (unrealized (0 0) (1 1) (1 3) (3 0) (9 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx) (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l-0) (y-0 alpha)
    (y-0 chi-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 resp 4) (exp (gen) y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w)))
      (send (cat (exp (gen) y-0) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
  (label 399)
  (parent 263)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 9 ltx-gen 3) (exp (gen) l-1) (8 0))
  (strand-map 0 1 8 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 400)
  (parent 263)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 5 9 ltx-gen 3) (exp (gen) l-1) (8 0))
  (strand-map 0 1 2 3 4 8 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w l-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 401)
  (parent 263)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx) (w expt) (l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) w))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w l-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) w)) (send (cat (exp (gen) l-1) w)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 402)
  (parent 263)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta w expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w x-0 (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 3 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w x-0 (rec l) (rec l))))
      (send (cat (exp (gen) l) (mul w x-0 (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 403)
  (parent 270)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) w x-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) w x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 404)
  (parent 270)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l l)))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x (mul l l)) (y chi) (y (mul (rec ltxb) l l l))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 3 ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l l))) (send (cat (gen) (mul l l l)))))
  (label 405)
  (parent 272)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l)))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-0 l) (w (mul l l))) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l))) (send (cat (gen) (mul l l)))))
  (label 406)
  (parent 272)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l l-0)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l l-0)) (y chi) (y (mul (rec ltxb) l l l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l l-0))) (send (cat (gen) (mul l l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))))
  (label 407)
  (parent 272)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul w l l)))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb) (l w))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul w l l))) (send (cat (gen) (mul w l l)))))
  (label 408)
  (parent 272)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w)) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) w)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) (rec l) w)
    (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) w)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))) ((recv l) (send l)))
  (label 409)
  (parent 272)
  (unrealized (0 0) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w y-0 (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 3 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w y-0 (rec l) (rec l))))
      (send (cat (exp (gen) l) (mul w y-0 (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 410)
  (parent 273)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) w y-0)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) w y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 411)
  (parent 273)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l rndx) (w expt)
    (l-0 rndx) (chi expt) (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul w (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi y)))
  (deflistener
    (cat (exp (gen) l) (mul (rec l) (rec l) w (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
  (deflistener y)
  (precedes ((0 3) (7 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (y (mul w (rec l-0)))
    (y chi) (y l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w (rec l-0) l-1 (rec y))
    (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul w (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l) w (rec l-0) l-1)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l) w (rec l-0) l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y)))))
    ((recv y) (send y)))
  (label 412)
  (parent 274)
  (unrealized (0 0) (1 1) (1 3) (2 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l l)))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x (mul l l)) (y chi) (y (mul (rec ltxb) l l l))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 3 ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l l)))
      (send (cat (exp (gen) l) (mul l l)))))
  (label 413)
  (parent 275)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (w l) (l-0 l)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l))))
  (label 414)
  (parent 275)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l l-0)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l l-0)) (y chi) (y (mul (rec ltxb) l l l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l l-0)))
      (send (cat (exp (gen) l) (mul l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))))
  (label 415)
  (parent 275)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l)))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb) (l w))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l)))
      (send (cat (exp (gen) l) (mul w l)))))
  (label 416)
  (parent 275)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w (rec l)) (2 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w (rec l))))
      (send (cat (exp (gen) l) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((recv l) (send l)))
  (label 417)
  (parent 275)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (2 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l l-0)) (y chi) (y (mul (rec ltxb) l l l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 7 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l l)))
      (send (cat (exp (gen) l-0) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 418)
  (parent 276)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul (rec l) l-0 l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l-0) (x (mul l-0 l-0)) (y chi)
    (y (mul (rec ltxb) l-0 l-0 l-0)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-0 l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 3 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul (rec l) l-0 l-0 l-0)))
      (send (cat (exp (gen) l) (mul (rec l) l-0 l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 419)
  (parent 276)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w (mul l l (rec l-0))) (l-2 l-0)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l l (rec l-0))))
      (send (cat (exp (gen) l-0) (mul l l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 420)
  (parent 276)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l-1))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l l (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0))
    ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l l-1)) (y chi) (y (mul (rec ltxb) l l l-1))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-1)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l l (rec l-0) l-1)))
      (send (cat (exp (gen) l-0) (mul l l (rec l-0) l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-1 l-1)))))
  (label 421)
  (parent 276)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec l) w l-0 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l) (rec l) w l-0)) (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec l) (rec l) w l-0 l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) (rec l) w l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l) w l-0 l-0)) (y ltxb)
    (l-1 (mul (rec l) (rec l) w)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) (rec l) w l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w l-0 l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) (rec l) w))
    (mul (rec l) (rec l) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) (rec l) (rec l) w l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec l) w l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l) w)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w l-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-1) (mul (rec l) (rec l) w l-0 l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) (rec l) w l-0 l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 422)
  (parent 276)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul w l l-0 l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul w l l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w l l-0 l-0)) (y ltxb) (l-0 (mul w l)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0 l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w l)) (mul w l) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w l)))
      (send (cat (exp (gen) l-0) (mul w l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul w l l-0 l-0 (rec l-1))))
      (send (cat (exp (gen) l-1) (mul w l l-0 l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 423)
  (parent 276)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn)
    (l x y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (0 0)) ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y l) (y x) (y l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((4 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 5 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 424)
  (parent 277)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta y) (chi x) (beta l-0)
        (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na) (nb nb)
        (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (4 1)) (pt-2 (4 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y x) (y l-1))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 425)
  (parent 277)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1) (y (mul x w)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 426)
  (parent 278)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self a-0 b name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 l-2) (x-2 beta))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2)))))
  (label 427)
  (parent 278)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (chi (mul x w)) (y-0 y)
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 428)
  (parent 278)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (w expt)
    (l-0 l-1 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul w x x)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta l-1)
    (eta (mul w x x y (rec x-0))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l-0 l-1)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0 l-1)) (y l) (y (mul w x x)) (x-0 l-0)
    (x-0 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l-0) (pv self l))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed l-1) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 1 init 3) (exp (gen) x-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 429)
  (parent 278)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor) (l l) (y y) (alpha (mul (rec l) l-0 l-2))
    (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor-1) (l l-2) (x x-0) (beta l-0)
    (eta (mul x w l-1 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (1 0)) ((5 2) (4 0)))
  (non-orig (privk "sig" self) (privk "sig" self-0))
  (uniq-orig na nb l-0 l-2)
  (uniq-gen x-0 y)
  (absent (x-0 l-0) (x-0 l-2) (y (mul (rec l) l-0 l-2)) (y l)
    (y (mul x w l-1)))
  (precur (2 0) (4 0))
  (gen-st (pv self l) (pv self-0 l-2))
  (facts (neq self self-0) (neq self-0 self)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l-2 l) (undisclosed l-2) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-2)))
  (leads-to ((5 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 6 ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 5 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig
          (body self-0 (exp (gen) (mul (rec l) l-0 l-2))
            (pubk "sig" self-0)) (privk "sig" self-0)))
      (recv (cat na self-0 self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))
      (send (cat na self-0 self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 430)
  (parent 278)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul x w y)) (y-1 l-2) (y-1 alpha) (y-1 chi))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul l-2 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 431)
  (parent 278)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-2)) (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-2)
    (eta (mul x w l-1 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-2) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-2)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 l-2) (y (mul l (rec l-0) l-2)) (y l-0)
    (y (mul x w l-1)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-2) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 4 ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-2) (one)))
      (send (cat (exp (gen) l-2) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))))
  (label 432)
  (parent 278)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data)
    (a self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 x rndx) (w expt) (l-2 x-0 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w l-2)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w l-2 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1 l-3)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w l-2)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-2 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 433)
  (parent 278)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn)
    (l x y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (0 0)) ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y l) (y x) (y l-0) (l-0 (one)))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((4 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 5 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 434)
  (parent 279)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta y) (chi x) (beta l-0)
        (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na) (nb nb)
        (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (4 1)) (pt-2 (4 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (l-0 (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y x)
    (y l-1))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 435)
  (parent 279)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (l-0 (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1)
    (y (mul x w)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 436)
  (parent 280)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self a-0 b name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (l-1 (one)) (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1))
    (y l-0) (y (mul x w x-0)) (x-2 l-2) (x-2 beta))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2)))))
  (label 437)
  (parent 280)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x-0 y)
  (absent (l-1 (one)) (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1))
    (y l-0) (y (mul x w)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (chi (mul x w)) (y-0 y)
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 438)
  (parent 280)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (w expt)
    (l-0 l-1 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul w x x)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta l-1)
    (eta (mul w x x y (rec x-0))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l-0 l-1)
  (uniq-gen y x-0)
  (absent (l-1 (one)) (y (mul (rec l) l-0 l-1)) (y l) (y (mul w x x))
    (x-0 l-0) (x-0 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l-0) (pv self l))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed l-1) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 1 init 3) (exp (gen) x-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 439)
  (parent 280)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor) (l l) (y y) (alpha (mul (rec l) l-0 l-2))
    (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor-1) (l l-2) (x x-0) (beta l-0)
    (eta (mul x w l-1 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (1 0)) ((5 2) (4 0)))
  (non-orig (privk "sig" self) (privk "sig" self-0))
  (uniq-orig na nb l-0 l-2)
  (uniq-gen x-0 y)
  (absent (l-0 (one)) (x-0 l-0) (x-0 l-2) (y (mul (rec l) l-0 l-2))
    (y l) (y (mul x w l-1)))
  (precur (2 0) (4 0))
  (gen-st (pv self l) (pv self-0 l-2))
  (facts (neq self self-0) (neq self-0 self)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l-2 l) (undisclosed l-2) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-2)))
  (leads-to ((5 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 6 ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 5 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig
          (body self-0 (exp (gen) (mul (rec l) l-0 l-2))
            (pubk "sig" self-0)) (privk "sig" self-0)))
      (recv (cat na self-0 self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))
      (send (cat na self-0 self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 440)
  (parent 280)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (l-1 (one)) (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1))
    (y-0 l-0) (y-0 (mul x w y)) (y-1 l-2) (y-1 alpha) (y-1 chi))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul l-2 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 441)
  (parent 280)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-2)) (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-2)
    (eta (mul x w l-1 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-2) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-2)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 l-2) (y (mul l (rec l-0) l-2)) (y l-0)
    (y (mul x w l-1)) (l-2 (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-2) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 4 ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-2) (one)))
      (send (cat (exp (gen) l-2) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))))
  (label 442)
  (parent 280)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data)
    (a self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 x rndx) (w expt) (l-2 x-0 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w l-2)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w l-2 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1 l-3)
  (uniq-gen x-0 y)
  (absent (l-1 (one)) (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1))
    (y l-0) (y (mul x w l-2)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-2 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 443)
  (parent 280)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn)
    (l x y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (0 0)) ((4 2) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (l (one)) (x l) (x l-0) (y l) (y x) (y l-0))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((4 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 5 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 444)
  (parent 281)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta y) (chi x) (beta l-0)
        (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na) (nb nb)
        (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (4 1)) (pt-2 (4 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta y))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (1 3)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (l (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y x)
    (y l-1))
  (precur (3 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))) (neq l l-1)
    (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 445)
  (parent 281)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (l (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y l-1)
    (y (mul x w)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 446)
  (parent 282)
  (unrealized (0 0) (0 1))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self a-0 b name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (l (one)) (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 l-2) (x-2 beta))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2)))))
  (label 447)
  (parent 282)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1)
  (uniq-gen x-0 y)
  (absent (l (one)) (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (chi (mul x w)) (y-0 y)
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 448)
  (parent 282)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (w expt)
    (l-0 l-1 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul w x x)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta l-1)
    (eta (mul w x x y (rec x-0))))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l-0 l-1)
  (uniq-gen y x-0)
  (absent (l-0 (one)) (y (mul (rec l) l-0 l-1)) (y l) (y (mul w x x))
    (x-0 l-0) (x-0 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l-0) (pv self l))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul w x x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed l-1) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 1 init 3) (exp (gen) x-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 449)
  (parent 282)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor) (l l) (y y) (alpha (mul (rec l) l-0 l-2))
    (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a self-0) (b self)
    (priv-stor priv-stor-1) (l l-2) (x x-0) (beta l-0)
    (eta (mul x w l-1 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (1 0)) ((5 2) (4 0)))
  (non-orig (privk "sig" self) (privk "sig" self-0))
  (uniq-orig na nb l-0 l-2)
  (uniq-gen x-0 y)
  (absent (x-0 l-0) (x-0 l-2) (y (mul (rec l) l-0 l-2)) (y l)
    (y (mul x w l-1)) (l-2 (one)))
  (precur (2 0) (4 0))
  (gen-st (pv self l) (pv self-0 l-2))
  (facts (neq self self-0) (neq self-0 self)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l-2 l) (undisclosed l-2) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-2)))
  (leads-to ((5 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 2 6 ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 5 2 3 4)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig
          (body self-0 (exp (gen) (mul (rec l) l-0 l-2))
            (pubk "sig" self-0)) (privk "sig" self-0)))
      (recv (cat na self-0 self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))
      (send (cat na self-0 self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb self-0 self
            (hash (exp (gen) (mul l-0 l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 450)
  (parent 282)
  (unrealized (0 0) (0 1) (1 3) (4 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (l (one)) (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1))
    (y-0 l-0) (y-0 (mul x w y)) (y-1 l-2) (y-1 alpha) (y-1 chi))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul l-2 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 451)
  (parent 282)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-2)) (chi (mul x w l-1)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-2)
    (eta (mul x w l-1 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-2) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-2)
  (uniq-gen x-0 y)
  (absent (l (one)) (x-0 l) (x-0 l-2) (y (mul l (rec l-0) l-2)) (y l-0)
    (y (mul x w l-1)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l l-2)) (exp (gen) (mul x w l-1 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-2) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 6 4 ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-2))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-2) (one)))
      (send (cat (exp (gen) l-2) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))))
  (label 452)
  (parent 282)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data)
    (a self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 x rndx) (w expt) (l-2 x-0 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w l-2)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w l-2 (rec x-0) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-1 l-3)
  (uniq-gen x-0 y)
  (absent (l (one)) (x-0 l) (x-0 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w l-2)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w l-2 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-2 (rec x-0) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w l-2 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul x w l-2 (rec x-0) y (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 453)
  (parent 282)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0))
    ((7 1) (2 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (2 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-0 (7 0)
    (ch-msg priv-stor-0 (cat pt-1 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0)))
  (label 454)
  (parent 290)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 rndx) (w expt)
    (l-1 rndx) (chi expt) (l-2 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul w (rec l-1))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-1) l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
  (deflistener y)
  (precedes ((0 3) (8 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) w (rec l-1) l-2)) (x l) (y (mul w (rec l-1)))
    (y chi) (y l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b l-2))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
    (neq l l-2) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-1) l-2)) (undisclosed l-2)
    (undisclosed (mul w (rec l-1))))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w (rec l-1) l-2 (rec y))
    (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-1))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w (rec l-1) l-2)))
      (send
        (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w (rec l-1) l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y)))))
    ((recv y) (send y)))
  (label 455)
  (parent 291)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (mul (rec l) w x-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (mul (rec l) w x-0 (rec l-0))))
      (send (cat (exp (gen) l) (mul (rec l) w x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 456)
  (parent 292)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) w x-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) w x-0 (rec l-0))))
      (send (cat (exp (gen) l-0) (mul (rec l) w x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 457)
  (parent 292)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 rndx) (w expt)
    (x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-1))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w x-0)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-1)))))
  (label 458)
  (parent 292)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l-0 l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l-0 l-0)))
      (send (cat (gen) (mul l l-0 l-0)))))
  (label 459)
  (parent 293)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l-0 l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul l l-0)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l-0 l-0)))
      (send (cat (gen) (mul l l-0 l-0)))))
  (label 460)
  (parent 293)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-1 l) (l-2 l-0) (w (mul l l-0)))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l-0))) (send (cat (gen) (mul l l-0)))))
  (label 461)
  (parent 293)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l-0 l-1)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-1)) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l-0 l-1)))
      (send (cat (gen) (mul l l-0 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 462)
  (parent 293)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l) w l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0 l-1)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1)) (y ltxb)
    (l-1 (mul (rec l) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w))
    (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) w)))
      (send (cat (exp (gen) l-1) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0 l-1)))
      (send (cat (gen) (mul (rec l) w l-0 l-1)))))
  (label 463)
  (parent 293)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l) w l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0 l-1)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1)) (y ltxb)
    (l-0 (mul (rec l) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec l) w))
    (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) w)))
      (send (cat (exp (gen) l-1) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0 l-1)))
      (send (cat (gen) (mul (rec l) w l-0 l-1)))))
  (label 464)
  (parent 293)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (2 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul l l-0)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 7 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l l-0)))
      (send (cat (exp (gen) l-0) (mul l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 465)
  (parent 295)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 3 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 466)
  (parent 295)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (6 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-1 l-0) (w l-0)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 467)
  (parent 295)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-1)) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-1)))
      (send (cat (exp (gen) l) (mul l-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-1 l-1)))))
  (label 468)
  (parent 295)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul w l-0)) (x l) (y chi) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (l-0 w))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 469)
  (parent 295)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) w)))
      (send (cat (exp (gen) l) (mul (rec l) w))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l)))
  (label 470)
  (parent 295)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (mul (rec l) w y-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (mul (rec l) w y-0 (rec l-0))))
      (send (cat (exp (gen) l) (mul (rec l) w y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 471)
  (parent 296)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) w y-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) w y-0 (rec l-0))))
      (send (cat (exp (gen) l-0) (mul (rec l) w y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 472)
  (parent 296)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 rndx) (w expt)
    (y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-1))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w y-0)))
      (send (cat (exp (gen) l-0) (mul (rec l) (rec l-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-1)))))
  (label 473)
  (parent 296)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l l-0)))
      (send (cat (exp (gen) l-0) (mul l l-0)))))
  (label 474)
  (parent 297)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul l l-0)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0)))))
  (label 475)
  (parent 297)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-1 l-0) (w l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0))))
  (label 476)
  (parent 297)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-1)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul l l-1)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-1)))
      (send (cat (exp (gen) l) (mul l-0 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 477)
  (parent 297)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l-0) (y chi) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (l-0 w))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0)))))
  (label 478)
  (parent 297)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0)) (x l) (y chi)
    (y (mul (rec ltxb) w l-0)) (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) w)))
      (send (cat (exp (gen) l-0) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((recv l) (send l)))
  (label 479)
  (parent 297)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l l-0)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-1)) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 8 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l l-0)))
      (send (cat (exp (gen) l-1) (mul l l-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 480)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-1 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l (rec l-0) l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x (mul l-1 l-1)) (y chi) (y (mul (rec ltxb) l l-1 l-1))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-1 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l (rec l-0) l-1 l-1)))
      (send (cat (exp (gen) l-0) (mul l (rec l-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 481)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l) (l-3 l-0) (w (mul l l-0 (rec l-1))) (l-4 l-1))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l l-0 (rec l-1))))
      (send (cat (exp (gen) l-1) (mul l l-0 (rec l-1)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 482)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul l l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l (rec l-0) l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul l l-1)) (x l-1) (y chi) (y (mul (rec ltxb) l l-1 l-1))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul l l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-1 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l (rec l-0) l-1 l-1)))
      (send (cat (exp (gen) l-0) (mul l (rec l-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 483)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 rndx) (w expt) (l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec l-0) w l-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) (rec l-0) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2 l-3)
  (uniq-gen x y)
  (absent (x (mul (rec l) (rec l-0) w l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2)) (y ltxb)
    (l-3 (mul (rec l) (rec l-0) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec l-0) w l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-3 (mul (rec l) (rec l-0) w))
    (mul (rec l) (rec l-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec l-0) w l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) (rec l-0) w)))
      (send (cat (exp (gen) l-2) (mul (rec l) (rec l-0) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 484)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi expt) (ltxb l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-2))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l l-0 (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self-1)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0))
    ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-2)) (y chi) (y (mul (rec ltxb) l l-0 l-2))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-2)) (send (cat (exp (gen) l-0) l-2)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l l-0 (rec l-1) l-2)))
      (send (cat (exp (gen) l-1) (mul l l-0 (rec l-1) l-2))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self-1 l-2)))))
  (label 485)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w l-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 l-2 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2 l-3)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 l-2)) (y ltxb)
    (l-2 (mul (rec l) w l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 l-2 (rec l-3))))
      (send
        (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 l-2 (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 486)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w l-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 l-2 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2 l-3)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 l-2)) (y ltxb)
    (l-1 (mul (rec l) w l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 l-2 (rec l-3))))
      (send
        (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 l-2 (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 487)
  (parent 298)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (3 0)) ((0 3) (5 0)) ((1 2) (0 2)) ((1 2) (6 0))
    ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (5 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 488)
  (parent 303)
  (unrealized (0 0) (0 1) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 l-1) (x-1 beta))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 489)
  (parent 304)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx) (w expt)
    (l-0 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (one))
    (eta (mul w x y (rec x-0))))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0)) (y l) (y (mul w x)) (x-0 (one))
    (x-0 l-0))
  (precur (5 0) (6 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 1 init 3) (exp (gen) x-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 490)
  (parent 304)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 491)
  (parent 304)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 492)
  (parent 304)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 493)
  (parent 304)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l x rndx) (w expt)
    (l-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-1)) (chi (mul w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w l-0 y)))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-0)))
  (deflistener (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (6 0)) ((5 1) (1 3))
    ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1)
  (uniq-gen x y)
  (absent (x (one)) (x l-1) (y (mul (rec l) l-1)) (y l) (y (mul w l-0)))
  (precur (5 0) (6 0))
  (gen-st (pv b l) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))) (neq l-1 l)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-1)))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 4 ltx-gen 3) (exp (gen) l-2) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-0)))
      (send (cat (exp (gen) y) (mul (rec x) w l-0))))
    ((recv (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))))
  (label 494)
  (parent 304)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 495)
  (parent 304)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (beta expt) (x rndx)
    (w expt) (x-0 x-1 y x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (7 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((5 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 496)
  (parent 307)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-0))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 497)
  (parent 307)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (alpha chi expt) (x rndx)
    (w expt) (y x-0 y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (7 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((5 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-1))))))))
  (label 498)
  (parent 310)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (4 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 499)
  (parent 310)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (4 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 500)
  (parent 311)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul x w)))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (3 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 501)
  (parent 311)
  (unrealized (0 0) (0 1) (7 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (x-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-1 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w x-1 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) w))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul w x-1 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0)
    (x-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-1 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-1 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w x-1 (rec l))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w x-1 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 502)
  (parent 320)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 l rndx) (w expt) (x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w x-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) w))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l) w x-1)) (x l) (y chi)
    (y (mul (rec ltxb) w x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0)
    (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-1 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w x-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 503)
  (parent 320)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l)) (send (cat (exp (gen) x-0) l)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l l)))
      (send (cat (exp (gen) x-0) (mul l l)))))
  (label 504)
  (parent 321)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (w l) (l-0 l)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l)) (send (cat (exp (gen) x-0) l))))
  (label 505)
  (parent 321)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l l-0)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l l-0)))
      (send (cat (exp (gen) x-0) (mul l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 506)
  (parent 321)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l))
    (y ltxb) (x-0 beta) (x-0 l) (l w))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w l)))
      (send (cat (exp (gen) x-0) (mul w l)))))
  (label 507)
  (parent 321)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w (rec l) x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w (rec l) x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l) x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l))))
      (send (cat (exp (gen) x-0) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((recv l) (send l)))
  (label 508)
  (parent 321)
  (unrealized (0 0) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul x-0 l l-0)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul x-0 l l-0)))
      (send (cat (gen) (mul x-0 l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 509)
  (parent 322)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul x-0 l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (x-1 x-0) (l-0 l) (w (mul x-0 l)))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul x-0 l))) (send (cat (gen) (mul x-0 l)))))
  (label 510)
  (parent 322)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 rndx) (w expt) (x-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec x-0) w x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec x-0) w x-1 l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w x-1)) (x l) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1 l)) (y ltxb) (x-1 beta) (x-1 l)
    (l (mul (rec x-0) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec x-0) w))
    (mul (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec x-0) w x-1 l)))
      (send (cat (gen) (mul (rec x-0) w x-1 l)))))
  (label 511)
  (parent 322)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (w expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w x-0 l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-0)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w)) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w))
    (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w)))
      (send (cat (exp (gen) x-0) (mul (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w x-0 l-0)))
      (send (cat (gen) (mul (rec l) w x-0 l-0)))))
  (label 512)
  (parent 322)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w y-0 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul w y-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha)
    (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-2 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w y-0 (rec l))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w y-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 513)
  (parent 324)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha)
    (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-2 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 514)
  (parent 324)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (beta expt) (x-0 l rndx) (w expt) (l-0 rndx) (chi expt)
    (l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul w (rec l-0))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w (rec l-0) l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
  (deflistener y)
  (precedes ((0 3) (8 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x x-0 y)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (x-0 beta) (x-0 l)
    (y (mul w (rec l-0))) (y chi) (y l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b l-1))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
    (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w (rec l-0) l-1 (rec y))
    (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w (rec l-0) l-1)))
      (send
        (cat (exp (gen) x-0) (mul (rec x-0) (rec l) w (rec l-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-0) l-1 (rec y)))))
    ((recv y) (send y)))
  (label 515)
  (parent 325)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul x-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul x-0 l-0)) (y chi) (y (mul (rec ltxb) l x-0 l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l x-0 l-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l x-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul x-0 l-0)))
      (send (cat (exp (gen) l) (mul x-0 l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))))
  (label 516)
  (parent 326)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) x-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x l) (x x-0) (y chi) (y (mul (rec ltxb) l x-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l x-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (x-1 x-0) (w x-0)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) x-0)) (send (cat (exp (gen) l) x-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 517)
  (parent 326)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (w expt) (l x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w l x-0))
    (y ltxb) (x-0 beta) (x-0 w) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l x-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 w) w (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w x-0)))
      (send (cat (exp (gen) l) (mul w x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 518)
  (parent 326)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener x-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (6 0))
    ((3 2) (8 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x-0) (mul (rec x-0) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))) ((recv x-0) (send x-0)))
  (label 519)
  (parent 326)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul x-0 l (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-1)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l-1))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul x-0 l (rec l-0) l-1)))
      (send (cat (exp (gen) l-0) (mul x-0 l (rec l-0) l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 520)
  (parent 327)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul x-0 l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 8 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul x-0 l)))
      (send (cat (exp (gen) l-0) (mul x-0 l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 521)
  (parent 327)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul x-0 l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (l-1 l) (w (mul x-0 l (rec l-0))) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul x-0 l (rec l-0))))
      (send (cat (exp (gen) l-0) (mul x-0 l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 522)
  (parent 327)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l rndx) (w expt) (x-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) (rec l) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec x-0) (rec l) w x-1 l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) (rec l) w x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0)) (y ltxb) (x-1 beta)
    (x-1 l-0) (l-1 (mul (rec x-0) (rec l) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) (rec l) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec x-0) (rec l) w))
    (mul (rec x-0) (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) (rec l) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec x-0) (rec l) w x-1 l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec x-0) (rec l) w x-1 l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 523)
  (parent 327)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l x-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l x-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec x-0) w l x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w l)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec x-0) w l x-1 l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l x-1 l-0)) (y ltxb) (x-1 beta)
    (x-1 l-0) (l-0 (mul (rec x-0) w l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l x-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l x-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w l x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w l))
    (mul (rec x-0) w l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w l x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w l x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w l)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul (rec x-0) w l x-1 l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul (rec x-0) w l x-1 l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 524)
  (parent 327)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 x-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 x-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w l-0 x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 x-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 x-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-0 x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 x-0 l-1)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w l-0)) (x-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w l-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) w l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 x-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 x-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w l-0 x-0 l-1 (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 x-0 l-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 525)
  (parent 327)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt) (x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w x-1 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) w))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul w x-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0)
    (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-1 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-1 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w x-1 (rec l-0))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w x-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 526)
  (parent 336)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 rndx) (w expt) (x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) w))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l) w x-1)) (x l) (y chi)
    (y (mul (rec ltxb) w x-1)) (y ltxb) (x-0 beta) (x-0 l-0)
    (x-1 beta-0) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w x-1)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-1)))))
  (label 527)
  (parent 336)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 rndx) (w expt)
    (x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) w))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul (rec l-0) w x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-1)) (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0)
    (x-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w x-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w x-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 528)
  (parent 336)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l-0))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 5 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l l-0)))
      (send (cat (exp (gen) x-0) (mul l l-0)))))
  (label 529)
  (parent 337)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul l-0 l-0)))))
  (label 530)
  (parent 337)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 l) (x-0 beta))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-1 l-0) (w l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0))))
  (label 531)
  (parent 337)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (beta expt) (x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-1)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-1)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-1)))
      (send (cat (exp (gen) x-0) (mul l-0 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 532)
  (parent 337)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l rndx) (beta expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l-0) (y chi) (y (mul (rec ltxb) w x-0 l-0))
    (y ltxb) (x-0 l) (x-0 beta) (l-0 w))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w l-0)))
      (send (cat (exp (gen) x-0) (mul w l-0)))))
  (label 533)
  (parent 337)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx) (beta expt) (x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (deflistener l)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l-0) (x-0 beta))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w)))
      (send (cat (exp (gen) x-0) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((recv l) (send l)))
  (label 534)
  (parent 337)
  (unrealized (0 0) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul x-0 l-0 l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-0)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul x-0 l-0 l-0)))
      (send (cat (gen) (mul x-0 l-0 l-0)))))
  (label 535)
  (parent 338)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l-0 x-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (x x-0) (y chi) (y (mul (rec ltxb) l-0 x-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (x-1 x-0) (w (mul l-0 x-0))) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l-0 x-0))) (send (cat (gen) (mul l-0 x-0)))))
  (label 536)
  (parent 338)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l-0 x-0 l-1)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul x-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 x-0 l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l-0 x-0 l-1)))
      (send (cat (gen) (mul l-0 x-0 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 537)
  (parent 338)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l l-0 rndx) (w expt) (l-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1 x-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-0) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l-0) w l-1 x-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l-0) w l-1 x-0)) (y ltxb) (x-0 beta) (x-0 l)
    (x-0 (mul (rec l-0) w)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l-0) w x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l-0) w))
    (mul (rec l-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) w)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l-0) w l-1 x-0)))
      (send (cat (gen) (mul (rec l-0) w l-1 x-0)))))
  (label 538)
  (parent 338)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec x-0) w x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l-0 x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec x-0) w l-0 x-1)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l-0 x-1)) (y ltxb)
    (l-0 (mul (rec x-0) w)) (x-1 beta) (x-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w))
    (mul (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec x-0) w l-0 x-1)))
      (send (cat (gen) (mul (rec x-0) w l-0 x-1)))))
  (label 539)
  (parent 338)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w y-0 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul w y-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha)
    (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w y-0 (rec l-0))))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 540)
  (parent 340)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (x-0 beta) (x-0 l-0) (y-0 alpha)
    (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec x-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 541)
  (parent 340)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 x-0 rndx)
    (w expt) (y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul (rec l-0) w y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha)
    (y-0 chi-0) (y-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 542)
  (parent 340)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (beta expt)
    (l l-0 x-0 rndx) (w expt) (l-1 rndx) (chi expt) (l-2 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul w (rec l-1))) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l-0) w (rec l-1) l-2)) (eta (mul (rec x) chi y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w (rec l-1) l-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
  (deflistener (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
  (deflistener y)
  (precedes ((0 3) (9 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 1) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x x-0 y)
  (absent (x (mul (rec l-0) w (rec l-1) l-2)) (x l-0) (x-0 beta) (x-0 l)
    (y (mul w (rec l-1))) (y chi) (y l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b l-2) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y)))
      (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
    (neq l-0 l-2) (undisclosed l-0)
    (undisclosed (mul (rec l-0) w (rec l-1) l-2)) (undisclosed l-2)
    (undisclosed (mul w (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w (rec l-1) l-2 (rec y))
    (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-1))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi y))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-0) (mul (rec l-0) (rec x-0) w (rec l-1) l-2)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l-0) (rec x-0) w (rec l-1) l-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (hash (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi y))))
      (send
        (cat (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi y)))))
    ((recv (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y))))
      (send (cat (exp (gen) y) (mul w (rec l-1) l-2 (rec y)))))
    ((recv y) (send y)))
  (label 543)
  (parent 341)
  (unrealized (0 0) (1 1) (1 3) (3 0) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul x-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 1) (2 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-0)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 8 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) x-0 l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul x-0 l-0)))
      (send (cat (exp (gen) l-0) (mul x-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 544)
  (parent 342)
  (unrealized (0 0) (0 1) (1 3) (2 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) x-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (x x-0) (y chi) (y (mul (rec ltxb) l-0 x-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (x-1 x-0) (w x-0)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) x-0)) (send (cat (exp (gen) l-0) x-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 545)
  (parent 342)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul x-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)) ((9 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul x-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 x-0 l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0 l-1)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 x-0 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul x-0 l-1)))
      (send (cat (exp (gen) l-0) (mul x-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 546)
  (parent 342)
  (unrealized (0 0) (0 1) (1 3) (2 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l-0) (y chi) (y (mul (rec ltxb) w l-0 x-0))
    (y ltxb) (x-0 beta) (x-0 l) (x-0 w))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0 x-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 w) w (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l-0 x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul w x-0)))
      (send (cat (exp (gen) l-0) (mul w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 547)
  (parent 342)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener x-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (7 0))
    ((3 2) (9 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)) ((9 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x-0) (mul (rec x-0) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) w)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) w))))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))) ((recv x-0) (send x-0)))
  (label 548)
  (parent 342)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l x-0 (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul x-0 l-1)) (y chi) (y (mul (rec ltxb) l x-0 l-1))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l x-0 (rec l-0) l-1)))
      (send (cat (exp (gen) l-0) (mul l x-0 (rec l-0) l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 549)
  (parent 343)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul x-0 (rec l) l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-0)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul x-0 (rec l) l-0 l-0)))
      (send (cat (exp (gen) l) (mul x-0 (rec l) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 550)
  (parent 343)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l x-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x x-0) (y chi) (y (mul (rec ltxb) l x-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l x-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (x-1 x-0) (w (mul l x-0 (rec l-0))) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l x-0 (rec l-0))))
      (send (cat (exp (gen) l-0) (mul l x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 551)
  (parent 343)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l) (rec x-0) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) (rec x-0) w x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1)) (y ltxb) (x-1 beta)
    (x-1 l-1) (l-1 (mul (rec l) (rec x-0) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) (rec x-0) w))
    (mul (rec l) (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec x-0) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 552)
  (parent 343)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 l-1 x-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 x-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w l-0 x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 l-1 x-0 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-0 x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 x-0)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w l-0)) (x-0 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w l-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) w l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w l-0 l-1 x-0 (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 l-1 x-0 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 553)
  (parent 343)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l l-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec x-0) w l x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w l)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec x-0) w l l-0 x-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l l-0 x-1)) (y ltxb)
    (l-0 (mul (rec x-0) w l)) (x-1 beta) (x-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w l x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w l))
    (mul (rec x-0) w l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w l l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w l x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w l)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w l))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul (rec x-0) w l l-0 x-1 (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul (rec x-0) w l l-0 x-1 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 554)
  (parent 343)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l-0 x-0)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul x-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 x-0 l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 9 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l-0 x-0)))
      (send (cat (exp (gen) l-1) (mul l-0 x-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 555)
  (parent 344)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul x-0 (rec l-0) l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) x-0 l-1 l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul x-0 (rec l-0) l-1 l-1)))
      (send (cat (exp (gen) l-0) (mul x-0 (rec l-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 556)
  (parent 344)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l-0 x-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x x-0) (y chi) (y (mul (rec ltxb) l-0 x-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (x-1 x-0) (w (mul l-0 x-0 (rec l-1)))
      (l-3 l-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l-0 x-0 (rec l-1))))
      (send (cat (exp (gen) l-1) (mul l-0 x-0 (rec l-1)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 557)
  (parent 344)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 rndx) (w expt) (l-1 x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l-0) (rec x-0) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-1 l-2)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l-0) (rec x-0) w x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1)) (y ltxb)
    (x-1 beta) (x-1 l) (l-2 (mul (rec l-0) (rec x-0) w)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l-0) (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l-0) (rec x-0) w))
    (mul (rec l-0) (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) (rec x-0) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 558)
  (parent 344)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 a-1 b-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi beta expt) (ltxb l l-0 x-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-2))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l-0 x-0 (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self-0)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1 l-2)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul x-0 l-2)) (y chi)
    (y (mul (rec ltxb) l-0 x-0 l-2)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0 l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-2)) (send (cat (exp (gen) x-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 x-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l-0 x-0 (rec l-1) l-2)))
      (send (cat (exp (gen) l-1) (mul l-0 x-0 (rec l-1) l-2))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self-0 l-2)))))
  (label 559)
  (parent 344)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (w expt) (l-1 l-2 x-0 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w l-1 x-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) w l-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l-0) w l-1 l-2 x-0 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-2 l-3)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w l-1 x-0)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0)) (y ltxb) (x-0 beta)
    (x-0 l) (x-0 (mul (rec l-0) w l-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w l-1 x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l-0) w l-1))
    (mul (rec l-0) w l-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w l-1 x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) w l-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) w l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec l-0) w l-1 l-2 x-0 (rec l-3))))
      (send
        (cat (exp (gen) l-3) (mul (rec l-0) w l-1 l-2 x-0 (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 560)
  (parent 344)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l x-0 rndx) (w expt) (l-0 l-1 x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w l-0 x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w l-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec x-0) w l-0 l-1 x-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-1 l-2)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l-0 x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1)) (y ltxb)
    (l-1 (mul (rec x-0) w l-0)) (x-1 beta) (x-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w l-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec x-0) w l-0))
    (mul (rec x-0) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w l-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w l-0)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec x-0) w l-0 l-1 x-1 (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec x-0) w l-0 l-1 x-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 561)
  (parent 344)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (beta expt) (x rndx)
    (w expt) (x-0 x-1 y x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (7 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((5 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 562)
  (parent 347)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 563)
  (parent 347)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (alpha chi expt) (x rndx)
    (w expt) (y x-0 y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (7 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((5 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-1))))))))
  (label 564)
  (parent 350)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (6 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((5 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 565)
  (parent 350)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 0 resp 4) (exp (gen) y-0) (4 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 566)
  (parent 351)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul x w)))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (4 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 567)
  (parent 351)
  (unrealized (0 0) (0 1) (7 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 568)
  (parent 354)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w (mul (rec x-0) l)) (x-1 x-0) (l-0 l)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 569)
  (parent 354)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta w expt) (x-0 x-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul w x-0)))
  (deflistener (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec x-1) l)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l))
    (y ltxb) (x-1 beta) (x-1 l) (l (mul w x-0)))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w x-0)) (mul w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul w x-0))) (send (cat (gen) (mul w x-0))))
    ((recv (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec x-1) l)))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec x-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 570)
  (parent 354)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta w expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w (rec l))))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l) (rec x-0) l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w (rec l))) (x l-0) (y chi)
    (y (mul (rec ltxb) w (rec l) l-0)) (y ltxb) (x-0 beta)
    (x-0 (mul w (rec l))) (x-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l) l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul w (rec l)))
    (mul w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w (rec l))))
      (send (cat (gen) (mul w (rec l)))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l) (rec x-0) l-0)))
      (send (cat (exp (gen) x-0) (mul w (rec l) (rec x-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 571)
  (parent 354)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l-0 l-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (y chi) (y (mul (rec ltxb) l-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 572)
  (parent 355)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w (mul l-0 (rec x-0))) (x-1 x-0)) (one)
    (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l-0 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 573)
  (parent 355)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) l-1))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x l-1) (y chi) (y (mul (rec ltxb) l-0 l-1)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) l-1)) (send (cat (gen) l-1)))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1)))
      (send (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 574)
  (parent 355)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 l-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul (rec l) w)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w l-1 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-1)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w)) (x-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul (rec l) w))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) (rec l) w l-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w))
    (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul (rec l) w)))
      (send (cat (gen) (mul (rec l) w))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w l-1 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul (rec l) w l-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 575)
  (parent 355)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w x-0)))
  (deflistener
    (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 l-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0)) (x l-0) (y chi) (y (mul (rec ltxb) w x-0 l-0))
    (y ltxb) (l-0 (mul w x-0)) (x-1 beta) (x-1 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w x-0)) (mul w x-0)
    (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w x-0))) (send (cat (gen) (mul w x-0))))
    ((recv (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 l-0 (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 576)
  (parent 355)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l)))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((2 1) (7 0))
    ((3 1) (1 1)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l)) (send (cat (gen) l)))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l))) (send (cat (gen) (mul l l))))
    ((recv l) (send l)))
  (label 577)
  (parent 356)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (l (one)))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 2 ltx-gen 2) l-0 (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l)) (send (cat (gen) l))))
  (label 578)
  (parent 359)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul w (rec l))))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w (rec l))) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb) (l w) (l (mul w (rec l))))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul w (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul w (rec l))))
      (send (cat (gen) (mul w (rec l)))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 579)
  (parent 359)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (a b a-0 b-0 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul w l)))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb) (l w))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w l) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul w l))) (send (cat (gen) (mul w l))))
    ((recv l) (send l)))
  (label 580)
  (parent 359)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 581)
  (parent 361)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w (mul (rec y-0) l)) (y-1 y-0) (l-0 l)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a-0 (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 582)
  (parent 361)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul w y-0)))
  (deflistener (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec y-1) l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l))
    (y ltxb) (y-1 alpha) (y-1 chi-0) (y-1 l) (l (mul w y-0)))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w y-0)) (mul w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
    ((recv (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec y-1) l)))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec y-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 583)
  (parent 361)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w (rec l))))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l) (rec y-0) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w (rec l))) (x l-0) (y chi)
    (y (mul (rec ltxb) w (rec l) l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul w (rec l))) (y-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w (rec l) l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul w (rec l)))
    (mul w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w (rec l))))
      (send (cat (gen) (mul w (rec l)))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l) (rec y-0) l-0)))
      (send (cat (exp (gen) y-0) (mul w (rec l) (rec y-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 584)
  (parent 361)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (y chi) (y (mul (rec ltxb) l-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 585)
  (parent 362)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w (mul l-0 (rec y-0))) (y-1 y-0)) (one)
    (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l-0 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 586)
  (parent 362)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) l-1))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x l-1) (y chi) (y (mul (rec ltxb) l-0 l-1)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) l-1)) (send (cat (gen) l-1)))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1)))
      (send (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 587)
  (parent 362)
  (unrealized (0 0) (0 1) (1 3) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt) (l-0 l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul (rec l) w)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w l-1 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w)) (y-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul (rec l) w))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) (rec l) w l-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w))
    (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul (rec l) w)))
      (send (cat (gen) (mul (rec l) w))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w l-1 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul (rec l) w l-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 588)
  (parent 362)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w y-0)))
  (deflistener
    (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 l-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0)) (x l-0) (y chi) (y (mul (rec ltxb) w y-0 l-0))
    (y ltxb) (l-0 (mul w y-0)) (y-1 alpha) (y-1 chi-0) (y-1 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w y-0)) (mul w y-0)
    (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
    ((recv (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 l-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y-0 l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 589)
  (parent 362)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-0)) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0) (eta y))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 1) (2 0))
    ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x l-0) (y x) (y (mul (rec l) l-0 l-0)) (y l))
  (precur (2 0) (5 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-0)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 6 ltx-gen 2) l-1 (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 590)
  (parent 364)
  (unrealized (0 0) (0 1) (2 0) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y x) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (alpha (mul l (rec l-0))) (l-2 l-0)) (one)
    (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 591)
  (parent 364)
  (unrealized (0 0) (0 1) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1) (eta y))
  (deflistener (cat (gen) l-1))
  (deflistener (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul l l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0))
    ((7 1) (2 0)) ((7 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y x) (y (mul l (rec l-0) l-1)) (y l-0))
  (precur (2 0) (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) l-1)) (send (cat (gen) l-1)))
    ((recv (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul l l-1)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul l l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))))
  (label 592)
  (parent 364)
  (unrealized (0 0) (0 1) (2 0) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l x y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l)) (eta y))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y x) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul alpha l)) (mul alpha l)
    (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 593)
  (parent 364)
  (unrealized (0 0) (0 1) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx)
    (alpha expt) (l-0 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta y))
  (deflistener (cat (gen) (mul (rec l) alpha l-0)))
  (deflistener (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener l)
  (precedes ((0 3) (4 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 1) (7 0))
    ((6 2) (5 0)) ((7 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y l-0) (y x))
  (precur (2 0) (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) alpha l-0)
    (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (mul (rec l) alpha l-0)))
      (send (cat (gen) (mul (rec l) alpha l-0))))
    ((recv (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))) ((recv l) (send l)))
  (label 594)
  (parent 364)
  (unrealized (0 0) (1 1) (2 0) (4 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l l-0 rndx) (beta expt) (x rndx) (w-0 expt) (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta w)
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 w) (x-1 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 x-0)) (x-2 l-0) (x-2 beta))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 595)
  (parent 365)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (w expt) (l rndx) (beta expt) (x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l beta)) (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta beta)
    (eta (mul w x x y (rec x-0))))
  (deflistener (cat (gen) beta))
  (deflistener
    (hash (exp (gen) (mul l beta)) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) (mul l beta)) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l) beta))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x-0)
  (absent (y (mul (rec ltxb) l beta)) (y ltxb) (y (mul w x x)) (x-0 l)
    (x-0 beta))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l beta)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l beta)) (exp (gen) (mul w x x y))))
    (neq l ltxb) (undisclosed l) (undisclosed beta) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l beta)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 1 init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l beta)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l beta))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l beta))
              (exp (gen) (mul w x x y)))))))
    ((recv (cat (gen) beta)) (send (cat (gen) beta)))
    ((recv (hash (exp (gen) (mul l beta)) (exp (gen) (mul w x x y))))
      (send (hash (exp (gen) (mul l beta)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) (mul l beta)) (exp (gen) (mul w x x y))))
      (send (cat (exp (gen) (mul l beta)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l) beta)) (send (cat (exp (gen) l) beta)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 596)
  (parent 365)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (w expt) (l x rndx) (w-0 expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta w)
    (eta (mul x w-0 (rec x-0) y)))
  (deflistener (cat (gen) w))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (gen) (mul x w-0 (rec x-0) y)))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x-0 y)
  (absent (x-0 w) (x-0 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w-0))
      (w-1 (mul x w-0 (rec x-0) y)) (x x-0) (y-1 y)
      (w-0 (mul x w-0 (rec x-0) y))) (gen) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (gen) (mul x w-0 (rec x-0) y)))
      (send (cat (gen) (mul x w-0 (rec x-0) y)))))
  (label 597)
  (parent 365)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l l-0 rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta w)
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 3) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 w) (x-0 l) (y-0 (mul (rec ltxb) w l)) (y-0 ltxb)
    (y-0 (mul x w-0 y)) (y-1 l-0) (y-1 alpha) (y-1 chi))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 598)
  (parent 365)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx)
    (alpha expt) (l-0 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta (mul w y)))
  (deflistener (cat (gen) (mul (rec l) alpha l-0)))
  (deflistener
    (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y l-0)
    (y (mul x w)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (mul (rec l) alpha l-0)))
      (send (cat (gen) (mul (rec l) alpha l-0))))
    ((recv (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 599)
  (parent 365)
  (unrealized (0 0) (1 1) (2 0) (4 0) (5 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (ltxb rndx)
    (w expt) (x rndx) (w-0 expt) (l x-0 y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi (mul x w-0 l)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta w)
    (eta (mul x w-0 l (rec x-0) y)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y))))
  (deflistener
    (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-0) (mul x w-0 l (rec x-0) y (rec l-0))))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((6 2) (7 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x-0 y)
  (absent (x-0 w) (x-0 l-0) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (y (mul x w-0 l)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 6 ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0))
              (exp (gen) (mul x w-0 l y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0))
              (exp (gen) (mul x w-0 l y)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 l y)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-0) (mul x w-0 l (rec x-0) y (rec l-0))))
      (send (cat (exp (gen) l-0) (mul x w-0 l (rec x-0) y (rec l-0))))))
  (label 600)
  (parent 365)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l x rndx) (w-0 expt) (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta w)
    (eta (mul x w-0 l-0 (rec x-0) y)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 w) (x-0 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 l-0)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l-0 (rec x-0) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 601)
  (parent 365)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w l-0 (rec l-1) l-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul (rec l) w l-0 (rec l-1) l-2)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-2)) (y ltxb)
    (l-2 (mul (rec l) w l-0)) (l-2 (mul (rec l) w l-0 (rec l-1) l-2)))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 (rec l-1) l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul (rec l) w l-0 (rec l-1) l-2)))
      (send (cat (gen) (mul (rec l) w l-0 (rec l-1) l-2))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 602)
  (parent 370)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul (rec l) w (rec l-0) (rec l-1) l-2)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) w (rec l-0) (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-2)) (y ltxb)
    (l-1 (mul (rec l) w (rec l-0)))
    (l-2 (mul (rec l) w (rec l-0) (rec l-1) l-2)))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w (rec l-0)))
    (mul (rec l) w (rec l-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul (rec l) w (rec l-0) (rec l-1) l-2)))
      (send (cat (gen) (mul (rec l) w (rec l-0) (rec l-1) l-2))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec l) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 603)
  (parent 370)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) l))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (3 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (l-0 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-1 (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) l)) (send (cat (gen) l)))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 604)
  (parent 371)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w l l-0 (rec l-1) l-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul w l l-0 (rec l-1) l-2)))
  (deflistener
    (hash (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul w l l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul w l l-0 (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) w l l-0 l-2)) (y ltxb)
    (l-1 (mul w l l-0 (rec l-1) l-2)) (l-2 (mul w l l-0)))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w l l-0 (rec l-1) l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l l-0 l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul w l l-0)) (mul w l l-0)
    (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l l-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w l l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul w l l-0 (rec l-1) l-2)))
      (send (cat (gen) (mul w l l-0 (rec l-1) l-2))))
    ((recv (hash (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w l l-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul w l l-0)))
      (send (cat (exp (gen) l-2) (mul w l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 605)
  (parent 371)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w l (rec l-0) (rec l-1) l-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul w l (rec l-0) (rec l-1) l-2)))
  (deflistener
    (hash (exp (gen) (mul w l (rec l-0) l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l (rec l-0) l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul w l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul w l (rec l-0) (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) w l (rec l-0) l-2)) (y ltxb)
    (l-1 (mul w l (rec l-0))) (l-1 (mul w l (rec l-0) (rec l-1) l-2)))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w l (rec l-0) l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w l (rec l-0) (rec l-1) l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul w l (rec l-0)))
    (mul w l (rec l-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w l (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul w l (rec l-0) (rec l-1) l-2)))
      (send (cat (gen) (mul w l (rec l-0) (rec l-1) l-2))))
    ((recv
       (hash (exp (gen) (mul w l (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w l (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w l (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w l (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul w l (rec l-0))))
      (send (cat (exp (gen) l-2) (mul w l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 606)
  (parent 371)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x rndx) (alpha chi expt) (y l rndx)
    (w expt) (l-0 rndx) (chi-0 expt) (l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul w (rec l-0))) (chi chi-0))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) y) (mul (rec y) (rec l) w (rec l-0) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y) (alpha alpha) (chi chi))
  (deflistener
    (hash (exp (gen) (mul w (rec l-0) l-1))
      (exp (gen) (mul chi-0 y-0))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-0) l-1)) (exp (gen) (mul chi-0 y-0))))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l-0) l-1 (rec y-0))))
  (deflistener y-0)
  (precedes ((0 3) (8 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l) (y alpha) (y chi)
    (y l) (y-0 (mul w (rec l-0))) (y-0 chi-0) (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b l-1))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l-0) l-1))
        (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul w (rec l-0) l-1))
        (exp (gen) (mul chi-0 y-0)))) (neq l l-1) (undisclosed l)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed l-1)
    (undisclosed (mul w (rec l-0))))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0)
    (mul w (rec l-0) l-1 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-0))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-0) l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y) (mul (rec y) (rec l) w (rec l-0) l-1)))
      (send (cat (exp (gen) y) (mul (rec y) (rec l) w (rec l-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((recv
       (hash (exp (gen) (mul w (rec l-0) l-1))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (hash (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-0) l-1))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (cat (exp (gen) (mul w (rec l-0) l-1))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l-0) l-1 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul w (rec l-0) l-1 (rec y-0)))))
    ((recv y-0) (send y-0)))
  (label 607)
  (parent 378)
  (unrealized (0 0) (1 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w x-0 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul w x-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-2 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w x-0 (rec l))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w x-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-0)))))
  (label 608)
  (parent 379)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 l rndx) (w expt)
    (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-2 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 609)
  (parent 379)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul y-0 l l-0)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul y-0 l l-0)))
      (send (cat (gen) (mul y-0 l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 610)
  (parent 380)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul y-0 l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (y-1 y-0) (l-0 l) (w (mul y-0 l)))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul y-0 l))) (send (cat (gen) (mul y-0 l)))))
  (label 611)
  (parent 380)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 rndx) (w expt) (y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec y-0) w y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec y-0) w y-1 l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w y-1)) (x l) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1 l)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l) (l (mul (rec y-0) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec y-0) w))
    (mul (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec y-0) w y-1 l)))
      (send (cat (gen) (mul (rec y-0) w y-1 l)))))
  (label 612)
  (parent 380)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb l rndx) (w expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w y-0 l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul (rec l) w)) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w))
    (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w)))
      (send (cat (exp (gen) y-0) (mul (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w y-0 l-0)))
      (send (cat (gen) (mul (rec l) w y-0 l-0)))))
  (label 613)
  (parent 380)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt) (y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-1 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w y-1 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) w))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul w y-1 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 alpha-0) (y-1 chi-1) (y-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-1 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 2 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-1 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w y-1 (rec l))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w y-1 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 614)
  (parent 382)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 l rndx)
    (w expt) (y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) w))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l) w y-1)) (x l) (y chi)
    (y (mul (rec ltxb) w y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w y-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) (rec l) w y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 615)
  (parent 382)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l)) (send (cat (exp (gen) y-0) l)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l l)))
      (send (cat (exp (gen) y-0) (mul l l)))))
  (label 616)
  (parent 383)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (w l) (l-0 l)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l)) (send (cat (exp (gen) y-0) l))))
  (label 617)
  (parent 383)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l l-0)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l l-0)))
      (send (cat (exp (gen) y-0) (mul l l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 618)
  (parent 383)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (w alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul w l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (l w))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul w l)))
      (send (cat (exp (gen) y-0) (mul w l)))))
  (label 619)
  (parent 383)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (w expt) (l rndx) (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w (rec l) y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w (rec l) y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l) y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l))))
      (send (cat (exp (gen) y-0) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((recv l) (send l)))
  (label 620)
  (parent 383)
  (unrealized (0 0) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul y-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul y-0 l-0)) (y chi) (y (mul (rec ltxb) l y-0 l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l y-0 l-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l y-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul y-0 l-0)))
      (send (cat (exp (gen) l) (mul y-0 l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))))
  (label 621)
  (parent 384)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb l y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) y-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x l) (x y-0) (y chi) (y (mul (rec ltxb) l y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l y-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (y-1 y-0) (w y-0)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) y-0)) (send (cat (exp (gen) l) y-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 622)
  (parent 384)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (w expt) (l y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w l y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 w) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l y-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 w) w (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w y-0)))
      (send (cat (exp (gen) l) (mul w y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 623)
  (parent 384)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener y-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (6 0))
    ((3 3) (8 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0) (mul (rec y-0) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))) ((recv y-0) (send y-0)))
  (label 624)
  (parent 384)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul y-0 l (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-1)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l-1))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul y-0 l (rec l-0) l-1)))
      (send (cat (exp (gen) l-0) (mul y-0 l (rec l-0) l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 625)
  (parent 385)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul y-0 l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 8 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul y-0 l)))
      (send (cat (exp (gen) l-0) (mul y-0 l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 626)
  (parent 385)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul y-0 l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-1 y-0) (l-1 l) (w (mul y-0 l (rec l-0))) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul y-0 l (rec l-0))))
      (send (cat (exp (gen) l-0) (mul y-0 l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 627)
  (parent 385)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l rndx) (w expt)
    (y-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) (rec l) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec y-0) (rec l) w y-1 l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) (rec l) w y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-0) (l-1 (mul (rec y-0) (rec l) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) (rec l) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec y-0) (rec l) w))
    (mul (rec y-0) (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) (rec l) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec y-0) (rec l) w y-1 l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec y-0) (rec l) w y-1 l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 628)
  (parent 385)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l y-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l y-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec y-0) w l y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec y-0) w l y-1 l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l y-1 l-0)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l-0) (l-0 (mul (rec y-0) w l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l y-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l y-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w l y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w l))
    (mul (rec y-0) w l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w l y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w l y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w l)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul (rec y-0) w l y-1 l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul (rec y-0) w l y-1 l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 629)
  (parent 385)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 y-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 y-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w l-0 y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 y-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 y-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-0 y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 y-0 l-1)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul (rec l) w l-0)) (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w l-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) w l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 y-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 y-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w l-0 y-0 l-1 (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 y-0 l-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 630)
  (parent 385)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (alpha chi expt)
    (l l-0 y rndx) (w expt) (l-1 rndx) (chi-0 expt) (l-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l l-2) (y y-0) (alpha (mul w (rec l-1))) (chi chi-0))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l-0) w (rec l-1) l-2))
    (eta (mul (rec x) chi-0 y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y) (mul (rec l-0) (rec y) w (rec l-1) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w (rec l-1) l-2))
      (exp (gen) (mul chi-0 y-0))))
  (deflistener
    (cat (exp (gen) (mul w (rec l-1) l-2)) (exp (gen) (mul chi-0 y-0))))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l-1) l-2 (rec y-0))))
  (deflistener y-0)
  (precedes ((0 3) (9 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0))
    ((8 1) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w (rec l-1) l-2)) (x l-0) (y alpha) (y chi)
    (y l) (y-0 (mul w (rec l-1))) (y-0 chi-0) (y-0 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b l-2) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l-1) l-2))
        (exp (gen) (mul chi-0 y-0)))
      (hash (exp (gen) (mul w (rec l-1) l-2))
        (exp (gen) (mul chi-0 y-0)))) (neq l-0 l-2) (undisclosed l-0)
    (undisclosed (mul (rec l-0) w (rec l-1) l-2)) (undisclosed l-2)
    (undisclosed (mul w (rec l-1))))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0)
    (mul w (rec l-1) l-2 (rec y-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) (mul w (rec l-1))) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) chi-0 y-0))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l-1) l-2))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y) (mul (rec l-0) (rec y) w (rec l-1) l-2)))
      (send
        (cat (exp (gen) y) (mul (rec l-0) (rec y) w (rec l-1) l-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l)) (exp (gen) (mul chi y)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w (rec l-1) l-2))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (hash (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv
       (cat (exp (gen) (mul w (rec l-1) l-2))
         (exp (gen) (mul chi-0 y-0))))
      (send
        (cat (exp (gen) (mul w (rec l-1) l-2))
          (exp (gen) (mul chi-0 y-0)))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l-1) l-2 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul w (rec l-1) l-2 (rec y-0)))))
    ((recv y-0) (send y-0)))
  (label 631)
  (parent 394)
  (unrealized (0 0) (1 1) (1 3) (3 0) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w x-0 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul w x-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w x-0 (rec l-0))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-0)))))
  (label 632)
  (parent 395)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 rndx) (w expt)
    (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l) w x-0)) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-0)))))
  (label 633)
  (parent 395)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 y-0 rndx)
    (w expt) (x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul (rec l-0) w x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (x-0 beta) (x-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 634)
  (parent 395)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul y-0 l-0 l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul y-0 l-0 l-0)))
      (send (cat (gen) (mul y-0 l-0 l-0)))))
  (label 635)
  (parent 396)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l-0 y-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (x y-0) (y chi) (y (mul (rec ltxb) l-0 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (y-1 y-0) (w (mul l-0 y-0))) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l-0 y-0))) (send (cat (gen) (mul l-0 y-0)))))
  (label 636)
  (parent 396)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l-0 y-0 l-1)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul y-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 y-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l-0 y-0 l-1)))
      (send (cat (gen) (mul l-0 y-0 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 637)
  (parent 396)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (w expt) (l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1 y-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l-0) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l-0) w l-1 y-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l-0) w l-1 y-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l) (y-0 (mul (rec l-0) w)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l-0) w y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l-0) w))
    (mul (rec l-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) w)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l-0) w l-1 y-0)))
      (send (cat (gen) (mul (rec l-0) w l-1 y-0)))))
  (label 638)
  (parent 396)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt) (l-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec y-0) w y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l-0 y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec y-0) w l-0 y-1)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l-0 y-1)) (y ltxb)
    (l-0 (mul (rec y-0) w)) (y-1 alpha) (y-1 chi-0) (y-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w))
    (mul (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec y-0) w l-0 y-1)))
      (send (cat (gen) (mul (rec y-0) w l-0 y-1)))))
  (label 639)
  (parent 396)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w y-1 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) w))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul w y-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-1 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-1 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w y-1 (rec l-0))))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w y-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 640)
  (parent 398)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l y-0 rndx)
    (w expt) (y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) w))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l) w y-1)) (x l) (y chi)
    (y (mul (rec ltxb) w y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0) (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 5 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w y-1)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec y-0) w y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 641)
  (parent 398)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 rndx) (w expt) (y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) w y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) w))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul (rec l-0) w y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-1)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-1 alpha-0) (y-1 chi-1) (y-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul (rec l-0) w y-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b-2 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-1)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w y-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec y-0) w y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 642)
  (parent 398)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (comment "6 in cohort - 6 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 5 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l l-0)))
      (send (cat (exp (gen) y-0) (mul l l-0)))))
  (label 643)
  (parent 399)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-0)) (y ltxb) (y-0 l) (y-0 alpha)
    (y-0 chi-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul l-0 l-0)))))
  (label 644)
  (parent 399)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 l) (y-0 alpha) (y-0 chi-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (l-1 l-0) (w l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0))))
  (label 645)
  (parent 399)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (alpha chi-0 expt) (y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-1)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-1)) (y ltxb) (y-0 l) (y-0 alpha)
    (y-0 chi-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-1)))
      (send (cat (exp (gen) y-0) (mul l-0 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 646)
  (parent 399)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l rndx) (alpha chi-0 expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul w l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l-0) (y chi) (y (mul (rec ltxb) w y-0 l-0))
    (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0) (l-0 w))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul w l-0)))
      (send (cat (exp (gen) y-0) (mul w l-0)))))
  (label 647)
  (parent 399)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 rndx) (alpha chi-0 expt) (y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (deflistener l)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w y-0)) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l-0) (y-0 alpha)
    (y-0 chi-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w)))
      (send (cat (exp (gen) y-0) (mul (rec l) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l-0 alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((recv l) (send l)))
  (label 648)
  (parent 399)
  (unrealized (0 0) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul y-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 1) (2 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 8 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) y-0 l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul y-0 l-0)))
      (send (cat (exp (gen) l-0) (mul y-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 649)
  (parent 400)
  (unrealized (0 0) (0 1) (1 3) (2 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) y-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (x y-0) (y chi) (y (mul (rec ltxb) l-0 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (y-1 y-0) (w y-0)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) y-0)) (send (cat (exp (gen) l-0) y-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 650)
  (parent 400)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul y-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)) ((9 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul y-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 y-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0 l-1)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 y-0 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul y-0 l-1)))
      (send (cat (exp (gen) l-0) (mul y-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 651)
  (parent 400)
  (unrealized (0 0) (0 1) (1 3) (2 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l-0) (y chi) (y (mul (rec ltxb) w l-0 y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (y-0 w))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0 y-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 w) w (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l-0 y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul w y-0)))
      (send (cat (exp (gen) l-0) (mul w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 652)
  (parent 400)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt) (l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener y-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (7 0))
    ((3 3) (9 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)) ((9 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0) (mul (rec y-0) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))) ((recv y-0) (send y-0)))
  (label 653)
  (parent 400)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l y-0 (rec l-0) l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul y-0 l-1)) (y chi) (y (mul (rec ltxb) l y-0 l-1))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l y-0 (rec l-0) l-1)))
      (send (cat (exp (gen) l-0) (mul l y-0 (rec l-0) l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 654)
  (parent 401)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul y-0 (rec l) l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul y-0 (rec l) l-0 l-0)))
      (send (cat (exp (gen) l) (mul y-0 (rec l) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 655)
  (parent 401)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l y-0 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x y-0) (y chi) (y (mul (rec ltxb) l y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l y-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (y-1 y-0) (w (mul l y-0 (rec l-0))) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l y-0 (rec l-0))))
      (send (cat (exp (gen) l-0) (mul l y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 656)
  (parent 401)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l) (rec y-0) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) (rec y-0) w y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-1) (l-1 (mul (rec l) (rec y-0) w)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) (rec y-0) w))
    (mul (rec l) (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec y-0) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 657)
  (parent 401)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 l-1 y-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 y-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w l-0 y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 l-1 y-0 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-0 y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 y-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul (rec l) w l-0)) (y-0 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w l-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) w l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w l-0 l-1 y-0 (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 l-1 y-0 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 658)
  (parent 401)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l l-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec y-0) w l y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-1) (mul (rec y-0) w l l-0 y-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l l-0 y-1)) (y ltxb)
    (l-0 (mul (rec y-0) w l)) (y-1 alpha) (y-1 chi-0) (y-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w l y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w l))
    (mul (rec y-0) w l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w l l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w l y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w l)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w l))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul (rec y-0) w l l-0 y-1 (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul (rec y-0) w l l-0 y-1 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 659)
  (parent 401)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l-0 y-0)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul y-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 y-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 9 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l-0 y-0)))
      (send (cat (exp (gen) l-1) (mul l-0 y-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 660)
  (parent 402)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul y-0 (rec l-0) l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) y-0 l-1 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul y-0 (rec l-0) l-1 l-1)))
      (send (cat (exp (gen) l-0) (mul y-0 (rec l-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 661)
  (parent 402)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l-0 y-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x y-0) (y chi) (y (mul (rec ltxb) l-0 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (y-1 y-0) (w (mul l-0 y-0 (rec l-1)))
      (l-3 l-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l-0 y-0 (rec l-1))))
      (send (cat (exp (gen) l-1) (mul l-0 y-0 (rec l-1)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self)))))
  (label 662)
  (parent 402)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx) (w expt)
    (l-1 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l-0) (rec y-0) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-1 l-2)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l-0) (rec y-0) w y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l) (l-2 (mul (rec l-0) (rec y-0) w)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l-0) (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l-0) (rec y-0) w))
    (mul (rec l-0) (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) (rec y-0) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 663)
  (parent 402)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi alpha chi-0 expt) (ltxb l l-0 y-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-2))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-1) (mul l-0 y-0 (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self-0)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1 l-2)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul y-0 l-2)) (y chi)
    (y (mul (rec ltxb) l-0 y-0 l-2)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0 l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-2)) (send (cat (exp (gen) y-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 y-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-1) (mul l-0 y-0 (rec l-1) l-2)))
      (send (cat (exp (gen) l-1) (mul l-0 y-0 (rec l-1) l-2))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self-0 l-2)))))
  (label 664)
  (parent 402)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (w expt)
    (l-1 l-2 y-0 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w l-1 y-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) w l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l-0) w l-1 l-2 y-0 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-2 l-3)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w l-1 y-0)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l) (y-0 (mul (rec l-0) w l-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w l-1 y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l-0) w l-1))
    (mul (rec l-0) w l-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w l-1 y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) w l-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) w l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec l-0) w l-1 l-2 y-0 (rec l-3))))
      (send
        (cat (exp (gen) l-3) (mul (rec l-0) w l-1 l-2 y-0 (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 665)
  (parent 402)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 l-1 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w l-0 y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec y-0) w l-0 l-1 y-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-1 l-2)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l-0 y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1)) (y ltxb)
    (l-1 (mul (rec y-0) w l-0)) (y-1 alpha) (y-1 chi-0) (y-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w l-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec y-0) w l-0))
    (mul (rec y-0) w l-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w l-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w l-0)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec y-0) w l-0 l-1 y-1 (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec y-0) w l-0 l-1 y-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 666)
  (parent 402)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l l l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul l l-0)) (y chi) (y (mul (rec ltxb) l l l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l l l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l l l-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))))
  (label 667)
  (parent 403)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l l)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (x-0 beta)
    (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w (mul (rec x-0) l l)) (x-1 x-0) (l-0 l)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l l)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 668)
  (parent 403)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta w expt) (x-0 x-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0 l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec x-1) l l)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 l)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l l))
    (y ltxb) (x-1 beta) (x-1 l) (l (mul w x-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0 l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l l)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w x-0)) (mul w x-0) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w x-0 l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0 l l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0 l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0 l l))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w x-0)))
      (send (cat (exp (gen) l) (mul w x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec x-1) l l)))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec x-1) l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 669)
  (parent 403)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta w expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) (rec l) l-0 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w (rec l) (rec l) l-0)) (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul w (rec l) (rec l) (rec x-0) l-0 l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w (rec l) (rec l) l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w (rec l) (rec l) l-0 l-0)) (y ltxb) (x-0 beta)
    (x-0 (mul w (rec l) (rec l))) (x-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w (rec l) (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec l) l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul w (rec l) (rec l)))
    (mul w (rec l) (rec l)) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w (rec l) (rec l) l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w (rec l) (rec l) l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l) (rec l))))
      (send (cat (exp (gen) l-0) (mul w (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0) (mul w (rec l) (rec l) (rec x-0) l-0 l-0)))
      (send
        (cat (exp (gen) x-0)
          (mul w (rec l) (rec l) (rec x-0) l-0 l-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 670)
  (parent 403)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l-0 l-0 l-0)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul l-0 l-0)) (y chi)
    (y (mul (rec ltxb) l-0 l-0 l-0)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 3 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l-0 l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l-0 l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 671)
  (parent 404)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l-0) (y chi) (y (mul (rec ltxb) l-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w (mul l-0 l-0 (rec x-0))) (x-1 x-0)) (one)
    (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 672)
  (parent 404)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0) l-1)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)) ((9 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul l-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 l-0 l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-0 l-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0) l-1)))
      (send (cat (exp (gen) x-0) (mul l-0 l-0 (rec x-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 673)
  (parent 404)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 l-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec l) w l-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec l) w l-1)) (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l) (rec l) w l-1 l-1 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) (rec l) w l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l) w l-1 l-1)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) (rec l) w)) (x-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec l) w l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w l-1 l-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) (rec l) w))
    (mul (rec l) (rec l) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) (rec l) (rec l) w l-1 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec l) w l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) (rec l) w)))
      (send (cat (exp (gen) l-1) (mul (rec l) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0) (mul (rec l) (rec l) w l-1 l-1 (rec x-0))))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) (rec l) w l-1 l-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 674)
  (parent 404)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 l-0 l-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 l-0 l-0)) (y ltxb) (l-0 (mul w x-0))
    (x-1 beta) (x-1 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w x-0)) (mul w x-0)
    (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w x-0 l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w x-0)))
      (send (cat (exp (gen) l-0) (mul w x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 l-0 l-0 (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 l-0 l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 675)
  (parent 404)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l l)))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x (mul l l)) (y chi) (y (mul (rec ltxb) l l l))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l l) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l l))) (send (cat (gen) (mul l l l))))
    ((recv l) (send l)))
  (label 676)
  (parent 405)
  (unrealized (0 0) (0 1) (1 3) (2 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul l l)))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul l l))) (send (cat (gen) (mul l l))))
    ((recv l) (send l)))
  (label 677)
  (parent 406)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w (rec l)))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) w) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) w))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w (rec l))) (x l) (y chi) (y (mul (rec ltxb) w))
    (y ltxb) (l w) (l (mul w (rec l) (rec l))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) w) (exp (gen) (mul y chi)))
      (hash (exp (gen) w) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul w (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) w) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w (rec l) (rec l))))
      (send (cat (exp (gen) l) (mul w (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) w) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) w) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) w) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) w)) (send (cat (gen) w))))
  (label 678)
  (parent 408)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul w l l)))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb) (l w))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w l l) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul w l l))) (send (cat (gen) (mul w l l))))
    ((recv l) (send l)))
  (label 679)
  (parent 408)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l l l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul l l-0)) (y chi) (y (mul (rec ltxb) l l l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l l l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l l l-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))))
  (label 680)
  (parent 410)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (w (mul (rec y-0) l l)) (y-1 y-0) (l-0 l)) (one) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l l)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 681)
  (parent 410)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0 l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec y-1) l l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 l)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l l))
    (y ltxb) (y-1 alpha) (y-1 chi-0) (y-1 l) (l (mul w y-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0 l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l l)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w y-0)) (mul w y-0) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w y-0 l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0 l l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0 l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0 l l))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w y-0)))
      (send (cat (exp (gen) l) (mul w y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec y-1) l l)))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec y-1) l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 682)
  (parent 410)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) (rec l) l-0 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w (rec l) (rec l) l-0)) (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul w (rec l) (rec l) (rec y-0) l-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w (rec l) (rec l) l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w (rec l) (rec l) l-0 l-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul w (rec l) (rec l))) (y-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w (rec l) (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec l) l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul w (rec l) (rec l)))
    (mul w (rec l) (rec l)) (2 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w (rec l) (rec l) l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w (rec l) (rec l) l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l) (rec l))))
      (send (cat (exp (gen) l-0) (mul w (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0) (mul w (rec l) (rec l) (rec y-0) l-0 l-0)))
      (send
        (cat (exp (gen) y-0)
          (mul w (rec l) (rec l) (rec y-0) l-0 l-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 683)
  (parent 410)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l-0 l-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul l-0 l-0)) (y chi)
    (y (mul (rec ltxb) l-0 l-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 3 ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l-0 l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l-0 l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 684)
  (parent 411)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l-0) (y chi) (y (mul (rec ltxb) l-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (w (mul l-0 l-0 (rec y-0))) (y-1 y-0)) (one)
    (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 685)
  (parent 411)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)) ((9 1) (2 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul l-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 l-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-0 l-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 l-0 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0) l-1)))
      (send (cat (exp (gen) y-0) (mul l-0 l-0 (rec y-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 686)
  (parent 411)
  (unrealized (0 0) (0 1) (1 3) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt) (l-0 l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec l) w l-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec l) w l-1)) (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) (rec l) w)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l) (rec l) w l-1 l-1 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) (rec l) w l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l) w l-1 l-1)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul (rec l) (rec l) w)) (y-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec l) w l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w l-1 l-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) (rec l) w))
    (mul (rec l) (rec l) w) (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) (rec l) (rec l) w l-1 l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec l) w l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) (rec l) w)))
      (send (cat (exp (gen) l-1) (mul (rec l) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0) (mul (rec l) (rec l) w l-1 l-1 (rec y-0))))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) (rec l) w l-1 l-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 687)
  (parent 411)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 l-0 l-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 l-0 l-0)) (y ltxb) (l-0 (mul w y-0))
    (y-1 alpha) (y-1 chi-0) (y-1 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l-0 l-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w y-0)) (mul w y-0)
    (2 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w y-0 l-0 l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w y-0)))
      (send (cat (exp (gen) l-0) (mul w y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 l-0 l-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y-0 l-0 l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 688)
  (parent 411)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l l)))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (x (mul l l)) (y chi) (y (mul (rec ltxb) l l l))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l l)))
      (send (cat (exp (gen) l) (mul l l)))) ((recv l) (send l)))
  (label 689)
  (parent 413)
  (unrealized (0 0) (0 1) (1 3) (2 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x l) (y chi) (y (mul (rec ltxb) l l)) (y ltxb) (l (one)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 7 3 ltx-gen 2) l-0 (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l))))
  (label 690)
  (parent 416)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) (mul w (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb) (l w)
    (l (mul w (rec l))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) (mul w (rec l))))
      (send (cat (exp (gen) l) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w))))
  (label 691)
  (parent 416)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w expt) (l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l)))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l) (y chi) (y (mul (rec ltxb) w l l))
    (y ltxb) (l w))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w l) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l)))
      (send (cat (exp (gen) l) (mul w l)))) ((recv l) (send l)))
  (label 692)
  (parent 416)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (8 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (2 0)) ((7 2) (6 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l l-0)) (y chi) (y (mul (rec ltxb) l l l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul l l)))
      (send (cat (exp (gen) l-0) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l)))
  (label 693)
  (parent 418)
  (unrealized (0 0) (0 1) (1 3) (2 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l) w l-0 l-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec l) w l-0 l-0 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) (rec l) w l-0 l-0 (rec l-1) (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) (rec l) w l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) (rec l) w l-0 l-0 (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l) w l-0 l-0 l-2)) (y ltxb)
    (l-2 (mul (rec l) (rec l) w l-0 l-0))
    (l-2 (mul (rec l) (rec l) w l-0 l-0 (rec l-1) (rec l-1) l-2)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec l) w l-0 l-0 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w l-0 l-0 l-2)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) (rec l) w l-0 l-0))
    (mul (rec l) (rec l) w l-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) (rec l) (rec l) w l-0 l-0 l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l) w l-0 l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) (rec l) w l-0 l-0 (rec l-1) (rec l-1) l-2)))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) (rec l) w l-0 l-0 (rec l-1) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w l-0 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) (rec l) w l-0 l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) (rec l) w l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 694)
  (parent 422)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l) w (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec l) w (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) (rec l) w (rec l-0) (rec l-1) (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) (rec l) w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) (rec l) w (rec l-0) (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l) w (rec l-0) l-2))
    (y ltxb) (l-1 (mul (rec l) (rec l) w (rec l-0)))
    (l-2 (mul (rec l) (rec l) w (rec l-0) (rec l-1) (rec l-1) l-2)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec l) w (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w (rec l-0) l-2)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec l) w (rec l-0)))
    (mul (rec l) (rec l) w (rec l-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) (rec l) (rec l) w (rec l-0) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l) w (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) (rec l) w (rec l-0) (rec l-1) (rec l-1) l-2)))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) (rec l) w (rec l-0) (rec l-1) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) (rec l) w (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec l) (rec l) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 695)
  (parent 422)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0 l-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w l l-0 l-0 (rec l-1) l-2)) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1) (mul w l l-0 l-0 (rec l-1) (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w l l-0 l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l l-0 l-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul w l l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul w l l-0 l-0 (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) w l l-0 l-0 l-2)) (y ltxb)
    (l-1 (mul w l l-0 l-0 (rec l-1) (rec l-1) l-2))
    (l-2 (mul w l l-0 l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0 l-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0 l-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w l l-0 l-0 (rec l-1) l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l l-0 l-0 l-2)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul w l l-0 l-0))
    (mul w l l-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0 l-0 l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w l l-0 l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l l-0 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1) (mul w l l-0 l-0 (rec l-1) (rec l-1) l-2)))
      (send
        (cat (exp (gen) l-1)
          (mul w l l-0 l-0 (rec l-1) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0 l-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w l l-0 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w l l-0 l-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w l l-0 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul w l l-0 l-0)))
      (send (cat (exp (gen) l-2) (mul w l l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 696)
  (parent 423)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w l (rec l-0) (rec l-1) l-2)) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1) (mul w l (rec l-0) (rec l-1) (rec l-1) l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w l (rec l-0) l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l (rec l-0) l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul w l (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul w l (rec l-0) (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) w l (rec l-0) l-2)) (y ltxb)
    (l-1 (mul w l (rec l-0)))
    (l-1 (mul w l (rec l-0) (rec l-1) (rec l-1) l-2)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w l (rec l-0) l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w l (rec l-0) (rec l-1) l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l (rec l-0) l-2)))
  (leads-to ((3 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul w l (rec l-0)))
    (mul w l (rec l-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l (rec l-0) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w l (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w l (rec l-0) (rec l-1) (rec l-1) l-2)))
      (send
        (cat (exp (gen) l-1)
          (mul w l (rec l-0) (rec l-1) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w l (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w l (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w l (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul w l (rec l-0))))
      (send (cat (exp (gen) l-2) (mul w l (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 697)
  (parent 423)
  (unrealized (0 0) (0 1) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn) (l x rndx)
    (w expt) (y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (0 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y l) (y (mul x w)) (y l-0))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((4 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 6 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 698)
  (parent 426)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta (mul w y)) (chi (mul x w))
        (beta l-0) (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na)
        (nb nb) (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (4 1)) (pt-2 (4 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y (mul l l-0 (rec l-1))) (y (mul x w)) (y l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((6 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 699)
  (parent 426)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-1) (beta l-0)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (6 0))
    ((3 1) (1 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l-0) (x-1 l-1) (y (mul (rec l) l-0 l-1)) (y l)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a b) (neq b a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a b (exp (gen) x-2)))))
  (label 700)
  (parent 427)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a self) (b b) (priv-stor priv-stor-1)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (6 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self b) (neq b self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 self b (exp (gen) x-2)))))
  (label 701)
  (parent 427)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1 l-2)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-2))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-0 l-2)))))
  (label 702)
  (parent 427)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-0) (beta l-0)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (6 0))
    ((3 1) (1 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l-0) (x-0 l-1) (y-0 (mul (rec l) l-0 l-1)) (y-0 l)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a a-0) (neq a-0 a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 703)
  (parent 431)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (6 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self a-0) (neq a-0 self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 704)
  (parent 431)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1 l-2)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-2))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b l-2)))))
  (label 705)
  (parent 431)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn) (l x rndx)
    (w expt) (y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (0 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y l) (y (mul x w)) (y l-0) (l-0 (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((4 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 6 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 706)
  (parent 436)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta (mul w y)) (chi (mul x w))
        (beta l-0) (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na)
        (nb nb) (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (4 1)) (pt-2 (4 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (l-0 (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1)))
    (y (mul x w)) (y l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((6 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 707)
  (parent 436)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-1) (beta l-0)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (6 0))
    ((3 1) (1 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (l-0 (one)) (x-1 l-0) (x-1 l-1) (y (mul (rec l) l-0 l-1))
    (y l) (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a b) (neq b a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a b (exp (gen) x-2)))))
  (label 708)
  (parent 437)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a self) (b b) (priv-stor priv-stor-1)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (6 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1) (l-1 (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self b) (neq b self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 self b (exp (gen) x-2)))))
  (label 709)
  (parent 437)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1 l-2)
  (uniq-gen x-1 y x-2)
  (absent (l-1 (one)) (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1))
    (y l-0) (y (mul x w x-0)) (x-2 beta) (x-2 l-2))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-0 l-2)))))
  (label 710)
  (parent 437)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-0) (beta l-0)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (6 0))
    ((3 1) (1 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (l-0 (one)) (x-0 l-0) (x-0 l-1) (y-0 (mul (rec l) l-0 l-1))
    (y-0 l) (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a a-0) (neq a-0 a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 711)
  (parent 441)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (6 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1) (l-1 (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self a-0) (neq a-0 self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 712)
  (parent 441)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1 l-2)
  (uniq-gen x-0 y-0 y-1)
  (absent (l-1 (one)) (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1))
    (y-0 l-0) (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-2))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b l-2)))))
  (label 713)
  (parent 441)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pval) (priv-stor priv-stor-0 locn) (l x rndx)
    (w expt) (y l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y) (alpha l) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (0 0)) ((4 2) (3 0)) ((5 1) (1 3)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0)
  (uniq-gen x y)
  (absent (l (one)) (x l) (x l-0) (y l) (y (mul x w)) (y l-0))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-0))
  (leads-to ((2 1) (1 0)) ((4 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 6 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor-0 (cat pt-2 (pv self l-0)))
      (recv (sig (body a (exp (gen) l) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor (cat pt-0 ignore))
      (stor priv-stor (cat pt (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-1 ignore-0))
      (stor priv-stor-0 (cat pt-2 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 714)
  (parent 446)
  (unrealized (0 1))
  (fringe)
  (satisfies-all)
  (maps
    ((0 1)
      ((ltxa l) (ltxb l-0) (x x) (y y) (eta (mul w y)) (chi (mul x w))
        (beta l-0) (alpha l) (a a) (b self) (a-0 a) (b-0 self) (na na)
        (nb nb) (priv-stor priv-stor-0) (na-0 na) (nb-0 nb)
        (priv-stor-0 priv-stor))))
  (origs (l-0 (4 1)) (pt-2 (4 1)) (nb (0 3)) (l (2 1)) (pt (2 1))
    (na (1 2)))
  (ugens (y (0 3)) (x (1 2)))
  (comment "satisfies all"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb data) (a self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0) (eta (mul w y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor) (l l-1))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (0 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb l l-0 l-1)
  (uniq-gen x y)
  (absent (l (one)) (x l) (x l-0) (y (mul l l-0 (rec l-1)))
    (y (mul x w)) (y l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-1))
  (facts (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed l-0) (undisclosed l-1)
    (undisclosed (mul l l-0 (rec l-1))))
  (leads-to ((2 1) (1 0)) ((6 1) (0 0)))
  (rule fact-resp-neq0 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor (cat pt (pv self l-1))) (0 0))
  (strand-map 0 1 2 3 4 5)
  (traces
    ((load priv-stor (cat pt (pv self l-1)))
      (recv
        (sig (body a (exp (gen) (mul l l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a self (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((load priv-stor (cat pt-4 ignore-1))
      (stor priv-stor (cat pt (pv self l-1)))))
  (label 715)
  (parent 446)
  (unrealized (0 1))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-1) (beta l-0)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a) (b b) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (6 0))
    ((3 1) (1 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l-0) (x-1 l-1) (y (mul (rec l) l-0 l-1)) (y l)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1) (l-1 (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a b) (neq b a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a b (exp (gen) x-2)))))
  (label 716)
  (parent 447)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 data) (a self b name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a self) (b b) (priv-stor priv-stor-1)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (6 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1)
  (uniq-gen x-1 y x-2)
  (absent (l (one)) (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self b) (neq b self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 self b (exp (gen) x-2)))))
  (label 717)
  (parent 447)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w x-0)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta l-1)
    (eta (mul x w x-0 (rec x-1) y)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-0) (a a-0) (b b) (priv-stor priv-stor-2)
    (l l-2) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 2) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb na-0 l l-1 l-2)
  (uniq-gen x-1 y x-2)
  (absent (l (one)) (x-1 l) (x-1 l-1) (y (mul l (rec l-0) l-1)) (y l-0)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-2))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b) (neq b a-0) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv a-0 l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-0 l-2)))
      (recv
        (sig (body b (exp (gen) beta) (pubk "sig" b)) (privk "sig" b)))
      (send (cat na-0 a-0 b (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-0 l-2)))))
  (label 718)
  (parent 447)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0 l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l-1) (x x-0) (beta l-0)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((2 1) (6 0))
    ((3 1) (1 1)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l-0) (x-0 l-1) (y-0 (mul (rec l) l-0 l-1)) (y-0 l)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1) (l-1 (one)))
  (precur (3 0) (5 0))
  (gen-st (pv a l-1) (pv self l))
  (facts (neq a a-0) (neq a-0 a) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul x w y y-0))))
    (neq l-1 l) (undisclosed l-1) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 2 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l-0 l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 a (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 719)
  (parent 451)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data) (a self a-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 1) (6 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (l (one)) (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1))
    (y-0 l-0) (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv self l-1))
  (facts (neq self a-0) (neq a-0 self) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 7 4 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 720)
  (parent 451)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a self a-0 b name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b self) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1)) (chi (mul x w y)))
  (defstrand init 4 (na na) (nb nb) (a a) (b self)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta l-1)
    (eta (mul x w y (rec x-0) y-0)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-0) (nb nb-0) (a a-0) (b b)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 3) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" self))
  (uniq-orig na nb nb-0 l l-1 l-2)
  (uniq-gen x-0 y-0 y-1)
  (absent (l (one)) (x-0 l) (x-0 l-1) (y-0 (mul l (rec l-0) l-1))
    (y-0 l-0) (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-2))
  (precur (3 0) (5 0))
  (gen-st (pv a l) (pv self l-0) (pv b l-2))
  (facts (neq b a-0) (neq a-0 b) (neq self a) (neq a self)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((2 1) (1 0)) ((7 1) (6 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-4 (pv b l-2))) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv self l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a self (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))) (send (cat na a self (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na nb a self
            (hash (exp (gen) (mul l l-1))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-0 a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-0 nb-0 a-0 b
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b l-2)))))
  (label 721)
  (parent 451)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta y))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (8 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y x))
  (precur (2 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l)))
  (label 722)
  (parent 454)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y chi))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y chi) (y (mul (rec ltxb) l)) (y ltxb))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y chi)))
      (hash (exp (gen) l) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l) (exp (gen) (mul y chi)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w))) w))))
  (label 723)
  (parent 454)
  (unrealized (0 0) (0 1) (9 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l (rec x-0) l-0 l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul l l-1)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l (rec x-0) l-0 l-1)))
      (send (cat (exp (gen) x-0) (mul l (rec x-0) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 724)
  (parent 456)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l l-0 l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l l-0 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 725)
  (parent 456)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l (rec x-0) l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w (mul l (rec x-0) l-0)) (x-1 x-0) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l (rec x-0) l-0)))
      (send (cat (exp (gen) x-0) (mul l (rec x-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 726)
  (parent 456)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (x-0 l-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 (rec x-1) l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-0 l-1)) (y ltxb) (x-1 beta)
    (x-1 l-1) (l-1 (mul (rec l) w x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) w x-0)))
      (send (cat (exp (gen) l-0) (mul (rec l) w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 (rec x-1) l-1)))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 (rec x-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 727)
  (parent 456)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 l-1 x-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 (rec x-0) l-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w (rec l-0))) (x-0 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w (rec l-0)))
    (mul (rec l) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) w (rec l-0))))
      (send (cat (exp (gen) l-1) (mul (rec l) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) w (rec l-0) l-1 (rec x-0) l-2)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) w (rec l-0) l-1 (rec x-0) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 728)
  (parent 456)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul w x-0 (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (mul w x-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 (rec x-1) l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 (rec l) l-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) l-0 l-1)) (y ltxb)
    (l-0 (mul w x-0 (rec l))) (x-1 beta) (x-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w x-0 (rec l)))
    (mul w x-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec l) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l) l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (mul w x-0 (rec l))))
      (send (cat (exp (gen) l-0) (mul w x-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 (rec x-1) l-1)))
      (send
        (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 (rec x-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 729)
  (parent 456)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l (rec x-0) l-0 l-1)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l) (x (mul l-0 l-1)) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb) (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l (rec x-0) l-0 l-1)))
      (send (cat (exp (gen) x-0) (mul l (rec x-0) l-0 l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 730)
  (parent 457)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l l-0 l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 1) (8 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul l l-0)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l l-0 l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 731)
  (parent 457)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l (rec x-0) l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (x-0 beta) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w (mul l (rec x-0) l-0)) (x-1 x-0) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l (rec x-0) l-0)))
      (send (cat (exp (gen) x-0) (mul l (rec x-0) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 732)
  (parent 457)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (x-0 l-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l) w x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 (rec x-1) l-1)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-0 l-1)) (y ltxb) (x-1 beta)
    (x-1 l-1) (l-1 (mul (rec l) w x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w x-0 l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) w x-0)))
      (send (cat (exp (gen) l-1) (mul (rec l) w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 (rec x-1) l-1)))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 (rec x-1) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 733)
  (parent 457)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 l-1 x-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w (rec l-0) l-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 (rec x-0) l-2)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w (rec l-0) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w (rec l-0))) (x-0 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w (rec l-0) l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w (rec l-0)))
    (mul (rec l) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec l) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) w (rec l-0) l-1 (rec x-0) l-2)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) w (rec l-0) l-1 (rec x-0) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 734)
  (parent 457)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0 (rec l) l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul w x-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 (rec x-1) l-1)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 (rec l) l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) l-0 l-1)) (y ltxb)
    (l-0 (mul w x-0 (rec l))) (x-1 beta) (x-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 (rec l) l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w x-0 (rec l)))
    (mul w x-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec l) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul w x-0 (rec l))))
      (send (cat (exp (gen) l-1) (mul w x-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 (rec x-1) l-1)))
      (send
        (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 (rec x-1) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 735)
  (parent 457)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-1 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1 l-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul l-1 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 l-1 l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-1 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 4 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1 l-1)))
      (send (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l)))))
  (label 736)
  (parent 458)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1 l-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul l-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) l-0 l-1 l-1)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1 l-1)))
      (send (cat (exp (gen) x-0) (mul l-0 (rec x-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l)))))
  (label 737)
  (parent 458)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 l-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-1 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x l-1) (y chi) (y (mul (rec ltxb) l-0 l-1)) (y ltxb)
    (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (l-3 l-1) (w (mul l-0 l-1 (rec x-0)))
      (x-1 x-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-1 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l-0 l-1 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l)))))
  (label 738)
  (parent 458)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 rndx) (w expt)
    (l-1 l-2 l-3 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec l-0) w l-3)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) (rec l-0) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l) (rec l-0) w l-2 l-3 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2 l-3)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) (rec l-0) w l-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) (rec l-0) w)) (x-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-1))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec l-0) w l-3)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) (rec l-0) w))
    (mul (rec l) (rec l-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec l-0) w l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) (rec l-0) w)))
      (send (cat (exp (gen) l-3) (mul (rec l) (rec l-0) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) (rec l-0) w l-2 l-3 (rec x-0))))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) (rec l-0) w l-2 l-3 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-1)))))
  (label 739)
  (parent 458)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 self a-1 b-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi expt) (ltxb rndx) (beta expt)
    (l l-0 l-1 x-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-1 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) l-2))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-1 (rec x-0) l-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self-0)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1 l-2)
  (uniq-gen x y x-0)
  (absent (x l-0) (x (mul l-1 l-2)) (y chi)
    (y (mul (rec ltxb) l-0 l-1 l-2)) (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-1 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) l-2)) (send (cat (exp (gen) l-1) l-2)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-1 (rec x-0) l-2)))
      (send (cat (exp (gen) x-0) (mul l-0 l-1 (rec x-0) l-2))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self-0 l-2)))))
  (label 740)
  (parent 458)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 l-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w x-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1 l-2)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 l-2)) (y ltxb)
    (l-2 (mul (rec l) w x-0)) (x-1 beta) (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w x-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 741)
  (parent 458)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 l-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w x-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1 l-2)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 l-2)) (y ltxb)
    (l-1 (mul (rec l) w x-0)) (x-1 beta) (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w x-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 742)
  (parent 458)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (7 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb) (l-0 (rec l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 4 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (rec l)))
      (send (cat (exp (gen) l-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0))))
  (label 743)
  (parent 463)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0)) (y ltxb)
    (l-2 (mul (rec l) w l-0))
    (l-2 (mul (rec l) w l-0 (rec l-1) (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0)))
      (send (cat (gen) (mul (rec l) w l-0)))))
  (label 744)
  (parent 463)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0)) (y ltxb)
    (l-1 (mul (rec l) w l-0))
    (l-2 (mul (rec l) w l-0 (rec l-1) (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0)))
      (send (cat (gen) (mul (rec l) w l-0)))))
  (label 745)
  (parent 463)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (l-0 (rec l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0))))
  (label 746)
  (parent 464)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0)) (y ltxb)
    (l-1 (mul (rec l) w l-0 (rec l-1) (rec l-2)))
    (l-2 (mul (rec l) w l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0)))
      (send (cat (gen) (mul (rec l) w l-0)))))
  (label 747)
  (parent 464)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0)) (y ltxb)
    (l-1 (mul (rec l) w l-0))
    (l-1 (mul (rec l) w l-0 (rec l-1) (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) w l-0 (rec l-1) (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0)))
      (send (cat (gen) (mul (rec l) w l-0)))))
  (label 748)
  (parent 464)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul l-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0)))
  (label 749)
  (parent 466)
  (unrealized (0 0) (0 1) (1 3) (2 0) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (6 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (l-0 (one)))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 3 ltx-gen 2) l-1 (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 750)
  (parent 469)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb) (l-0 w)
    (l-0 (mul w (rec l-0))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 751)
  (parent 469)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul w l-0)) (x l) (y chi) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (l-0 w))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul w l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0)))
  (label 752)
  (parent 469)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-0 (8 0)
    (ch-msg priv-stor-0 (cat pt-1 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0)))
  (label 753)
  (parent 470)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l (rec y-0) l-0 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul l l-1)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l (rec y-0) l-0 l-1)))
      (send (cat (exp (gen) y-0) (mul l (rec y-0) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 754)
  (parent 471)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l l-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l l-0 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 755)
  (parent 471)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l (rec y-0) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w (mul l (rec y-0) l-0)) (y-1 y-0) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l (rec y-0) l-0)))
      (send (cat (exp (gen) y-0) (mul l (rec y-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 756)
  (parent 471)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (mul (rec l) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 (rec y-1) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-0 l-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l-1) (l-1 (mul (rec l) w y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (mul (rec l) w y-0)))
      (send (cat (exp (gen) l-0) (mul (rec l) w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 (rec y-1) l-1)))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 (rec y-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 757)
  (parent 471)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 y-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w (rec l-0) l-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 (rec y-0) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w (rec l-0) l-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 (mul (rec l) w (rec l-0))) (y-0 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w (rec l-0) l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w (rec l-0)))
    (mul (rec l) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) w (rec l-0))))
      (send (cat (exp (gen) l-1) (mul (rec l) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) w (rec l-0) l-1 (rec y-0) l-2)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) w (rec l-0) l-1 (rec y-0) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 758)
  (parent 471)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul w y-0 (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (mul w y-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 (rec y-1) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 (rec l) l-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) l-0 l-1)) (y ltxb)
    (l-0 (mul w y-0 (rec l))) (y-1 alpha) (y-1 chi-0) (y-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w y-0 (rec l)))
    (mul w y-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec l) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l) l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (mul w y-0 (rec l))))
      (send (cat (exp (gen) l-0) (mul w y-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 (rec y-1) l-1)))
      (send
        (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 (rec y-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 759)
  (parent 471)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l (rec y-0) l-0 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l) (x (mul l-0 l-1)) (y chi) (y (mul (rec ltxb) l l-0 l-1))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l (rec y-0) l-0 l-1)))
      (send (cat (exp (gen) y-0) (mul l (rec y-0) l-0 l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-1)))))
  (label 760)
  (parent 472)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l l-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 1) (8 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul l l-0)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l l-0 l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 761)
  (parent 472)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l (rec y-0) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed l-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (w (mul l (rec y-0) l-0)) (y-1 y-0) (l-2 l-0))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l (rec y-0) l-0)))
      (send (cat (exp (gen) y-0) (mul l (rec y-0) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 762)
  (parent 472)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l) w y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 (rec y-1) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-0 l-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l-1) (l-1 (mul (rec l) w y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w y-0 l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) w y-0)))
      (send (cat (exp (gen) l-1) (mul (rec l) w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 (rec y-1) l-1)))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 (rec y-1) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 763)
  (parent 472)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 y-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w (rec l-0) l-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 (rec y-0) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w (rec l-0) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 (mul (rec l) w (rec l-0))) (y-0 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w (rec l-0) l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w (rec l-0)))
    (mul (rec l) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec l-0) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec l) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) w (rec l-0) l-1 (rec y-0) l-2)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) w (rec l-0) l-1 (rec y-0) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 764)
  (parent 472)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) l-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0 (rec l) l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul w y-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 (rec y-1) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 (rec l) l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) l-0 l-1)) (y ltxb)
    (l-0 (mul w y-0 (rec l))) (y-1 alpha) (y-1 chi-0) (y-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 (rec l) l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w y-0 (rec l)))
    (mul w y-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec l) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l) l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul w y-0 (rec l))))
      (send (cat (exp (gen) l-1) (mul w y-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 (rec y-1) l-1)))
      (send
        (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 (rec y-1) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 765)
  (parent 472)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-1 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul l-1 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 l-1 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-1 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 4 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1 l-1)))
      (send (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l)))))
  (label 766)
  (parent 473)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul l-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) l-0 l-1 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1 l-1)))
      (send (cat (exp (gen) y-0) (mul l-0 (rec y-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l)))))
  (label 767)
  (parent 473)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-1 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x l-1) (y chi) (y (mul (rec ltxb) l-0 l-1)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (l-3 l-1) (w (mul l-0 l-1 (rec y-0)))
      (y-1 y-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-1 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l-0 l-1 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l)))))
  (label 768)
  (parent 473)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 rndx) (w expt)
    (l-1 l-2 l-3 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec l-0) w l-3)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) (rec l-0) w)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l) (rec l-0) w l-2 l-3 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2 l-3)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) (rec l-0) w l-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 (mul (rec l) (rec l-0) w)) (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-1))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec l-0) w l-3)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) (rec l-0) w))
    (mul (rec l) (rec l-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec l-0) w l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) (rec l-0) w)))
      (send (cat (exp (gen) l-3) (mul (rec l) (rec l-0) w))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) (rec l-0) w l-2 l-3 (rec y-0))))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) (rec l-0) w l-2 l-3 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-1)))))
  (label 769)
  (parent 473)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi expt) (ltxb rndx) (alpha chi-0 expt)
    (l l-0 l-1 y-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l-1 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) l-2))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-1 (rec y-0) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self-0)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1 l-2)
  (uniq-gen x y y-0)
  (absent (x l-0) (x (mul l-1 l-2)) (y chi)
    (y (mul (rec ltxb) l-0 l-1 l-2)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l-1 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) l-2)) (send (cat (exp (gen) l-1) l-2)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 l-1 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-1 (rec y-0) l-2)))
      (send (cat (exp (gen) y-0) (mul l-0 l-1 (rec y-0) l-2))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self-0 l-2)))))
  (label 770)
  (parent 473)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 l-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w y-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1 l-2)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 l-2)) (y ltxb)
    (l-2 (mul (rec l) w y-0)) (y-1 alpha) (y-1 chi-0) (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w y-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 771)
  (parent 473)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 l-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w y-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1 l-2)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 l-2)) (y ltxb)
    (l-1 (mul (rec l) w y-0)) (y-1 alpha) (y-1 chi-0) (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 l-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 l-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) w y-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 772)
  (parent 473)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul l l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (deflistener l-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul l l-0)) (x l-0) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul l-0 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0)))) ((recv l-0) (send l-0)))
  (label 773)
  (parent 475)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (l-0 (one)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0))))
  (label 774)
  (parent 478)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w l (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul w l (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w l)) (y ltxb) (l-0 w) (l-0 (mul w (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w l (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (mul w (rec l-0))))
      (send (cat (exp (gen) l) (mul w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w))))
  (label 775)
  (parent 478)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (deflistener l-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul w l)) (x l-0) (y chi) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (l-0 w))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul w l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0)))) ((recv l-0) (send l-0)))
  (label 776)
  (parent 478)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 rndx) (w expt) (l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2 l-5)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) l-5)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2 l-5))
    (y ltxb) (l-5 (mul (rec l) (rec l-0) w l-1 l-2))
    (l-5 (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2 l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-5 (mul (rec l) (rec l-0) w l-1 l-2))
    (mul (rec l) (rec l-0) w l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec l-0) w l-1 l-2 l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 l-2 l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 l-2)))
      (send (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 l-2))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 777)
  (parent 484)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 rndx) (w expt) (l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5)) (y ltxb)
    (l-4 (mul (rec l) (rec l-0) w l-1 (rec l-2)))
    (l-5
      (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-4 (mul (rec l) (rec l-0) w l-1 (rec l-2)))
    (mul (rec l) (rec l-0) w l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4)
           l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4)
            l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 (rec l-2))))
      (send
        (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 778)
  (parent 484)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 rndx) (w expt) (l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5)) (y ltxb)
    (l-3 (mul (rec l) (rec l-0) w l-1 (rec l-2)))
    (l-5
      (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) (rec l-0) w l-1 (rec l-2)))
    (mul (rec l) (rec l-0) w l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec l-0) w l-1 (rec l-2) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4)
           l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) (rec l-0) w l-1 (rec l-2) (rec l-3) (rec l-4)
            l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 (rec l-2))))
      (send
        (cat (exp (gen) l-5) (mul (rec l) (rec l-0) w l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 779)
  (parent 484)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5)) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5)) (y ltxb)
    (l-4 (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5))
    (l-5 (mul (rec l) w l-0 l-1 l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-5 (mul (rec l) w l-0 l-1 l-2))
    (mul (rec l) w l-0 l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 l-2)))
      (send (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 l-2))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 780)
  (parent 486)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (7 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0 l-1)) (x l) (y chi)
    (y (mul (rec ltxb) l-0 l-1)) (y ltxb) (l-1 (mul (rec l) l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 ltx-gen 2) l-2 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) l-0)))
      (send (cat (exp (gen) l-1) (mul (rec l) l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 781)
  (parent 486)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
    (y ltxb) (l-4 (mul (rec l) w l-0 l-1 (rec l-2)))
    (l-4 (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-4 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 782)
  (parent 486)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
    (y ltxb) (l-3 (mul (rec l) w l-0 l-1 (rec l-2)))
    (l-4 (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 783)
  (parent 486)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5)) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5)) (y ltxb)
    (l-3 (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5))
    (l-5 (mul (rec l) w l-0 l-1 l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-5 (mul (rec l) w l-0 l-1 l-2))
    (mul (rec l) w l-0 l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 l-2 l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 l-2 (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w l-0 l-1 l-2 (rec l-3) (rec l-4) l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 l-2 l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 l-2)))
      (send (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 l-2))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 784)
  (parent 487)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l) (mul (rec l) l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x l-0) (x l-1) (y chi) (y (mul (rec ltxb) l-0 l-1)) (y ltxb)
    (l-1 (mul (rec l) l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed l-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-2 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l) (mul (rec l) l-0)))
      (send (cat (exp (gen) l) (mul (rec l) l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 785)
  (parent 487)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
    (y ltxb)
    (l-3 (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5))
    (l-4 (mul (rec l) w l-0 l-1 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-4 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 786)
  (parent 487)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 l-4 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l-3 l-4 l-5)
  (uniq-gen x y)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
    (y ltxb) (l-3 (mul (rec l) w l-0 l-1 (rec l-2)))
    (l-3 (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5)))
  (leads-to ((2 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec l-4) l-5))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-5) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-5)))
      (send
        (sig (body self-0 (exp (gen) l-5) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 787)
  (parent 487)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 1) (7 0)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul (rec l) l-0)) (y l) (y (mul w x-0))
    (x-1 beta) (x-1 l-0))
  (precur (5 0) (6 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((4 1) (1 0)) ((4 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 788)
  (parent 489)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 beta) (x-1 l-1))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-1)))))
  (label 789)
  (parent 489)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (5 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 790)
  (parent 491)
  (unrealized (0 0) (0 1) (1 3) (5 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (alpha chi expt) (x rndx)
    (w expt) (y y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 1) (7 0)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul (rec l) l-0)) (y-0 l)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (5 0) (6 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((4 1) (1 0)) ((4 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 8 4 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 791)
  (parent 492)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-1)))))
  (label 792)
  (parent 492)
  (unrealized (0 0) (0 1) (1 3) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)) ((7 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))))
  (label 793)
  (parent 493)
  (unrealized (0 0) (0 1) (0 2) (3 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 794)
  (parent 493)
  (unrealized (0 0) (0 1) (3 0) (6 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((1 2) (7 0))
    ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (3 0)) ((7 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (5 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 795)
  (parent 493)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (3 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((1 2) (7 0))
    ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (4 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 796)
  (parent 500)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 l-1) (x-1 beta))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 797)
  (parent 501)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx) (w expt)
    (l-0 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (one))
    (eta (mul w x y (rec x-0))))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0)) (y l) (y (mul w x)) (x-0 (one))
    (x-0 l-0))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 1 init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 798)
  (parent 501)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 799)
  (parent 501)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 800)
  (parent 501)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 801)
  (parent 501)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l x rndx) (w expt)
    (l-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-1)) (chi (mul w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w l-0 y)))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-0)))
  (deflistener (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((5 2) (7 0)) ((6 1) (1 3)) ((7 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1)
  (uniq-gen x y)
  (absent (x (one)) (x l-1) (y (mul (rec l) l-1)) (y l) (y (mul w l-0)))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))) (neq l-1 l)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-1)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 5 ltx-gen 3) (exp (gen) l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-0)))
      (send (cat (exp (gen) y) (mul (rec x) w l-0))))
    ((recv (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))))
  (label 802)
  (parent 501)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 803)
  (parent 501)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 x-1 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 (rec x-1) l l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul x-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l-0))
    (y ltxb) (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 (rec x-1) l l-0)))
      (send (cat (exp (gen) x-1) (mul x-0 (rec x-1) l l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 804)
  (parent 502)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 x-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 (rec x-1) l)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l)
  (uniq-gen x y x-0 x-1)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-2 x-0) (w (mul x-0 (rec x-1) l)) (x-3 x-1) (l-0 l))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 (rec x-1) l)))
      (send (cat (exp (gen) x-1) (mul x-0 (rec x-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 805)
  (parent 502)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (x-1 x-2 x-3 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 l))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec x-0) w x-1 x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 (rec x-3) l)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l) (x x-3) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w x-1 x-2)) (x l) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1 x-2 l)) (y ltxb) (x-2 beta)
    (x-2 l) (x-3 beta-0) (x-3 l) (l (mul (rec x-0) w x-1)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec x-0) w x-1 x-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec x-0) w x-1))
    (mul (rec x-0) w x-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 x-2 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1 x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
      (send (cat (exp (gen) x-2) (mul (rec x-0) w x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 (rec x-3) l)))
      (send
        (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 (rec x-3) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 806)
  (parent 502)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (l x-1 x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w (rec l) x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec x-0) w (rec l) x-1 (rec x-2) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec x-0) w (rec l) x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0)) (y ltxb) (x-1 beta)
    (x-1 l-0) (x-2 beta-0) (x-2 (mul (rec x-0) w (rec l))) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w (rec l) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-2 (mul (rec x-0) w (rec l)))
    (mul (rec x-0) w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w (rec l) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w (rec l))))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l) x-1 (rec x-2) l-0)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l) x-1 (rec x-2) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 807)
  (parent 502)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 w expt) (x-0 l x-1 x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) x-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0 (rec l) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul w x-0 (rec l) x-1 (rec x-2) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul w x-0 (rec l) x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) x-1 l-0)) (y ltxb) (x-1 beta)
    (x-1 (mul w x-0 (rec l))) (x-1 l-0) (x-2 beta-0) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 (rec l) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 (rec l)))
    (mul w x-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec l) x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l))))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l) x-1 (rec x-2) l-0)))
      (send
        (cat (exp (gen) x-2) (mul w x-0 (rec l) x-1 (rec x-2) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 808)
  (parent 502)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (beta-0 expt) (l x-0 l-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 l-0 (rec x-1) l-1)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-1)) (y ltxb) (x-0 beta) (x-0 l-0)
    (x-1 beta-0) (x-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 l-0 (rec x-1) l-1)))
      (send (cat (exp (gen) x-1) (mul x-0 l-0 (rec x-1) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 809)
  (parent 503)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 l-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 l-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l-0) (x-1 beta-0) (x-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-2 x-0) (l-1 l-0) (w (mul x-0 l-0 (rec x-1)))
      (x-3 x-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 l-0 (rec x-1))))
      (send (cat (exp (gen) x-1) (mul x-0 l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 810)
  (parent 503)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 l rndx) (w expt)
    (l-0 x-1 l-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) (rec l) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec x-0) (rec l) w x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1)) (y ltxb) (x-1 beta)
    (x-1 l-1) (x-2 beta-0) (x-2 (mul (rec x-0) (rec l) w)) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) (rec l) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-2 (mul (rec x-0) (rec l) w))
    (mul (rec x-0) (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) (rec l) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 811)
  (parent 503)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l x-2 l-0 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 x-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 l-0 (rec x-3))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w x-1 x-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0)) (y ltxb) (x-2 beta)
    (x-2 l-0) (l-0 (mul (rec x-0) w x-1)) (x-3 beta-0) (x-3 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 x-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w x-1))
    (mul (rec x-0) w x-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1 x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
      (send (cat (exp (gen) x-2) (mul (rec x-0) w x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 l-0 (rec x-3))))
      (send
        (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 l-0 (rec x-3)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 812)
  (parent 503)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 x-1 l-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 x-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w x-0 x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec l) w x-0 x-1 l-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec l) w x-0 x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 x-1 l-1)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w x-0)) (x-1 l-1) (x-2 beta-0) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 x-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 x-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 x-1 l-1 (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul (rec l) w x-0 x-1 l-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 813)
  (parent 503)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l l)))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l))
    (y ltxb) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l)) (send (cat (exp (gen) x-0) l)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l l)))
      (send (cat (exp (gen) x-0) (mul l l)))) ((recv l) (send l)))
  (label 814)
  (parent 504)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l) (l (one)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-0 (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l)) (send (cat (exp (gen) x-0) l))))
  (label 815)
  (parent 507)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 beta) (x-0 l) (l w)
    (l (mul w (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l))))
      (send (cat (exp (gen) x-0) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
  (label 816)
  (parent 507)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (w beta expt) (x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w l)))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w x-0 l))
    (y ltxb) (x-0 beta) (x-0 l) (l w))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w l)))
      (send (cat (exp (gen) x-0) (mul w l)))) ((recv l) (send l)))
  (label 817)
  (parent 507)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 rndx) (w expt) (x-1 x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec x-0) w x-1 (rec l))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec x-0) w x-1 (rec x-2) (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec x-0) w x-1)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w x-1 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1)) (y ltxb) (x-2 beta) (x-2 l)
    (l (mul (rec x-0) w x-1))
    (l (mul (rec x-0) w x-1 (rec x-2) (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec x-0) w x-1 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec x-0) w x-1))
    (mul (rec x-0) w x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) x-2) (mul (rec x-0) w x-1 (rec x-2) (rec l))))
      (send
        (cat (exp (gen) x-2) (mul (rec x-0) w x-1 (rec x-2) (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec x-0) w x-1)))
      (send (cat (gen) (mul (rec x-0) w x-1)))))
  (label 818)
  (parent 511)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb x-0 rndx) (w expt) (l x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w l (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec x-0) w l (rec x-1) (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec x-0) w l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec x-0) w l)) (x-1 l-0)
    (l-0 (mul (rec x-0) w l (rec x-1) (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w l (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec x-0) w l))
    (mul (rec x-0) w l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w l (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec x-0) w l (rec x-1) (rec l-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec x-0) w l (rec x-1) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec x-0) w l)))
      (send (cat (gen) (mul (rec x-0) w l)))))
  (label 819)
  (parent 511)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (w expt) (x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l) w x-0 (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w x-0 (rec x-1) (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w x-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w x-0 (rec x-1) (rec l-0))) (x-1 l-0)
    (l-0 (mul (rec l) w x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w x-0 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) w x-0 (rec x-1) (rec l-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w x-0 (rec x-1) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w x-0)))
      (send (cat (gen) (mul (rec l) w x-0)))))
  (label 820)
  (parent 512)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (w expt) (l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l) w l-0 (rec x-0) (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w l-0))
    (x-0 (mul (rec l) w l-0 (rec x-0) (rec l-1))) (x-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-0) (mul (rec l) w l-0 (rec x-0) (rec l-1))))
      (send
        (cat (exp (gen) x-0) (mul (rec l) w l-0 (rec x-0) (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0)))
      (send (cat (gen) (mul (rec l) w l-0)))))
  (label 821)
  (parent 512)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0) l l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul x-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) x-0 l l-0))
    (y ltxb) (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0) l l-0)))
      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0) l l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 822)
  (parent 513)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0) l)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l)
  (uniq-gen x y x-0 y-0)
  (absent (x x-0) (x l) (y chi) (y (mul (rec ltxb) x-0 l)) (y ltxb)
    (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed x-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (w (mul x-0 (rec y-0) l)) (y-1 y-0) (l-0 l))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0) l)))
      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 823)
  (parent 513)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (y-0 x-1 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 l))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec x-0) w y-0 x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 (rec y-1) l)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1)) (x l) (y chi)
    (y (mul (rec ltxb) (rec x-0) w y-0 x-1 l)) (y ltxb) (x-1 beta)
    (x-1 l) (y-1 alpha) (y-1 chi-0) (y-1 l) (l (mul (rec x-0) w y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec x-0) w y-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec x-0) w y-0))
    (mul (rec x-0) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 x-1 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w y-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 (rec y-1) l)))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 (rec y-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 824)
  (parent 513)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (l x-1 y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w (rec l) x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec x-0) w (rec l) x-1 (rec y-0) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-1 y-0)
  (absent (x (mul (rec x-0) w (rec l) x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0)) (y ltxb) (x-1 beta)
    (x-1 l-0) (y-0 alpha) (y-0 chi-0) (y-0 (mul (rec x-0) w (rec l)))
    (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w (rec l) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec x-0) w (rec l)))
    (mul (rec x-0) w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w (rec l) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w (rec l))))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec x-0) w (rec l) x-1 (rec y-0) l-0)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec x-0) w (rec l) x-1 (rec y-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 825)
  (parent 513)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l x-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) x-0 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0 (rec l) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul w y-0 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) x-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul w y-0 (rec l) x-0 (rec y-1) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-0 y-1)
  (absent (x (mul w y-0 (rec l) x-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) x-0 l-0)) (y ltxb) (x-0 beta)
    (x-0 (mul w y-0 (rec l))) (x-0 l-0) (y-1 alpha) (y-1 chi-0)
    (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 (rec l) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul w y-0 (rec l)))
    (mul w y-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec l) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul w y-0 (rec l))))
      (send (cat (exp (gen) x-0) (mul w y-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) x-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) x-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l) x-0 (rec y-1) l-0)))
      (send
        (cat (exp (gen) y-1) (mul w y-0 (rec l) x-0 (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 826)
  (parent 513)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (alpha chi-0 expt)
    (l x-0 l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 l-0 (rec y-0) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-1)) (y ltxb) (x-0 beta) (x-0 l-0)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 l-0 (rec y-0) l-1)))
      (send (cat (exp (gen) y-0) (mul x-0 l-0 (rec y-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 827)
  (parent 514)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 l-0 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l-0) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (l-1 l-0) (w (mul x-0 l-0 (rec y-0)))
      (y-1 y-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 l-0 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul x-0 l-0 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l)))))
  (label 828)
  (parent 514)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 l rndx) (w expt)
    (l-0 x-1 l-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) (rec l) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec x-0) (rec l) w x-1 l-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-1 y-0)
  (absent (x (mul (rec x-0) (rec l) w x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1)) (y ltxb) (x-1 beta)
    (x-1 l-1) (y-0 alpha) (y-0 chi-0) (y-0 (mul (rec x-0) (rec l) w))
    (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) (rec l) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec x-0) (rec l) w))
    (mul (rec x-0) (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) (rec l) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec x-0) (rec l) w x-1 l-1 (rec y-0))))
      (send
        (cat (exp (gen) y-0)
          (mul (rec x-0) (rec l) w x-1 l-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 829)
  (parent 514)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l x-1 l-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0)) (y ltxb) (x-1 beta)
    (x-1 l-0) (l-0 (mul (rec x-0) w y-0)) (y-1 alpha) (y-1 chi-0)
    (y-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w y-0))
    (mul (rec x-0) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w y-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l)))))
  (label 830)
  (parent 514)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 x-0 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 x-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w y-0 x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 x-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w y-0 x-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-0 y-1)
  (absent (x (mul (rec l) w y-0 x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 x-0 l-1)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w y-0)) (x-0 l-1) (y-1 alpha) (y-1 chi-0)
    (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) w y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 x-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 x-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 x-0 l-1 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w y-0 x-0 l-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 831)
  (parent 514)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (w expt) (l x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb)
    (x-0 beta) (x-0 w) (x-0 (mul w (rec x-0))) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 w) w (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 832)
  (parent 518)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 b-1 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (w expt) (l x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener x-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (8 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l) (y chi) (y (mul (rec ltxb) w l x-0))
    (y ltxb) (x-0 beta) (x-0 w) (x-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l x-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x-0) (mul w x-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w x-0)))
      (send (cat (exp (gen) l) (mul w x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))) ((recv x-0) (send x-0)))
  (label 833)
  (parent 518)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l rndx) (w expt) (x-1 l-0 x-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) (rec l) w x-1 l-0 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) (rec l) w x-1 l-0 (rec x-2) (rec l-1) l-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec x-0) (rec l) w x-1 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) (rec l) w x-1 l-0 (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0 l-2))
    (y ltxb) (x-2 beta) (x-2 l-1)
    (l-2 (mul (rec x-0) (rec l) w x-1 l-0))
    (l-2 (mul (rec x-0) (rec l) w x-1 l-0 (rec x-2) (rec l-1) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) (rec l) w x-1 l-0 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0 l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec x-0) (rec l) w x-1 l-0))
    (mul (rec x-0) (rec l) w x-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) (rec l) w x-1 l-0 (rec x-2) (rec l-1) l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) (rec l) w x-1 l-0 (rec x-2) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec x-0) (rec l) w x-1 l-0)))
      (send (cat (exp (gen) l-2) (mul (rec x-0) (rec l) w x-1 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 834)
  (parent 523)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l rndx) (w expt) (x-1 l-0 x-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec l-0) l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec x-2) (rec l-1) l-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec x-0) (rec l) w x-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec l-1) l-2))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec l-0) l-2)) (y ltxb)
    (x-2 beta) (x-2 l-1) (l-1 (mul (rec x-0) (rec l) w x-1 (rec l-0)))
    (l-2
      (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec x-2) (rec l-1) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) (rec l) w x-1 (rec l-0)))
    (mul (rec x-0) (rec l) w x-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec x-2) (rec l-1)
           l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) (rec l) w x-1 (rec l-0) (rec x-2) (rec l-1)
            l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec x-0) (rec l) w x-1 (rec l-0))))
      (send
        (cat (exp (gen) l-2) (mul (rec x-0) (rec l) w x-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 835)
  (parent 523)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l rndx) (w expt) (l-0 l-1 x-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w l-0 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec x-1) (rec l-2) l-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec x-0) (rec l) w l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w l-0 (rec l-1) l-3)) (y ltxb)
    (x-1 beta) (x-1 (mul (rec x-0) (rec l) w l-0 (rec l-1))) (x-1 l-2)
    (l-3
      (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec x-1) (rec l-2) l-3)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) (rec l) w l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) (rec l) w l-0 (rec l-1)))
    (mul (rec x-0) (rec l) w l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) (rec l) w l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec x-1) (rec l-2)
           l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) (rec l) w l-0 (rec l-1) (rec x-1) (rec l-2)
            l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec x-0) (rec l) w l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-3) (mul (rec x-0) (rec l) w l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 836)
  (parent 523)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l x-1 l-0 x-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l x-1 l-0 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w l x-1 l-0 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w l x-1 l-0 (rec x-2) (rec l-1) l-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w l x-1 l-0 (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l x-1 l-0 l-2)) (y ltxb) (x-2 beta)
    (x-2 l-1) (l-1 (mul (rec x-0) w l x-1 l-0 (rec x-2) (rec l-1) l-2))
    (l-2 (mul (rec x-0) w l x-1 l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w l x-1 l-0 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l x-1 l-0 l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec x-0) w l x-1 l-0))
    (mul (rec x-0) w l x-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w l x-1 l-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w l x-1 l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w l x-1 l-0 (rec x-2) (rec l-1) l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w l x-1 l-0 (rec x-2) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l x-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 l-0)))
      (send (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 837)
  (parent 524)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l x-1 l-0 x-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w l x-1 (rec l-0) (rec x-2) (rec l-1) l-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2))
    (y ltxb) (x-2 beta) (x-2 l-1)
    (l-1 (mul (rec x-0) w l x-1 (rec l-0)))
    (l-1 (mul (rec x-0) w l x-1 (rec l-0) (rec x-2) (rec l-1) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) w l x-1 (rec l-0)))
    (mul (rec x-0) w l x-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w l x-1 (rec l-0) (rec x-2) (rec l-1) l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w l x-1 (rec l-0) (rec x-2) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 838)
  (parent 524)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l l-0 l-1 x-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w l l-0 (rec l-1) (rec x-1) (rec l-2) l-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec x-0) w l l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3))
    (y ltxb) (x-1 beta) (x-1 (mul (rec x-0) w l l-0 (rec l-1)))
    (x-1 l-2)
    (l-2 (mul (rec x-0) w l l-0 (rec l-1) (rec x-1) (rec l-2) l-3)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w l l-0 (rec l-1)))
    (mul (rec x-0) w l l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w l l-0 (rec l-1) (rec x-1) (rec l-2) l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w l l-0 (rec l-1) (rec x-1) (rec l-2) l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec x-0) w l l-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec x-0) w l l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 839)
  (parent 524)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 x-0 l-1 x-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 x-0 l-1 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 x-0 l-1 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w l-0 x-0 l-1 (rec x-1) (rec l-2) l-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w l-0 x-0 l-1 (rec l-2) l-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 x-0 l-1 l-3)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w l-0 x-0 l-1 (rec x-1) (rec l-2) l-3)) (x-1 l-2)
    (l-3 (mul (rec l) w l-0 x-0 l-1)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 x-0 l-1 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 x-0 l-1 l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-3 (mul (rec l) w l-0 x-0 l-1))
    (mul (rec l) w l-0 x-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 x-0 l-1 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 x-0 l-1 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w l-0 x-0 l-1 (rec x-1) (rec l-2) l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w l-0 x-0 l-1 (rec x-1) (rec l-2) l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 x-0 l-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 l-1)))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 840)
  (parent 525)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 x-0 l-1 x-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w l-0 x-0 (rec l-1) (rec x-1) (rec l-2) l-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3))
    (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w l-0 x-0 (rec l-1) (rec x-1) (rec l-2) l-3))
    (x-1 l-2) (l-2 (mul (rec l) w l-0 x-0 (rec l-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w l-0 x-0 (rec l-1)))
    (mul (rec l) w l-0 x-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w l-0 x-0 (rec l-1) (rec x-1) (rec l-2) l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w l-0 x-0 (rec l-1) (rec x-1) (rec l-2) l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 841)
  (parent 525)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 x-0 l-3 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-0)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec x-0) (rec l-3) l-4)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-3) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-3 l-4)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
    (y ltxb) (x-0 beta) (x-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (x-0 (mul (rec l) w l-0 l-1 (rec l-2) (rec x-0) (rec l-3) l-4))
    (x-0 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec x-0) (rec l-3) l-4)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec x-0) (rec l-3) l-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 842)
  (parent 525)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (x-0 x-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0 l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (x-1 beta-0) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0 l-1)))
      (send (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 843)
  (parent 526)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-2 x-0) (w (mul x-0 (rec x-1) l-0)) (x-3 x-1)
      (l-1 l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0)))
      (send (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 844)
  (parent 526)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 x-2 x-3 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 x-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 (rec x-3) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w x-1 x-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0)) (y ltxb) (x-2 beta)
    (x-2 l) (x-3 beta-0) (x-3 l-0) (l-0 (mul (rec x-0) w x-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 x-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w x-1))
    (mul (rec x-0) w x-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1 x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
      (send (cat (exp (gen) x-2) (mul (rec x-0) w x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 (rec x-3) l-0)))
      (send
        (cat (exp (gen) x-3) (mul (rec x-0) w x-1 x-2 (rec x-3) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 845)
  (parent 526)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (l-0 x-1 x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l-0) x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec x-0) w (rec l-0) x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1)) (y ltxb)
    (x-1 beta) (x-1 l) (x-2 beta-0) (x-2 (mul (rec x-0) w (rec l-0)))
    (x-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w (rec l-0) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-2 (mul (rec x-0) w (rec l-0)))
    (mul (rec x-0) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w (rec l-0) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w (rec l-0))))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l-0) x-1 (rec x-2) l-1)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l-0) x-1 (rec x-2) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 846)
  (parent 526)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 w expt) (x-0 l-0 x-1 x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l-0) x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul w x-0 (rec l-0) x-1 (rec x-2) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul w x-0 (rec l-0) x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1)) (y ltxb) (x-1 beta)
    (x-1 l) (x-1 (mul w x-0 (rec l-0))) (x-2 beta-0) (x-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l-0) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 (rec l-0)))
    (mul w x-0 (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l-0) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l-0))))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-2) (mul w x-0 (rec l-0) x-1 (rec x-2) l-1)))
      (send
        (cat (exp (gen) x-2) (mul w x-0 (rec l-0) x-1 (rec x-2) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 847)
  (parent 526)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (beta-0 expt) (l l-0 x-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul l-0 x-0 (rec x-1) l-1)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x l-0) (x (mul x-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 x-0 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (x-1 beta-0) (x-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul l-0 x-0 (rec x-1) l-1)))
      (send (cat (exp (gen) x-1) (mul l-0 x-0 (rec x-1) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 848)
  (parent 527)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0 l-0)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 2) (0 1)) ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-0)) (y ltxb) (x-0 beta) (x-0 l)
    (x-1 beta-0) (x-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0 l-0)))
      (send (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-1)))))
  (label 849)
  (parent 527)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l l-0 x-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul l-0 x-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x l-0) (x x-0) (y chi) (y (mul (rec ltxb) l-0 x-0)) (y ltxb)
    (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (x-2 x-0) (w (mul l-0 x-0 (rec x-1)))
      (x-3 x-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul l-0 x-0 (rec x-1))))
      (send (cat (exp (gen) x-1) (mul l-0 x-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-1)))))
  (label 850)
  (parent 527)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 rndx) (w expt)
    (l-0 l-1 x-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec x-0) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec l) (rec x-0) w l-1 x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec l) (rec x-0) w x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1)) (y ltxb) (x-1 beta)
    (x-1 l-0) (x-2 beta-0) (x-2 (mul (rec l) (rec x-0) w)) (x-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-2 (mul (rec l) (rec x-0) w))
    (mul (rec l) (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec x-0) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) (rec x-0) w l-1 x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) (rec x-0) w l-1 x-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-2)))))
  (label 851)
  (parent 527)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w x-0 x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec l) w x-0 x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 x-1)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w x-0)) (x-1 l-0) (x-2 beta-0) (x-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 x-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-2)))))
  (label 852)
  (parent 527)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l l-0 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 x-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w x-1 l-0 x-2 (rec x-3))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w x-1 x-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2)) (y ltxb)
    (l-0 (mul (rec x-0) w x-1)) (x-2 beta) (x-2 l) (x-3 beta-0) (x-3 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 x-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w x-1))
    (mul (rec x-0) w x-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1 x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
      (send (cat (exp (gen) x-2) (mul (rec x-0) w x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec x-0) w x-1 l-0 x-2 (rec x-3))))
      (send
        (cat (exp (gen) x-3) (mul (rec x-0) w x-1 l-0 x-2 (rec x-3)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-3)))))
  (label 853)
  (parent 527)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi beta expt) (ltxb l rndx) (beta-0 expt)
    (l-0 l-1 x-0 x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 x-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul x-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) l-2))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul l-1 x-0 (rec x-1) l-2)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)) ((11 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1 l-2)
  (uniq-gen x y x-0 x-1)
  (absent (x l-1) (x (mul x-0 l-2)) (y chi)
    (y (mul (rec ltxb) l-1 x-0 l-2)) (y ltxb) (x-0 beta) (x-0 l)
    (x-1 beta-0) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul x-0 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 x-0 l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 x-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 x-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 x-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) l-2)) (send (cat (exp (gen) x-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul l-1 x-0 (rec x-1) l-2)))
      (send (cat (exp (gen) x-1) (mul l-1 x-0 (rec x-1) l-2))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self l-2)))))
  (label 854)
  (parent 528)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-1 l-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x (mul x-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) x-0 l-1 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (x-1 beta-0) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-1 l-1)))
      (send (cat (exp (gen) x-1) (mul x-0 (rec x-1) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 855)
  (parent 528)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 l-1 x-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul l-1 x-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x l-1) (x x-0) (y chi) (y (mul (rec ltxb) l-1 x-0)) (y ltxb)
    (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-1) (x-2 x-0) (w (mul l-1 x-0 (rec x-1)))
      (x-3 x-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul l-1 x-0 (rec x-1))))
      (send (cat (exp (gen) x-1) (mul l-1 x-0 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 856)
  (parent 528)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 rndx) (w expt)
    (l-1 l-2 x-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec x-0) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec l-0) (rec x-0) w l-2 x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-2)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec l-0) (rec x-0) w x-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1)) (y ltxb)
    (x-1 beta) (x-1 l) (x-2 beta-0) (x-2 (mul (rec l-0) (rec x-0) w))
    (x-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-2 (mul (rec l-0) (rec x-0) w))
    (mul (rec l-0) (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) (rec x-0) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) (rec x-0) w l-2 x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) (rec x-0) w l-2 x-1 (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 857)
  (parent 528)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 rndx) (w expt)
    (x-0 l-1 l-2 x-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w x-0 x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) x-1) (mul (rec l-0) w x-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec l-0) w x-0 l-2 x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-2)
  (uniq-gen x y x-1 x-2)
  (absent (x (mul (rec l-0) w x-0 x-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1)) (y ltxb) (x-1 beta)
    (x-1 l) (x-1 (mul (rec l-0) w x-0)) (x-2 beta-0) (x-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w x-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l-0) w x-0))
    (mul (rec l-0) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) x-1) (mul (rec l-0) w x-0)))
      (send (cat (exp (gen) x-1) (mul (rec l-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-2) (mul (rec l-0) w x-0 l-2 x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul (rec l-0) w x-0 l-2 x-1 (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 858)
  (parent 528)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l-0 l-1 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 x-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w x-1 l-1 x-2 (rec x-3))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w x-1 x-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2)) (y ltxb)
    (l-1 (mul (rec x-0) w x-1)) (x-2 beta) (x-2 l) (x-3 beta-0)
    (x-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 x-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec x-0) w x-1))
    (mul (rec x-0) w x-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1 x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-2) (mul (rec x-0) w x-1)))
      (send (cat (exp (gen) x-2) (mul (rec x-0) w x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l-1 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec x-0) w x-1 l-1 x-2 (rec x-3))))
      (send
        (cat (exp (gen) x-3) (mul (rec x-0) w x-1 l-1 x-2 (rec x-3)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-3))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 859)
  (parent 528)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 l-0)))
  (deflistener l-0)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((2 1) (9 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0))
    ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-0)) (y ltxb) (x-0 l) (x-0 beta))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul l-0 l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul l-0 l-0))))
    ((recv l-0) (send l-0)))
  (label 860)
  (parent 530)
  (unrealized (0 0) (0 1) (1 3) (3 0) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (beta expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 l) (x-0 beta) (l-0 (one)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0))))
  (label 861)
  (parent 533)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l rndx) (beta expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) w))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0)) (y ltxb) (x-0 l) (x-0 beta) (l-0 w)
    (l-0 (mul w (rec l-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l-0))))
      (send (cat (exp (gen) x-0) (mul w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
  (label 862)
  (parent 533)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l rndx) (beta expt) (x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w l-0)))
  (deflistener l-0)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l-0) (y chi) (y (mul (rec ltxb) w x-0 l-0))
    (y ltxb) (x-0 l) (x-0 beta) (l-0 w))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul w l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w l-0)))
      (send (cat (exp (gen) x-0) (mul w l-0)))) ((recv l-0) (send l-0)))
  (label 863)
  (parent 533)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l l-0 rndx) (w expt) (l-1 l-2 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w l-1 (rec l-2))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l-0) w l-1 (rec l-2) (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l-0) w l-1)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w l-1 (rec l-2))) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (x-0 (mul (rec l-0) w l-1))
    (x-0 (mul (rec l-0) w l-1 (rec l-2) (rec x-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
    (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w l-1 (rec l-2))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l-0) w l-1))
    (mul (rec l-0) w l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w l-1 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-0) (mul (rec l-0) w l-1 (rec l-2) (rec x-0))))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l-0) w l-1 (rec l-2) (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l-0) w l-1)))
      (send (cat (gen) (mul (rec l-0) w l-1)))))
  (label 864)
  (parent 538)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l l-0 rndx) (w expt) (x-0 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l-0) w x-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l-0) w x-0 (rec l-1) (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l-0) w x-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l-0) w x-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l-0) w x-0)) (y ltxb)
    (l-1 (mul (rec l-0) w x-0)) (x-1 beta) (x-1 l)
    (x-1 (mul (rec l-0) w x-0 (rec l-1) (rec x-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l-0) w x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l-0) w x-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l-0) w x-0))
    (mul (rec l-0) w x-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l-0) w x-0 (rec l-1) (rec x-1))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) w x-0 (rec l-1) (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l-0) w x-0)))
      (send (cat (gen) (mul (rec l-0) w x-0)))))
  (label 865)
  (parent 538)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (rec x-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (l-0 (rec x-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (rec x-0)))
      (send (cat (exp (gen) x-0) (rec x-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0))))
  (label 866)
  (parent 539)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec x-0) w l-0 (rec l-1) (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec x-0) w l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l-0)) (y ltxb)
    (l-1 (mul (rec x-0) w l-0 (rec l-1) (rec x-1))) (x-1 beta) (x-1 l)
    (x-1 (mul (rec x-0) w l-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec x-0) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec x-0) w l-0))
    (mul (rec x-0) w l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec x-0) w l-0 (rec l-1) (rec x-1))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w l-0 (rec l-1) (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec x-0) w l-0)))
      (send (cat (gen) (mul (rec x-0) w l-0)))))
  (label 867)
  (parent 539)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (x-1 l-0 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec x-0) w x-1 (rec l-0) (rec x-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec x-0) w x-1)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w x-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1)) (y ltxb)
    (l-0 (mul (rec x-0) w x-1))
    (l-0 (mul (rec x-0) w x-1 (rec l-0) (rec x-2))) (x-2 beta) (x-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w x-1))
    (mul (rec x-0) w x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w x-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-2) (mul (rec x-0) w x-1 (rec l-0) (rec x-2))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w x-1 (rec l-0) (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec x-0) w x-1)))
      (send (cat (gen) (mul (rec x-0) w x-1)))))
  (label 868)
  (parent 539)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt)
    (x-0 y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0 l-1)))
      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 869)
  (parent 540)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (w (mul x-0 (rec y-0) l-0)) (y-1 y-0)
      (l-1 l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0)))
      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 870)
  (parent 540)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 x-1 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 (rec y-1) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0)) (y ltxb) (x-1 beta)
    (x-1 l) (y-1 alpha) (y-1 chi-0) (y-1 l-0)
    (l-0 (mul (rec x-0) w y-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w y-0))
    (mul (rec x-0) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w y-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 (rec y-1) l-0)))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 871)
  (parent 540)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (l-0 x-1 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l-0) x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-1 y-0)
  (absent (x (mul (rec x-0) w (rec l-0) x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1)) (y ltxb)
    (x-1 beta) (x-1 l) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec x-0) w (rec l-0))) (y-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w (rec l-0) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec x-0) w (rec l-0)))
    (mul (rec x-0) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w (rec l-0) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w (rec l-0))))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec x-0) w (rec l-0) x-1 (rec y-0) l-1)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec x-0) w (rec l-0) x-1 (rec y-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 872)
  (parent 540)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 w expt) (y-0 l-0 x-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l-0) x-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul w y-0 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul w y-0 (rec l-0) x-0 (rec y-1) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-0 y-1)
  (absent (x (mul w y-0 (rec l-0) x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1)) (y ltxb) (x-0 beta)
    (x-0 l) (x-0 (mul w y-0 (rec l-0))) (y-1 alpha) (y-1 chi-0)
    (y-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l-0) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul w y-0 (rec l-0)))
    (mul w y-0 (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l-0) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul w y-0 (rec l-0))))
      (send (cat (exp (gen) x-0) (mul w y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) x-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul w y-0 (rec l-0) x-0 (rec y-1) l-1)))
      (send
        (cat (exp (gen) y-1) (mul w y-0 (rec l-0) x-0 (rec y-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 873)
  (parent 540)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb rndx) (alpha chi-0 expt)
    (l l-0 x-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 x-0 (rec y-0) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x l-0) (x (mul x-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 x-0 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 x-0 (rec y-0) l-1)))
      (send (cat (exp (gen) y-0) (mul l-0 x-0 (rec y-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 874)
  (parent 541)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul x-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 3) (0 1)) ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul x-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-0 l-0)) (y ltxb) (x-0 beta) (x-0 l)
    (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul x-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 875)
  (parent 541)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l l-0 x-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 x-0 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x l-0) (x x-0) (y chi) (y (mul (rec ltxb) l-0 x-0)) (y ltxb)
    (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (x-1 x-0) (w (mul l-0 x-0 (rec y-0)))
      (y-1 y-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 x-0 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l-0 x-0 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 876)
  (parent 541)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 rndx) (w expt)
    (l-0 l-1 x-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec x-0) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l) (rec x-0) w l-1 x-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-1 y-0)
  (absent (x (mul (rec l) (rec x-0) w x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1)) (y ltxb) (x-1 beta)
    (x-1 l-0) (y-0 alpha) (y-0 chi-0) (y-0 (mul (rec l) (rec x-0) w))
    (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) (rec x-0) w))
    (mul (rec l) (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec x-0) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec l) (rec x-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) (rec x-0) w l-1 x-1 (rec y-0))))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) (rec x-0) w l-1 x-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 877)
  (parent 541)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 x-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 x-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w y-0 x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 x-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-0 y-1)
  (absent (x (mul (rec l) w y-0 x-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 x-0)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w y-0)) (x-0 l-0) (y-1 alpha) (y-1 chi-0)
    (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 x-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 x-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 878)
  (parent 541)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l l-0 x-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-0 x-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1)) (y ltxb)
    (l-0 (mul (rec x-0) w y-0)) (x-1 beta) (x-1 l) (y-1 alpha)
    (y-1 chi-0) (y-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec x-0) w y-0))
    (mul (rec x-0) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w y-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-0 x-1 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-0 x-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 879)
  (parent 541)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi beta expt) (ltxb l rndx) (alpha chi-0 expt)
    (l-0 l-1 x-0 y-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 x-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul x-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) l-2))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-1 x-0 (rec y-0) l-2)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)) ((11 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1 l-2)
  (uniq-gen x y x-0 y-0)
  (absent (x l-1) (x (mul x-0 l-2)) (y chi)
    (y (mul (rec ltxb) l-1 x-0 l-2)) (y ltxb) (x-0 beta) (x-0 l)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul x-0 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 x-0 l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 x-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 x-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 x-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) l-2)) (send (cat (exp (gen) x-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-1 x-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-1 x-0 (rec y-0) l-2)))
      (send (cat (exp (gen) y-0) (mul l-1 x-0 (rec y-0) l-2))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self l-2)))))
  (label 880)
  (parent 542)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt)
    (l-0 x-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x (mul x-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) x-0 l-1 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul x-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul x-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul x-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-1 l-1)))
      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 881)
  (parent 542)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt)
    (l-0 l-1 x-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (one)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-1 x-0 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x l-1) (x x-0) (y chi) (y (mul (rec ltxb) l-1 x-0)) (y ltxb)
    (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-1) (x-1 x-0) (w (mul l-1 x-0 (rec y-0)))
      (y-1 y-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (one)))
      (send (cat (exp (gen) x-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-1 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-1 x-0 (rec y-0))))
      (send (cat (exp (gen) y-0) (mul l-1 x-0 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 882)
  (parent 542)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 x-0 rndx)
    (w expt) (l-1 l-2 x-1 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec x-0) w x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l-0) (rec x-0) w l-2 x-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-2)
  (uniq-gen x y x-1 y-0)
  (absent (x (mul (rec l-0) (rec x-0) w x-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1)) (y ltxb)
    (x-1 beta) (x-1 l) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l-0) (rec x-0) w)) (y-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) (rec x-0) w x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l-0) (rec x-0) w))
    (mul (rec l-0) (rec x-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) (rec x-0) w x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w)))
      (send (cat (exp (gen) x-1) (mul (rec l-0) (rec x-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l-0) (rec x-0) w l-2 x-1 (rec y-0))))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l-0) (rec x-0) w l-2 x-1 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 883)
  (parent 542)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 rndx) (w expt)
    (y-0 l-1 l-2 x-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w y-0 x-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) x-0) (mul (rec l-0) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l-0) w y-0 l-2 x-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-2)
  (uniq-gen x y x-0 y-1)
  (absent (x (mul (rec l-0) w y-0 x-0)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0)) (y ltxb) (x-0 beta)
    (x-0 l) (x-0 (mul (rec l-0) w y-0)) (y-1 alpha) (y-1 chi-0)
    (y-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w y-0 x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l-0) w y-0))
    (mul (rec l-0) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0 x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) w y-0)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l-0) w y-0 l-2 x-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec l-0) w y-0 l-2 x-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 884)
  (parent 542)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l-0 l-1 x-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-1 x-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1)) (y ltxb)
    (l-1 (mul (rec x-0) w y-0)) (x-1 beta) (x-1 l) (y-1 alpha)
    (y-1 chi-0) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec x-0) w y-0))
    (mul (rec x-0) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec x-0) w y-0 x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-1) (mul (rec x-0) w y-0)))
      (send (cat (exp (gen) x-1) (mul (rec x-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-1 x-1 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-1 x-1 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 885)
  (parent 542)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (x-0 w) (x-0 (mul w (rec x-0))))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 886)
  (parent 547)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul w x-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) x-0) w))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore) (self a-0)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul w x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener x-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 2) (0 1)) ((3 2) (2 0))
    ((3 2) (9 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)) ((9 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul w x-0)) (x l-0) (y chi) (y (mul (rec ltxb) w l-0 x-0))
    (y ltxb) (x-0 beta) (x-0 l) (x-0 w))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv a-0 l) (pv self l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w x-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0 x-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x-0) (mul w x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l-0 x-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w x-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a-0 l))))
    ((recv (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0 x-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul w x-0)))
      (send (cat (exp (gen) l-0) (mul w x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))) ((recv x-0) (send x-0)))
  (label 887)
  (parent 547)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 x-1 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) (rec x-2) l-2)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) (rec x-0) w l-0 x-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1 l-2))
    (y ltxb) (x-2 beta) (x-2 l-2)
    (l-2 (mul (rec l) (rec x-0) w l-0 x-1))
    (l-2 (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) (rec x-2) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1 l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) (rec x-0) w l-0 x-1))
    (mul (rec l) (rec x-0) w l-0 x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec x-0) w l-0 x-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) (rec x-2) l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) (rec x-0) w l-0 x-1 (rec l-1) (rec x-2) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 x-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) (rec x-0) w l-0 x-1)))
      (send (cat (exp (gen) l-2) (mul (rec l) (rec x-0) w l-0 x-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 888)
  (parent 552)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (l-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-0 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) (rec x-1) l-3)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l) (rec x-0) w l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) l-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w l-0 (rec l-1) l-3)) (y ltxb)
    (x-1 beta) (x-1 (mul (rec l) (rec x-0) w l-0 (rec l-1))) (x-1 l-3)
    (l-3
      (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) (rec x-1) l-3)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec x-0) w l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec l) (rec x-0) w l-0 (rec l-1)))
    (mul (rec l) (rec x-0) w l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec x-0) w l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) (rec x-1)
           l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) (rec x-0) w l-0 (rec l-1) (rec l-2) (rec x-1)
            l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec l) (rec x-0) w l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-3) (mul (rec l) (rec x-0) w l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 889)
  (parent 552)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l x-0 rndx) (w expt) (x-1 l-0 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec l-0) l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) (rec x-2) l-2)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) (rec x-0) w x-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) l-2))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec l-0) l-2)) (y ltxb)
    (l-1 (mul (rec l) (rec x-0) w x-1 (rec l-0))) (x-2 beta) (x-2 l-2)
    (l-2
      (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) (rec x-2) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec x-0) w x-1 (rec l-0)))
    (mul (rec l) (rec x-0) w x-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) (rec x-2)
           l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) (rec x-0) w x-1 (rec l-0) (rec l-1) (rec x-2)
            l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec l) (rec x-0) w x-1 (rec l-0))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) (rec x-0) w x-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 890)
  (parent 552)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 l-1 x-0 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 x-0 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 l-1 x-0 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w l-0 l-1 x-0 (rec l-2) (rec x-1) l-3)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w l-0 l-1 x-0 (rec l-2) l-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 x-0 l-3)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w l-0 l-1 x-0 (rec l-2) (rec x-1) l-3)) (x-1 l-3)
    (l-3 (mul (rec l) w l-0 l-1 x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 l-1 x-0 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 x-0 l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-3 (mul (rec l) w l-0 l-1 x-0))
    (mul (rec l) w l-0 l-1 x-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 x-0 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 x-0 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w l-0 l-1 x-0 (rec l-2) (rec x-1) l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w l-0 l-1 x-0 (rec l-2) (rec x-1) l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 x-0 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 x-0)))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 891)
  (parent 553)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 l-1 l-2 l-3 x-0 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-0)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec x-0) l-4)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-4) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-3 l-4)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
    (y ltxb) (x-0 beta) (x-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (x-0 (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec x-0) l-4))
    (x-0 l-4))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv self l-4))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec x-0) l-4)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec x-0) l-4))))
    ((load priv-stor-1 (cat pt-3 (pv self l-4)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 892)
  (parent 553)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (w expt) (l-0 x-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) (rec x-1) l-3)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3))
    (y ltxb) (l-2 (mul (rec l) w l-0 x-0 (rec l-1))) (x-1 beta)
    (x-1 (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) (rec x-1) l-3))
    (x-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w l-0 x-0 (rec l-1)))
    (mul (rec l) w l-0 x-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 x-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) (rec x-1) l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w l-0 x-0 (rec l-1) (rec l-2) (rec x-1) l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 x-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 x-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 893)
  (parent 553)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l l-0 x-1 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l l-0 x-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w l l-0 x-1 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w l l-0 x-1 (rec l-1) (rec x-2) l-2)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec x-0) w l l-0 x-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w l l-0 x-1 (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w l l-0 x-1 l-2)) (y ltxb)
    (l-1 (mul (rec x-0) w l l-0 x-1 (rec l-1) (rec x-2) l-2)) (x-2 beta)
    (x-2 l-2) (l-2 (mul (rec x-0) w l l-0 x-1)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w l l-0 x-1 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l l-0 x-1 l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec x-0) w l l-0 x-1))
    (mul (rec x-0) w l l-0 x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w l l-0 x-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w l l-0 x-1 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w l l-0 x-1 (rec l-1) (rec x-2) l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w l l-0 x-1 (rec l-1) (rec x-2) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l l-0 x-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec x-0) w l l-0 x-1)))
      (send (cat (exp (gen) l-2) (mul (rec x-0) w l l-0 x-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 894)
  (parent 554)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (l-0 (mul (rec x-0) l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l))))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 895)
  (parent 554)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l l-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) (rec x-1) l-3)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec x-0) w l l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3))
    (y ltxb)
    (l-2 (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) (rec x-1) l-3))
    (x-1 beta) (x-1 (mul (rec x-0) w l l-0 (rec l-1))) (x-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w l l-0 (rec l-1)))
    (mul (rec x-0) w l l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w l l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) (rec x-1) l-3)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w l l-0 (rec l-1) (rec l-2) (rec x-1) l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec x-0) w l l-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec x-0) w l l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 896)
  (parent 554)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb x-0 rndx) (w expt) (l x-1 l-0 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) (rec x-2) l-2)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2))
    (y ltxb) (l-1 (mul (rec x-0) w l x-1 (rec l-0)))
    (l-1 (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) (rec x-2) l-2))
    (x-2 beta) (x-2 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) w l x-1 (rec l-0)))
    (mul (rec x-0) w l x-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w l x-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) (rec x-2) l-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w l x-1 (rec l-0) (rec l-1) (rec x-2) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l x-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec x-0) w l x-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 897)
  (parent 554)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 rndx) (w expt)
    (l-1 x-1 l-2 x-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) l-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l-0) (rec x-0) w l-1 x-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1 l-3))
    (y ltxb) (x-2 beta) (x-2 l)
    (l-3 (mul (rec l-0) (rec x-0) w l-1 x-1))
    (l-3 (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) l-3)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1 l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l-0) (rec x-0) w l-1 x-1))
    (mul (rec l-0) (rec x-0) w l-1 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 x-1 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) l-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) l-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 x-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l-0) (rec x-0) w l-1 x-1)))
      (send (cat (exp (gen) l-3) (mul (rec l-0) (rec x-0) w l-1 x-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 898)
  (parent 558)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 rndx) (w expt)
    (l-1 l-2 l-3 x-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) (rec x-1)
        l-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-4) (mul (rec l-0) (rec x-0) w l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) l-4))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
    (y ltxb) (x-1 beta) (x-1 l)
    (x-1 (mul (rec l-0) (rec x-0) w l-1 (rec l-2)))
    (l-4
      (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) (rec x-1)
        l-4)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed
      (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec l-0) (rec x-0) w l-1 (rec l-2)))
    (mul (rec l-0) (rec x-0) w l-1 (rec l-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) (rec x-1)
           l-4)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) (rec x-0) w l-1 (rec l-2) (rec l-3) (rec x-1)
            l-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-4) (mul (rec l-0) (rec x-0) w l-1 (rec l-2))))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l-0) (rec x-0) w l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 899)
  (parent 558)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 x-0 rndx) (w expt)
    (x-1 l-1 l-2 x-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) (rec x-2)
        l-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l-0) (rec x-0) w x-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) l-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
    (y ltxb) (l-2 (mul (rec l-0) (rec x-0) w x-1 (rec l-1))) (x-2 beta)
    (x-2 l)
    (l-3
      (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) (rec x-2)
        l-3)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) (rec x-0) w x-1 (rec l-1)))
    (mul (rec l-0) (rec x-0) w x-1 (rec l-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) (rec x-2)
           l-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) (rec x-0) w x-1 (rec l-1) (rec l-2) (rec x-2)
            l-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec l-0) (rec x-0) w x-1 (rec l-1))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l-0) (rec x-0) w x-1 (rec l-1)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 900)
  (parent 558)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (w expt)
    (l-1 l-2 x-0 l-3 x-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0 l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) (rec x-1) l-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-4) (mul (rec l-0) w l-1 l-2 x-0)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0 l-4)) (y ltxb)
    (x-1 beta) (x-1 l)
    (x-1 (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) (rec x-1) l-4))
    (l-4 (mul (rec l-0) w l-1 l-2 x-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0 l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-4 (mul (rec l-0) w l-1 l-2 x-0))
    (mul (rec l-0) w l-1 l-2 x-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) w l-1 l-2 x-0 l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) (rec x-1) l-4)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) w l-1 l-2 x-0 (rec l-3) (rec x-1) l-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 l-2 x-0 l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l-0) w l-1 l-2 x-0)))
      (send (cat (exp (gen) l-4) (mul (rec l-0) w l-1 l-2 x-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 901)
  (parent 560)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (w expt)
    (l-1 l-2 l-3 l-4 x-0 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-4) (x x)
    (beta (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-4))
  (deflistener
    (cat (exp (gen) x-0)
      (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec x-0) l-5)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-5) (mul (rec l-0) w l-1 l-2 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-4 l-5)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5)) (x l-4)
    (y chi) (y (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5))
    (y ltxb) (x-0 beta) (x-0 l)
    (x-0 (mul (rec l-0) w l-1 l-2 (rec l-3)))
    (x-0 (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec x-0) l-5)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-4) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
        (exp (gen) (mul y chi)))) (neq l-4 ltxb) (undisclosed l-4)
    (undisclosed (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l-0) w l-1 l-2 (rec l-3)))
    (mul (rec l-0) w l-1 l-2 (rec l-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-4))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec x-0) l-5)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec x-0) l-5))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l-0) w l-1 l-2 (rec l-3))))
      (send (cat (exp (gen) l-5) (mul (rec l-0) w l-1 l-2 (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-5)))
      (send
        (sig (body self (exp (gen) l-5) (pubk "sig" self))
          (privk "sig" self)))))
  (label 902)
  (parent 560)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l l-0 rndx) (w expt)
    (l-1 x-0 l-2 l-3 x-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w l-1 x-0 (rec l-2) l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) (rec x-1) l-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-4) (mul (rec l-0) w l-1 x-0 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w l-1 x-0 (rec l-2) l-4))
    (y ltxb) (l-3 (mul (rec l-0) w l-1 x-0 (rec l-2))) (x-1 beta)
    (x-1 l)
    (x-1 (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) (rec x-1) l-4)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 x-0 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l-0) w l-1 x-0 (rec l-2)))
    (mul (rec l-0) w l-1 x-0 (rec l-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w l-1 x-0 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) (rec x-1) l-4)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) w l-1 x-0 (rec l-2) (rec l-3) (rec x-1) l-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 x-0 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l-0) w l-1 x-0 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec l-0) w l-1 x-0 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 903)
  (parent 560)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l x-0 rndx) (w expt)
    (l-0 l-1 x-1 l-2 x-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) (rec x-2) l-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec x-0) w l-0 l-1 x-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1 l-3)) (y ltxb)
    (l-2 (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) (rec x-2) l-3))
    (x-2 beta) (x-2 l) (l-3 (mul (rec x-0) w l-0 l-1 x-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1 l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec x-0) w l-0 l-1 x-1))
    (mul (rec x-0) w l-0 l-1 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w l-0 l-1 x-1 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) (rec x-2) l-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w l-0 l-1 x-1 (rec l-2) (rec x-2) l-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l-0 l-1 x-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec x-0) w l-0 l-1 x-1)))
      (send (cat (exp (gen) l-3) (mul (rec x-0) w l-0 l-1 x-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 904)
  (parent 561)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) l-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x l-0) (x l-1) (y chi) (y (mul (rec ltxb) l-0 l-1)) (y ltxb)
    (x-0 beta) (x-0 l) (l-1 (mul (rec x-0) l-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed l-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) l-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 905)
  (parent 561)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l x-0 rndx) (w expt)
    (l-0 l-1 l-2 l-3 x-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w l-0 l-1 (rec l-2) l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) (rec x-1) l-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-4) (mul (rec x-0) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec x-0) w l-0 l-1 (rec l-2) l-4))
    (y ltxb)
    (l-3 (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) (rec x-1) l-4))
    (x-1 beta) (x-1 l) (x-1 (mul (rec x-0) w l-0 l-1 (rec l-2))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l-0 l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w l-0 l-1 (rec l-2)))
    (mul (rec x-0) w l-0 l-1 (rec l-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) (rec x-1) l-4)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w l-0 l-1 (rec l-2) (rec l-3) (rec x-1) l-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec x-0) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec x-0) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 906)
  (parent 561)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l x-0 rndx) (w expt)
    (l-0 x-1 l-1 l-2 x-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w l-0 x-1 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) (rec x-2) l-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec x-0) w l-0 x-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w l-0 x-1 (rec l-1) l-3))
    (y ltxb) (l-2 (mul (rec x-0) w l-0 x-1 (rec l-1)))
    (l-2 (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) (rec x-2) l-3))
    (x-2 beta) (x-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w l-0 x-1 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec x-0) w l-0 x-1 (rec l-1)))
    (mul (rec x-0) w l-0 x-1 (rec l-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w l-0 x-1 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) (rec x-2) l-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w l-0 x-1 (rec l-1) (rec l-2) (rec x-2) l-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w l-0 x-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec x-0) w l-0 x-1 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec x-0) w l-0 x-1 (rec l-1)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 907)
  (parent 561)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (4 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((1 2) (7 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 908)
  (parent 566)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 l-1) (x-1 beta))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 909)
  (parent 567)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx) (w expt)
    (l-0 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (one))
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0)) (y l) (y (mul w x)) (x-0 (one))
    (x-0 l-0))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 1 init 3) (exp (gen) x-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 910)
  (parent 567)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 911)
  (parent 567)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 912)
  (parent 567)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 913)
  (parent 567)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l x rndx) (w expt)
    (l-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-1)) (chi (mul w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w l-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-0)))
  (deflistener (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (7 0))
    ((6 1) (1 3)) ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1)
  (uniq-gen x y)
  (absent (x (one)) (x l-1) (y (mul (rec l) l-1)) (y l) (y (mul w l-0)))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))) (neq l-1 l)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-1)))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 5 ltx-gen 3) (exp (gen) l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-0)))
      (send (cat (exp (gen) y) (mul (rec x) w l-0))))
    ((recv (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))))
  (label 914)
  (parent 567)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 915)
  (parent 567)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta w expt) (x-0 x-1 x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul w x-0 (rec x-1) x-2 (rec l))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul w x-0 (rec x-1) x-2 (rec l))))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec x-1) x-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec x-1) x-2 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w x-0 (rec x-1) x-2)) (y ltxb) (x-2 beta) (x-2 l)
    (l (mul w x-0 (rec x-1))) (l (mul w x-0 (rec x-1) x-2 (rec l))))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul w x-0 (rec x-1) x-2 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w x-0 (rec x-1)))
    (mul w x-0 (rec x-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec x-1) x-2 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul w x-0 (rec x-1) x-2 (rec l))))
      (send (cat (gen) (mul w x-0 (rec x-1) x-2 (rec l)))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec x-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2)))))
  (label 916)
  (parent 570)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta w expt) (x-0 l x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w x-0 l x-1 (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w x-0 l x-1 (rec l-0))))
  (deflistener
    (hash (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 l)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 l x-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 l x-1)) (y ltxb) (x-1 beta)
    (x-1 (mul w x-0 l)) (x-1 l-0) (l-0 (mul w x-0 l x-1 (rec l-0))))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 l x-1 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 l x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 l)) (mul w x-0 l)
    (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 l x-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w x-0 l x-1 (rec l-0))))
      (send (cat (gen) (mul w x-0 l x-1 (rec l-0)))))
    ((recv (hash (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 l x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 l)))
      (send (cat (exp (gen) x-1) (mul w x-0 l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 917)
  (parent 570)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta w expt) (l x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w (rec l) (rec x-0) x-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w (rec l) (rec x-0) x-1 (rec l-0))))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w (rec l) (rec x-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (mul w (rec l) (rec x-0) x-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w (rec l) (rec x-0) x-1)) (y ltxb) (x-1 beta)
    (x-1 (mul w (rec l) (rec x-0) x-1 (rec l-0))) (x-1 l-0)
    (l-0 (mul w (rec l) (rec x-0))))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w (rec l) (rec x-0) x-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w (rec l) (rec x-0)))
    (mul w (rec l) (rec x-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w (rec l) (rec x-0) x-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w (rec l) (rec x-0) x-1 (rec l-0))))
      (send (cat (gen) (mul w (rec l) (rec x-0) x-1 (rec l-0)))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w (rec l) (rec x-0))))
      (send (cat (exp (gen) x-1) (mul w (rec l) (rec x-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 918)
  (parent 571)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data) (a b a-0 b-0 b-1 name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta w expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w (rec l) l-0 x-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul w (rec l) l-0 x-0 (rec l-1))))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l) l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul w (rec l) l-0 x-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) w (rec l) l-0 x-0)) (y ltxb) (x-0 beta)
    (x-0 (mul w (rec l) l-0)) (x-0 (mul w (rec l) l-0 x-0 (rec l-1)))
    (x-0 l-1))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l) l-0 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0 x-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w (rec l) l-0 x-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) l-0 x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul w (rec l) l-0))
    (mul w (rec l) l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w (rec l) l-0 x-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul w (rec l) l-0 x-0 (rec l-1))))
      (send (cat (gen) (mul w (rec l) l-0 x-0 (rec l-1)))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l) l-0)))
      (send (cat (exp (gen) x-0) (mul w (rec l) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 919)
  (parent 571)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 l-1 l-2 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-1 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-1 (rec l-2) x-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (gen) (mul (rec l) w l-1 (rec l-2) x-0)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-1 x-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-1 x-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w l-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w l-1 (rec l-2) x-0)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w l-1 x-0)) (y ltxb) (x-0 beta)
    (x-0 (mul (rec l) w l-1)) (x-0 (mul (rec l) w l-1 (rec l-2) x-0))
    (x-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-1 x-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-1 (rec l-2) x-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) w l-1))
    (mul (rec l) w l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-1 (rec l-2) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (gen) (mul (rec l) w l-1 (rec l-2) x-0)))
      (send (cat (gen) (mul (rec l) w l-1 (rec l-2) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w l-1)))
      (send (cat (exp (gen) x-0) (mul (rec l) w l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 920)
  (parent 575)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 x-0 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w (rec x-0) (rec l-1) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul (rec l) w (rec x-0) (rec l-1) x-1)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w (rec x-0) (rec l-1) x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec x-0) x-1)) (y ltxb)
    (l-1 (mul (rec l) w (rec x-0))) (x-1 beta)
    (x-1 (mul (rec l) w (rec x-0) (rec l-1) x-1)) (x-1 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w (rec x-0) (rec l-1) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w (rec x-0)))
    (mul (rec l) w (rec x-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec x-0) (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul (rec l) w (rec x-0) (rec l-1) x-1)))
      (send (cat (gen) (mul (rec l) w (rec x-0) (rec l-1) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w (rec x-0))))
      (send (cat (exp (gen) x-1) (mul (rec l) w (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 921)
  (parent 575)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) x-0))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (3 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (l-0 x-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) x-0)) (send (cat (gen) x-0)))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 922)
  (parent 576)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l-0 x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 l-0 (rec l-1) x-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul w x-0 l-0 (rec l-1) x-1)))
  (deflistener
    (hash (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 l-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 l-0 (rec l-1) x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0 l-0 x-1)) (y ltxb)
    (l-1 (mul w x-0 l-0 (rec l-1) x-1)) (x-1 beta) (x-1 (mul w x-0 l-0))
    (x-1 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 l-0 (rec l-1) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 l-0))
    (mul w x-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 l-0 (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul w x-0 l-0 (rec l-1) x-1)))
      (send (cat (gen) (mul w x-0 l-0 (rec l-1) x-1))))
    ((recv
       (hash (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 l-0 x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 l-0)))
      (send (cat (exp (gen) x-1) (mul w x-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 923)
  (parent 576)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l x-1 l-0 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w x-0 (rec x-1) (rec l-0) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w x-0 (rec x-1) (rec l-0) x-2)))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec x-1) x-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1)) ((7 2) (3 0))
    ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec x-1) (rec l-0) x-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 (rec x-1) x-2)) (y ltxb)
    (l-0 (mul w x-0 (rec x-1)))
    (l-0 (mul w x-0 (rec x-1) (rec l-0) x-2)) (x-2 beta) (x-2 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 (rec x-1) (rec l-0) x-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w x-0 (rec x-1)))
    (mul w x-0 (rec x-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec x-1) (rec l-0) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w x-0 (rec x-1) (rec l-0) x-2)))
      (send (cat (gen) (mul w x-0 (rec x-1) (rec l-0) x-2))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 924)
  (parent 576)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 y-1 y-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul w y-0 (rec y-1) y-2 (rec l))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (gen) (mul w y-0 (rec y-1) y-2 (rec l))))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec y-1) y-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec y-1) y-2 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w y-0 (rec y-1) y-2)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l) (l (mul w y-0 (rec y-1)))
    (l (mul w y-0 (rec y-1) y-2 (rec l))))
  (precur (3 0) (6 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul w y-0 (rec y-1) y-2 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w y-0 (rec y-1)))
    (mul w y-0 (rec y-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec y-1) y-2 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (gen) (mul w y-0 (rec y-1) y-2 (rec l))))
      (send (cat (gen) (mul w y-0 (rec y-1) y-2 (rec l)))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 925)
  (parent 583)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w y-0 l y-1 (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w y-0 l y-1 (rec l-0))))
  (deflistener
    (hash (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 l y-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 l y-1)) (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul w y-0 l)) (y-1 l-0) (l-0 (mul w y-0 l y-1 (rec l-0))))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 l y-1 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 l y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 l)) (mul w y-0 l)
    (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 l y-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w y-0 l y-1 (rec l-0))))
      (send (cat (gen) (mul w y-0 l y-1 (rec l-0)))))
    ((recv (hash (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 l y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 l)))
      (send (cat (exp (gen) y-1) (mul w y-0 l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 926)
  (parent 583)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (l y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w (rec l) (rec y-0) y-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w (rec l) (rec y-0) y-1 (rec l-0))))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w (rec l) (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-1)
  (absent (x (mul w (rec l) (rec y-0) y-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w (rec l) (rec y-0) y-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 (mul w (rec l) (rec y-0) y-1 (rec l-0))) (y-1 l-0)
    (l-0 (mul w (rec l) (rec y-0))))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w (rec l) (rec y-0) y-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w (rec l) (rec y-0)))
    (mul w (rec l) (rec y-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w (rec l) (rec y-0) y-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w (rec l) (rec y-0) y-1 (rec l-0))))
      (send (cat (gen) (mul w (rec l) (rec y-0) y-1 (rec l-0)))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w (rec l) (rec y-0))))
      (send (cat (exp (gen) y-1) (mul w (rec l) (rec y-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 927)
  (parent 584)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w (rec l) l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w (rec l) l-0 y-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul w (rec l) l-0 y-0 (rec l-1))))
  (deflistener
    (hash (exp (gen) (mul w (rec l) l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul w (rec l) l-0 y-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) w (rec l) l-0 y-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul w (rec l) l-0))
    (y-0 (mul w (rec l) l-0 y-0 (rec l-1))) (y-0 l-1))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w (rec l) l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) l-0 y-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w (rec l) l-0 y-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) l-0 y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul w (rec l) l-0))
    (mul w (rec l) l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w (rec l) l-0 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w (rec l) l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w (rec l) l-0 y-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w (rec l) l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul w (rec l) l-0 y-0 (rec l-1))))
      (send (cat (gen) (mul w (rec l) l-0 y-0 (rec l-1)))))
    ((recv
       (hash (exp (gen) (mul w (rec l) l-0 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) l-0 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) l-0 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) l-0 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l) l-0)))
      (send (cat (exp (gen) y-0) (mul w (rec l) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 928)
  (parent 584)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 l-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-1 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-1 (rec l-2) y-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (gen) (mul (rec l) w l-1 (rec l-2) y-0)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-1 y-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-1 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-1 (rec l-2) y-0)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w l-1 y-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul (rec l) w l-1))
    (y-0 (mul (rec l) w l-1 (rec l-2) y-0)) (y-0 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-1 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-1 (rec l-2) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w l-1))
    (mul (rec l) w l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-1 (rec l-2) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (gen) (mul (rec l) w l-1 (rec l-2) y-0)))
      (send (cat (gen) (mul (rec l) w l-1 (rec l-2) y-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w l-1)))
      (send (cat (exp (gen) y-0) (mul (rec l) w l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 929)
  (parent 588)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 y-0 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w (rec y-0) (rec l-1) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul (rec l) w (rec y-0) (rec l-1) y-1)))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w (rec y-0) (rec l-1) y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec y-0) y-1)) (y ltxb)
    (l-1 (mul (rec l) w (rec y-0))) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec l) w (rec y-0) (rec l-1) y-1)) (y-1 l-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w (rec y-0) (rec l-1) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l) w (rec y-0)))
    (mul (rec l) w (rec y-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w (rec y-0) (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul (rec l) w (rec y-0) (rec l-1) y-1)))
      (send (cat (gen) (mul (rec l) w (rec y-0) (rec l-1) y-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w (rec y-0))))
      (send (cat (exp (gen) y-1) (mul (rec l) w (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 930)
  (parent 588)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) y-0))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((2 1) (6 0)) ((3 1) (1 1))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (3 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (l-0 y-0))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) y-0)) (send (cat (gen) y-0)))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 931)
  (parent 589)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l-0 y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 l-0 (rec l-1) y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (gen) (mul w y-0 l-0 (rec l-1) y-1)))
  (deflistener
    (hash (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 l-0 (rec l-1) y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0 l-0 y-1)) (y ltxb)
    (l-1 (mul w y-0 l-0 (rec l-1) y-1)) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul w y-0 l-0)) (y-1 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 l-0 (rec l-1) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 l-0))
    (mul w y-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 l-0 (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (gen) (mul w y-0 l-0 (rec l-1) y-1)))
      (send (cat (gen) (mul w y-0 l-0 (rec l-1) y-1))))
    ((recv
       (hash (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 l-0 y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 l-0)))
      (send (cat (exp (gen) y-1) (mul w y-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 932)
  (parent 589)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l y-1 l-0 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w y-0 (rec y-1) (rec l-0) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (gen) (mul w y-0 (rec y-1) (rec l-0) y-2)))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec y-1) y-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1)) ((7 3) (3 0))
    ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec y-1) (rec l-0) y-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 (rec y-1) y-2)) (y ltxb)
    (l-0 (mul w y-0 (rec y-1)))
    (l-0 (mul w y-0 (rec y-1) (rec l-0) y-2)) (y-2 alpha) (y-2 chi-0)
    (y-2 l))
  (precur (3 0) (6 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 (rec y-1) (rec l-0) y-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w y-0 (rec y-1)))
    (mul w y-0 (rec y-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec y-1) (rec l-0) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (gen) (mul w y-0 (rec y-1) (rec l-0) y-2)))
      (send (cat (gen) (mul w y-0 (rec y-1) (rec l-0) y-2))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 933)
  (parent 589)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0))
    ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y x) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (4 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 934)
  (parent 591)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta y))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0))
    ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y x) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (5 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x y)))
      (hash (exp (gen) l) (exp (gen) (mul x y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (4 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 935)
  (parent 591)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l x y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l)) (eta y))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0))
    ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y x) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (4 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 936)
  (parent 593)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l x y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l)) (eta y))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (1 3))
    ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0))
    ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y x) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (4 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 937)
  (parent 593)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (w beta expt) (x rndx)
    (w-0 expt) (x-0 x-1 y x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta w)
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (8 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x-1 y x-2)
  (absent (x-1 w) (x-1 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 x-0)) (x-2 beta) (x-2 l))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)) ((6 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 6 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 938)
  (parent 595)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (beta expt) (x rndx) (w-0 expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-1) (beta w)
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 w) (x-1 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 939)
  (parent 595)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (ltxb rndx) (w alpha chi expt) (x rndx)
    (w-0 expt) (y x-0 y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta w)
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (8 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 3) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 w) (x-0 l) (y-0 (mul (rec ltxb) w l)) (y-0 ltxb)
    (y-0 (mul x w-0 y)) (y-1 alpha) (y-1 chi) (y-1 l))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)) ((6 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 6 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi y-1))))))))
  (label 940)
  (parent 598)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x-0) (beta w)
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (gen) w))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (7 0)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 w) (x-0 l) (y-0 (mul (rec ltxb) w l)) (y-0 ltxb)
    (y-0 (mul x w-0 y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b ltxb) (pv self l) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((6 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-0))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (gen) w)) (send (cat (gen) w)))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 941)
  (parent 598)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx) (w expt)
    (y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-0)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l-0) (eta (mul w y)))
  (deflistener (cat (gen) l-0))
  (deflistener (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (2 0)) ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x l-0) (y (mul x w)) (y (mul (rec l) l-0 l-0)) (y l))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed l)
    (undisclosed (mul (rec l) l-0 l-0)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 6 ltx-gen 2) l-1 (5 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((recv (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 942)
  (parent 599)
  (unrealized (0 0) (0 1) (2 0) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx) (w expt)
    (y l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul x w)) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l) (alpha (mul l (rec l-0))) (l-2 l-0)) (one)
    (5 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 943)
  (parent 599)
  (unrealized (0 0) (0 1) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x rndx) (w expt)
    (y l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta l-1) (eta (mul w y)))
  (deflistener (cat (gen) l-1))
  (deflistener (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (2 0)) ((8 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x l) (x l-1) (y (mul x w)) (y (mul l (rec l-0) l-1)) (y l-0))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul l (rec l-0) l-1)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (5 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) l-1)) (send (cat (gen) l-1)))
    ((recv (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul l l-1)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul l l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) l-1)) (send (cat (exp (gen) l) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))))
  (label 944)
  (parent 599)
  (unrealized (0 0) (0 1) (2 0) (4 0) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l x rndx) (w expt) (y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y (mul x w)) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul alpha l)) (mul alpha l)
    (5 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 945)
  (parent 599)
  (unrealized (0 0) (0 1) (4 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx)
    (alpha expt) (l-0 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha alpha) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) alpha l-0))
    (eta (mul w y)))
  (deflistener (cat (gen) (mul (rec l) alpha l-0)))
  (deflistener
    (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener l)
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (8 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0)) (x l) (y alpha) (y l-0)
    (y (mul x w)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul (rec l) alpha l-0))
    (undisclosed l-0) (undisclosed alpha))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul (rec l) alpha l-0)
    (5 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (mul (rec l) alpha l-0)))
      (send (cat (gen) (mul (rec l) alpha l-0))))
    ((recv (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul alpha l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv l) (send l)))
  (label 946)
  (parent 599)
  (unrealized (0 0) (1 1) (2 0) (4 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 (rec x-0) l l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul y-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 (rec x-0) l l-0)))
      (send (cat (exp (gen) x-0) (mul y-0 (rec x-0) l l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 947)
  (parent 608)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 x-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 (rec x-0) l)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l)
  (uniq-gen x y y-0 x-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-1 y-0) (w (mul y-0 (rec x-0) l)) (x-1 x-0) (l-0 l))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 (rec x-0) l)))
      (send (cat (exp (gen) x-0) (mul y-0 (rec x-0) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-0)))))
  (label 948)
  (parent 608)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt) (x-0 y-1 x-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 l))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec y-0) w x-0 y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 (rec x-1) l)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1)) (x l) (y chi)
    (y (mul (rec ltxb) (rec y-0) w x-0 y-1 l)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l) (x-1 beta) (x-1 l) (l (mul (rec y-0) w x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec y-0) w x-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec y-0) w x-0))
    (mul (rec y-0) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 y-1 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w x-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 (rec x-1) l)))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 (rec x-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-1)))))
  (label 949)
  (parent 608)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt) (l y-1 x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w (rec l) y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec y-0) w (rec l) y-1 (rec x-0) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-1 x-0)
  (absent (x (mul (rec y-0) w (rec l) y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-0) (x-0 beta)
    (x-0 (mul (rec y-0) w (rec l))) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w (rec l) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec y-0) w (rec l)))
    (mul (rec y-0) w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w (rec l) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w (rec l))))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec y-0) w (rec l) y-1 (rec x-0) l-0)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec y-0) w (rec l) y-1 (rec x-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-0)))))
  (label 950)
  (parent 608)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta w expt) (x-0 l y-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) y-0 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w x-0 (rec l) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul w x-0 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) y-0 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul w x-0 (rec l) y-0 (rec x-1) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-0 x-1)
  (absent (x (mul w x-0 (rec l) y-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) y-0 l-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul w x-0 (rec l))) (y-0 l-0) (x-1 beta)
    (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 (rec l) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul w x-0 (rec l)))
    (mul w x-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec l) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul w x-0 (rec l))))
      (send (cat (exp (gen) y-0) (mul w x-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) y-0 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) y-0 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l) y-0 (rec x-1) l-0)))
      (send
        (cat (exp (gen) x-1) (mul w x-0 (rec l) y-0 (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-1)))))
  (label 951)
  (parent 608)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt)
    (l y-0 l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 l-0 (rec x-0) l-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 l-0 (rec x-0) l-1)))
      (send (cat (exp (gen) x-0) (mul y-0 l-0 (rec x-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 952)
  (parent 609)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 l-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 l-0 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0) (x-0 beta) (x-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-1 y-0) (l-1 l-0) (w (mul y-0 l-0 (rec x-0)))
      (x-1 x-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 l-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul y-0 l-0 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l)))))
  (label 953)
  (parent 609)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 l rndx) (w expt)
    (l-0 y-1 l-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) (rec l) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec y-0) (rec l) w y-1 l-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-1 x-0)
  (absent (x (mul (rec y-0) (rec l) w y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-1) (x-0 beta)
    (x-0 (mul (rec y-0) (rec l) w)) (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) (rec l) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec y-0) (rec l) w))
    (mul (rec y-0) (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) (rec l) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec y-0) (rec l) w y-1 l-1 (rec x-0))))
      (send
        (cat (exp (gen) x-0)
          (mul (rec y-0) (rec l) w y-1 l-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 954)
  (parent 609)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l y-1 l-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l-0) (l-0 (mul (rec y-0) w x-0)) (x-1 beta)
    (x-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w x-0))
    (mul (rec y-0) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w x-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l)))))
  (label 955)
  (parent 609)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 y-0 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 y-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w x-0 y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 y-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w x-0 y-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-0 x-1)
  (absent (x (mul (rec l) w x-0 y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 y-0 l-1)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul (rec l) w x-0)) (y-0 l-1) (x-1 beta)
    (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) w x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 y-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 y-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 y-0 l-1 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w x-0 y-0 l-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 956)
  (parent 609)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 rndx) (w expt) (y-1 y-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec y-0) w y-1 (rec l))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec y-0) w y-1 (rec y-2) (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec y-0) w y-1)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w y-1 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l) (l (mul (rec y-0) w y-1))
    (l (mul (rec y-0) w y-1 (rec y-2) (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec y-0) w y-1 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec y-0) w y-1))
    (mul (rec y-0) w y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) y-2) (mul (rec y-0) w y-1 (rec y-2) (rec l))))
      (send
        (cat (exp (gen) y-2) (mul (rec y-0) w y-1 (rec y-2) (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec y-0) w y-1)))
      (send (cat (gen) (mul (rec y-0) w y-1)))))
  (label 957)
  (parent 612)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb y-0 rndx) (w expt) (l y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w l (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec y-0) w l (rec y-1) (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec y-0) w l)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l)) (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec y-0) w l)) (y-1 l-0)
    (l-0 (mul (rec y-0) w l (rec y-1) (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w l (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec y-0) w l))
    (mul (rec y-0) w l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w l (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec y-0) w l (rec y-1) (rec l-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec y-0) w l (rec y-1) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec y-0) w l)))
      (send (cat (gen) (mul (rec y-0) w l)))))
  (label 958)
  (parent 612)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb l rndx) (w expt) (y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec l) w y-0 (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w y-0 (rec y-1) (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w y-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0)) (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec l) w y-0 (rec y-1) (rec l-0))) (y-1 l-0)
    (l-0 (mul (rec l) w y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l) w y-0 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) w y-0 (rec y-1) (rec l-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w y-0 (rec y-1) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w y-0)))
      (send (cat (gen) (mul (rec l) w y-0)))))
  (label 959)
  (parent 613)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb l rndx) (w expt) (l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l) w l-0 (rec y-0) (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l) w l-0)))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w l-0))
    (y-0 (mul (rec l) w l-0 (rec y-0) (rec l-1))) (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w l-0))
    (mul (rec l) w l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-0) (mul (rec l) w l-0 (rec y-0) (rec l-1))))
      (send
        (cat (exp (gen) y-0) (mul (rec l) w l-0 (rec y-0) (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l) w l-0)))
      (send (cat (gen) (mul (rec l) w l-0)))))
  (label 960)
  (parent 613)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (y-0 y-1 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 (rec y-1) l l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul y-0 l-0)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1)
    (y-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-0 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 (rec y-1) l l-0)))
      (send (cat (exp (gen) y-1) (mul y-0 (rec y-1) l l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))))
  (label 961)
  (parent 614)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 y-1 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 (rec y-1) l)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l)
  (uniq-gen x y y-0 y-1)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-2 y-0) (w (mul y-0 (rec y-1) l)) (y-3 y-1) (l-0 l))
    (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 (rec y-1) l)))
      (send (cat (exp (gen) y-1) (mul y-0 (rec y-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 962)
  (parent 614)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (y-1 y-2 y-3 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 l))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec y-0) w y-1 y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 (rec y-3) l)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w y-1 y-2)) (x l) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1 y-2 l)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l) (y-3 alpha-0) (y-3 chi-1) (y-3 l)
    (l (mul (rec y-0) w y-1)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec y-0) w y-1 y-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul (rec y-0) w y-1))
    (mul (rec y-0) w y-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 y-2 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1 y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
      (send (cat (exp (gen) y-2) (mul (rec y-0) w y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 (rec y-3) l)))
      (send
        (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 (rec y-3) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 963)
  (parent 614)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (l y-1 y-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w (rec l) y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec y-0) w (rec l) y-1 (rec y-2) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec y-0) w (rec l) y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-0) (y-2 alpha-0) (y-2 chi-1)
    (y-2 (mul (rec y-0) w (rec l))) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w (rec l) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-2 (mul (rec y-0) w (rec l)))
    (mul (rec y-0) w (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w (rec l) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w (rec l))))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l) y-1 (rec y-2) l-0)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l) y-1 (rec y-2) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-2))))))))
  (label 964)
  (parent 614)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 w expt) (y-0 l y-1 y-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) y-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0 (rec l) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul w y-0 (rec l) y-1 (rec y-2) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul w y-0 (rec l) y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) y-1 l-0)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 (mul w y-0 (rec l))) (y-1 l-0) (y-2 alpha-0)
    (y-2 chi-1) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 (rec l) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 (rec l)))
    (mul w y-0 (rec l)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec l) y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l))))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l) y-1 (rec y-2) l-0)))
      (send
        (cat (exp (gen) y-2) (mul w y-0 (rec l) y-1 (rec y-2) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-2))))))))
  (label 965)
  (parent 614)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (l y-0 l-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 l-0 (rec y-1) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l-0) (y-1 alpha-0) (y-1 chi-1) (y-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 l-0 (rec y-1) l-1)))
      (send (cat (exp (gen) y-1) (mul y-0 l-0 (rec y-1) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 966)
  (parent 615)
  (unrealized (0 0) (0 1) (1 3) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (l y-0 l-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 l-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l-0) (y-1 alpha-0) (y-1 chi-1) (y-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-2 y-0) (l-1 l-0) (w (mul y-0 l-0 (rec y-1)))
      (y-3 y-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 l-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul y-0 l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 967)
  (parent 615)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 l rndx)
    (w expt) (l-0 y-1 l-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) (rec l) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec y-0) (rec l) w y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-1) (y-2 alpha-0) (y-2 chi-1)
    (y-2 (mul (rec y-0) (rec l) w)) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) (rec l) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-2 (mul (rec y-0) (rec l) w))
    (mul (rec y-0) (rec l) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) (rec l) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) (rec l) w))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 968)
  (parent 615)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l y-2 l-0 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 y-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 l-0 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w y-1 y-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l-0) (l-0 (mul (rec y-0) w y-1)) (y-3 alpha-0)
    (y-3 chi-1) (y-3 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 y-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w y-1))
    (mul (rec y-0) w y-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1 y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
      (send (cat (exp (gen) y-2) (mul (rec y-0) w y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 l-0 (rec y-3))))
      (send
        (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 l-0 (rec y-3)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 969)
  (parent 615)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 y-1 l-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 y-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w y-0 y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec l) w y-0 y-1 l-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec l) w y-0 y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 y-1 l-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 (mul (rec l) w y-0)) (y-1 l-1) (y-2 alpha-0)
    (y-2 chi-1) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 y-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 y-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 y-1 l-1 (rec y-2))))
      (send
        (cat (exp (gen) y-2) (mul (rec l) w y-0 y-1 l-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 970)
  (parent 615)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 l))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) l))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l l)))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l)) (x l) (y chi) (y (mul (rec ltxb) y-0 l l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul l l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) l)) (send (cat (exp (gen) y-0) l)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l l)))
      (send (cat (exp (gen) y-0) (mul l l)))) ((recv l) (send l)))
  (label 971)
  (parent 616)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l) (y chi) (y (mul (rec ltxb) y-0 l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (l (one)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed y-0) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 2 ltx-gen 2) l-0 (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l)) (send (cat (exp (gen) y-0) l))))
  (label 972)
  (parent 619)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (w alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (l w) (l (mul w (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0 (rec l)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0 (rec l))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l))))
      (send (cat (exp (gen) y-0) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
  (label 973)
  (parent 619)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (w alpha chi-0 expt) (y-0 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul w l)))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w y-0 l))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (l w))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (mul w l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul w l)))
      (send (cat (exp (gen) y-0) (mul w l)))) ((recv l) (send l)))
  (label 974)
  (parent 619)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (w expt) (l y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (6 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 w) (y-0 (mul w (rec y-0))) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 w) w (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 975)
  (parent 623)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 self name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (w expt) (l y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener y-0)
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (8 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (3 0)) ((7 2) (6 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l) (y chi) (y (mul (rec ltxb) w l y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 w) (y-0 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l y-0)))
  (leads-to ((7 1) (1 0)) ((7 1) (3 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0) (mul w y-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w y-0)))
      (send (cat (exp (gen) l) (mul w y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))) ((recv y-0) (send y-0)))
  (label 976)
  (parent 623)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l rndx) (w expt)
    (y-1 l-0 y-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) (rec l) w y-1 l-0 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) (rec l) w y-1 l-0 (rec y-2) (rec l-1) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec y-0) (rec l) w y-1 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) (rec l) w y-1 l-0 (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0 l-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-1)
    (l-2 (mul (rec y-0) (rec l) w y-1 l-0))
    (l-2 (mul (rec y-0) (rec l) w y-1 l-0 (rec y-2) (rec l-1) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) (rec l) w y-1 l-0 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0 l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec y-0) (rec l) w y-1 l-0))
    (mul (rec y-0) (rec l) w y-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) (rec l) w y-1 l-0 (rec y-2) (rec l-1) l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) (rec l) w y-1 l-0 (rec y-2) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec y-0) (rec l) w y-1 l-0)))
      (send (cat (exp (gen) l-2) (mul (rec y-0) (rec l) w y-1 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 977)
  (parent 628)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l rndx) (w expt)
    (y-1 l-0 y-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec l-0) l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec y-2) (rec l-1) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec y-0) (rec l) w y-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec l-1) l-2))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec l-0) l-2)) (y ltxb)
    (y-2 alpha) (y-2 chi-0) (y-2 l-1)
    (l-1 (mul (rec y-0) (rec l) w y-1 (rec l-0)))
    (l-2
      (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec y-2) (rec l-1) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) (rec l) w y-1 (rec l-0)))
    (mul (rec y-0) (rec l) w y-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec y-2) (rec l-1)
           l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) (rec l) w y-1 (rec l-0) (rec y-2) (rec l-1)
            l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec y-0) (rec l) w y-1 (rec l-0))))
      (send
        (cat (exp (gen) l-2) (mul (rec y-0) (rec l) w y-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 978)
  (parent 628)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l rndx) (w expt)
    (l-0 l-1 y-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w l-0 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec y-1) (rec l-2) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec y-0) (rec l) w l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w l-0 (rec l-1) l-3)) (y ltxb)
    (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec y-0) (rec l) w l-0 (rec l-1))) (y-1 l-2)
    (l-3
      (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec y-1) (rec l-2) l-3)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) (rec l) w l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) (rec l) w l-0 (rec l-1)))
    (mul (rec y-0) (rec l) w l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) (rec l) w l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec y-1) (rec l-2)
           l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) (rec l) w l-0 (rec l-1) (rec y-1) (rec l-2)
            l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec y-0) (rec l) w l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-3) (mul (rec y-0) (rec l) w l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 979)
  (parent 628)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l y-1 l-0 y-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l y-1 l-0 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w l y-1 l-0 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w l y-1 l-0 (rec y-2) (rec l-1) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w l y-1 l-0 (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l y-1 l-0 l-2)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l-1)
    (l-1 (mul (rec y-0) w l y-1 l-0 (rec y-2) (rec l-1) l-2))
    (l-2 (mul (rec y-0) w l y-1 l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w l y-1 l-0 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l y-1 l-0 l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec y-0) w l y-1 l-0))
    (mul (rec y-0) w l y-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w l y-1 l-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w l y-1 l-0 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w l y-1 l-0 (rec y-2) (rec l-1) l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w l y-1 l-0 (rec y-2) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l y-1 l-0 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 l-0)))
      (send (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 980)
  (parent 629)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l y-1 l-0 y-2 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w l y-1 (rec l-0) (rec y-2) (rec l-1) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-1)
    (l-1 (mul (rec y-0) w l y-1 (rec l-0)))
    (l-1 (mul (rec y-0) w l y-1 (rec l-0) (rec y-2) (rec l-1) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) w l y-1 (rec l-0)))
    (mul (rec y-0) w l y-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w l y-1 (rec l-0) (rec y-2) (rec l-1) l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w l y-1 (rec l-0) (rec y-2) (rec l-1) l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 981)
  (parent 629)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l l-0 l-1 y-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w l l-0 (rec l-1) (rec y-1) (rec l-2) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec y-0) w l l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3))
    (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec y-0) w l l-0 (rec l-1))) (y-1 l-2)
    (l-2 (mul (rec y-0) w l l-0 (rec l-1) (rec y-1) (rec l-2) l-3)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w l l-0 (rec l-1)))
    (mul (rec y-0) w l l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w l l-0 (rec l-1) (rec y-1) (rec l-2) l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w l l-0 (rec l-1) (rec y-1) (rec l-2) l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec y-0) w l l-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec y-0) w l l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 982)
  (parent 629)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 y-0 l-1 y-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 y-0 l-1 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 y-0 l-1 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w l-0 y-0 l-1 (rec y-1) (rec l-2) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w l-0 y-0 l-1 (rec l-2) l-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 y-0 l-1 l-3)) (y ltxb) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul (rec l) w l-0 y-0 l-1 (rec y-1) (rec l-2) l-3)) (y-1 l-2)
    (l-3 (mul (rec l) w l-0 y-0 l-1)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 y-0 l-1 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 y-0 l-1 l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-3 (mul (rec l) w l-0 y-0 l-1))
    (mul (rec l) w l-0 y-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 y-0 l-1 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 y-0 l-1 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w l-0 y-0 l-1 (rec y-1) (rec l-2) l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w l-0 y-0 l-1 (rec y-1) (rec l-2) l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 y-0 l-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 l-1)))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 983)
  (parent 630)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 y-0 l-1 y-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w l-0 y-0 (rec l-1) (rec y-1) (rec l-2) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3))
    (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec l) w l-0 y-0 (rec l-1) (rec y-1) (rec l-2) l-3))
    (y-1 l-2) (l-2 (mul (rec l) w l-0 y-0 (rec l-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w l-0 y-0 (rec l-1)))
    (mul (rec l) w l-0 y-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w l-0 y-0 (rec l-1) (rec y-1) (rec l-2) l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w l-0 y-0 (rec l-1) (rec y-1) (rec l-2) l-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 984)
  (parent 630)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 l-1 l-2 y-0 l-3 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-0)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec y-0) (rec l-3) l-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-3) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-3 l-4)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (y-0 (mul (rec l) w l-0 l-1 (rec l-2) (rec y-0) (rec l-3) l-4))
    (y-0 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec y-0) (rec l-3) l-4)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec y-0) (rec l-3) l-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 985)
  (parent 630)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt)
    (y-0 x-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0 l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0 l-1)))
      (send (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 986)
  (parent 632)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-1 y-0) (w (mul y-0 (rec x-0) l-0)) (x-1 x-0)
      (l-1 l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0)))
      (send (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-0)))))
  (label 987)
  (parent 632)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 y-1 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 (rec x-1) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l) (x-1 beta) (x-1 l-0)
    (l-0 (mul (rec y-0) w x-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w x-0))
    (mul (rec y-0) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w x-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 (rec x-1) l-0)))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 988)
  (parent 632)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (l-0 y-1 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l-0) y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-1 x-0)
  (absent (x (mul (rec y-0) w (rec l-0) y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l) (x-0 beta)
    (x-0 (mul (rec y-0) w (rec l-0))) (x-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w (rec l-0) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec y-0) w (rec l-0)))
    (mul (rec y-0) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w (rec l-0) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w (rec l-0))))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec y-0) w (rec l-0) y-1 (rec x-0) l-1)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec y-0) w (rec l-0) y-1 (rec x-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-0)))))
  (label 989)
  (parent 632)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta w expt)
    (x-0 l-0 y-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l-0) y-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul w x-0 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul w x-0 (rec l-0) y-0 (rec x-1) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-0 x-1)
  (absent (x (mul w x-0 (rec l-0) y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l) (y-0 (mul w x-0 (rec l-0))) (x-1 beta)
    (x-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l-0) y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul w x-0 (rec l-0)))
    (mul w x-0 (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec l-0) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul w x-0 (rec l-0))))
      (send (cat (exp (gen) y-0) (mul w x-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) y-0 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul w x-0 (rec l-0) y-0 (rec x-1) l-1)))
      (send
        (cat (exp (gen) x-1) (mul w x-0 (rec l-0) y-0 (rec x-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 990)
  (parent 632)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt)
    (l l-0 y-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 y-0 (rec x-0) l-1)))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x l-0) (x (mul y-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 y-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 y-0 (rec x-0) l-1)))
      (send (cat (exp (gen) x-0) (mul l-0 y-0 (rec x-0) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 b-1 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 991)
  (parent 633)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0 l-0)))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 2) (0 1)) ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-0)))))
  (label 992)
  (parent 633)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l l-0 y-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-0 y-0 (rec x-0))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x l-0) (x y-0) (y chi) (y (mul (rec ltxb) l-0 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (y-1 y-0) (w (mul l-0 y-0 (rec x-0)))
      (x-1 x-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-0 y-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l-0 y-0 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-0)))))
  (label 993)
  (parent 633)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 rndx) (w expt)
    (l-0 l-1 y-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec y-0) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l) (rec y-0) w l-1 y-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-1 x-0)
  (absent (x (mul (rec l) (rec y-0) w y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-0) (x-0 beta)
    (x-0 (mul (rec l) (rec y-0) w)) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l) (rec y-0) w))
    (mul (rec l) (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec y-0) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) (rec y-0) w l-1 y-1 (rec x-0))))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) (rec y-0) w l-1 y-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-0)))))
  (label 994)
  (parent 633)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 y-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 y-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w x-0 y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 y-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-0 x-1)
  (absent (x (mul (rec l) w x-0 y-0)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 y-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 (mul (rec l) w x-0)) (y-0 l-0) (x-1 beta)
    (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l) w x-0))
    (mul (rec l) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w x-0 y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 y-0 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 y-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-1)))))
  (label 995)
  (parent 633)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l l-0 y-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-0 y-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1)) (y ltxb)
    (l-0 (mul (rec y-0) w x-0)) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (x-1 beta) (x-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w x-0))
    (mul (rec y-0) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w x-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-0 y-1 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-0 y-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-1)))))
  (label 996)
  (parent 633)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi alpha chi-0 expt) (ltxb l rndx) (beta expt)
    (l-0 l-1 y-0 x-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 y-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul y-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) l-2))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-1 y-0 (rec x-0) l-2)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)) ((11 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1 l-2)
  (uniq-gen x y y-0 x-0)
  (absent (x l-1) (x (mul y-0 l-2)) (y chi)
    (y (mul (rec ltxb) l-1 y-0 l-2)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul y-0 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 y-0 l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 y-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 y-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 y-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) l-2)) (send (cat (exp (gen) y-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-1 y-0 (rec x-0) l-2)))
      (send (cat (exp (gen) x-0) (mul l-1 y-0 (rec x-0) l-2))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self l-2)))))
  (label 997)
  (parent 634)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt)
    (l-0 y-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-1 l-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x (mul y-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) y-0 l-1 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-1 l-1)))
      (send (cat (exp (gen) x-0) (mul y-0 (rec x-0) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 998)
  (parent 634)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt)
    (l-0 l-1 y-0 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul l-1 y-0 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x l-1) (x y-0) (y chi) (y (mul (rec ltxb) l-1 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-1) (y-1 y-0) (w (mul l-1 y-0 (rec x-0)))
      (x-1 x-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul l-1 y-0 (rec x-0))))
      (send (cat (exp (gen) x-0) (mul l-1 y-0 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 999)
  (parent 634)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 y-0 rndx)
    (w expt) (l-1 l-2 y-1 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec y-0) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l-0) (rec y-0) w l-2 y-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-2)
  (uniq-gen x y y-1 x-0)
  (absent (x (mul (rec l-0) (rec y-0) w y-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l) (x-0 beta)
    (x-0 (mul (rec l-0) (rec y-0) w)) (x-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-0 (mul (rec l-0) (rec y-0) w))
    (mul (rec l-0) (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) (rec y-0) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l-0) (rec y-0) w l-2 y-1 (rec x-0))))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l-0) (rec y-0) w l-2 y-1 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1000)
  (parent 634)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 rndx) (w expt)
    (x-0 l-1 l-2 y-0 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w x-0 y-0)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) y-0) (mul (rec l-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l-0) w x-0 l-2 y-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-2)
  (uniq-gen x y y-0 x-1)
  (absent (x (mul (rec l-0) w x-0 y-0)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l) (y-0 (mul (rec l-0) w x-0)) (x-1 beta)
    (x-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w x-0 y-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l-0) w x-0))
    (mul (rec l-0) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w x-0 y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) w x-0)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l-0) w x-0 l-2 y-0 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec l-0) w x-0 l-2 y-0 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1001)
  (parent 634)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l-0 l-1 y-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-1 y-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1)) (y ltxb)
    (l-1 (mul (rec y-0) w x-0)) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (x-1 beta) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec y-0) w x-0))
    (mul (rec y-0) w x-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w x-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w x-0)))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-1 y-1 (rec x-1))))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-1 y-1 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1002)
  (parent 634)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (w expt)
    (l-1 l-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w l-1 (rec l-2))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l-0) w l-1 (rec l-2) (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l-0) w l-1)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w l-1 (rec l-2))) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w l-1)) (y ltxb) (y-0 alpha)
    (y-0 chi-0) (y-0 l) (y-0 (mul (rec l-0) w l-1))
    (y-0 (mul (rec l-0) w l-1 (rec l-2) (rec y-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
    (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w l-1 (rec l-2))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 (mul (rec l-0) w l-1))
    (mul (rec l-0) w l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w l-1 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-0) (mul (rec l-0) w l-1 (rec l-2) (rec y-0))))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l-0) w l-1 (rec l-2) (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l-0) w l-1)))
      (send (cat (gen) (mul (rec l-0) w l-1)))))
  (label 1003)
  (parent 638)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (w expt)
    (y-0 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l-0) w y-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l-0) w y-0 (rec l-1) (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec l-0) w y-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l-0) w y-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l-0) w y-0)) (y ltxb)
    (l-1 (mul (rec l-0) w y-0)) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec l-0) w y-0 (rec l-1) (rec y-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec l-0) w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l-0) w y-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec l-0) w y-0))
    (mul (rec l-0) w y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l-0) w y-0 (rec l-1) (rec y-1))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) w y-0 (rec l-1) (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec l-0) w y-0)))
      (send (cat (gen) (mul (rec l-0) w y-0)))))
  (label 1004)
  (parent 638)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (rec y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (one)) (x l-0) (y chi) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (l-0 (rec y-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (rec y-0)))
      (send (cat (exp (gen) y-0) (rec y-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0))))
  (label 1005)
  (parent 639)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w l-0 (rec l-1))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec y-0) w l-0 (rec l-1) (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec y-0) w l-0)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l-0 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l-0)) (y ltxb)
    (l-1 (mul (rec y-0) w l-0 (rec l-1) (rec y-1))) (y-1 alpha)
    (y-1 chi-0) (y-1 l) (y-1 (mul (rec y-0) w l-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec y-0) w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w l-0 (rec l-1))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec y-0) w l-0))
    (mul (rec y-0) w l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w l-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec y-0) w l-0 (rec l-1) (rec y-1))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w l-0 (rec l-1) (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec y-0) w l-0)))
      (send (cat (gen) (mul (rec y-0) w l-0)))))
  (label 1006)
  (parent 639)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (y-1 l-0 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 (rec l-0))) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec y-0) w y-1 (rec l-0) (rec y-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) (mul (rec y-0) w y-1)))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w y-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1)) (y ltxb)
    (l-0 (mul (rec y-0) w y-1))
    (l-0 (mul (rec y-0) w y-1 (rec l-0) (rec y-2))) (y-2 alpha)
    (y-2 chi-0) (y-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w y-1))
    (mul (rec y-0) w y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-2) (mul (rec y-0) w y-1 (rec l-0) (rec y-2))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w y-1 (rec l-0) (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (gen) (mul (rec y-0) w y-1)))
      (send (cat (gen) (mul (rec y-0) w y-1)))))
  (label 1007)
  (parent 639)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (y-0 y-1 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0 l-1)))
      (send (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 1008)
  (parent 640)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (y-2 y-0) (w (mul y-0 (rec y-1) l-0)) (y-3 y-1)
      (l-1 l-0)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0)))
      (send (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 1009)
  (parent 640)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 y-2 y-3 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 y-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 (rec y-3) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w y-1 y-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l) (y-3 alpha-0) (y-3 chi-1) (y-3 l-0)
    (l-0 (mul (rec y-0) w y-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 y-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w y-1))
    (mul (rec y-0) w y-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1 y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
      (send (cat (exp (gen) y-2) (mul (rec y-0) w y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 (rec y-3) l-0)))
      (send
        (cat (exp (gen) y-3) (mul (rec y-0) w y-1 y-2 (rec y-3) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1010)
  (parent 640)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (l-0 y-1 y-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l-0) y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec y-0) w (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec y-0) w (rec l-0) y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l) (y-2 alpha-0) (y-2 chi-1)
    (y-2 (mul (rec y-0) w (rec l-0))) (y-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w (rec l-0) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-2 (mul (rec y-0) w (rec l-0)))
    (mul (rec y-0) w (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w (rec l-0) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec y-0) w (rec l-0))))
      (send (cat (exp (gen) y-1) (mul (rec y-0) w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l-0) y-1 (rec y-2) l-1)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l-0) y-1 (rec y-2) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-2))))))))
  (label 1011)
  (parent 640)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 w expt)
    (y-0 l-0 y-1 y-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l-0) y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul w y-0 (rec l-0) y-1 (rec y-2) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul w y-0 (rec l-0) y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l) (y-1 (mul w y-0 (rec l-0))) (y-2 alpha-0)
    (y-2 chi-1) (y-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l-0) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 (rec l-0)))
    (mul w y-0 (rec l-0)) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l-0) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l-0))))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) y-1 l-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-2) (mul w y-0 (rec l-0) y-1 (rec y-2) l-1)))
      (send
        (cat (exp (gen) y-2) (mul w y-0 (rec l-0) y-1 (rec y-2) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-2))))))))
  (label 1012)
  (parent 640)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (l l-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul l-0 y-0 (rec y-1) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x l-0) (x (mul y-0 l-1)) (y chi)
    (y (mul (rec ltxb) l-0 y-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-0 y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul l-0 y-0 (rec y-1) l-1)))
      (send (cat (exp (gen) y-1) (mul l-0 y-0 (rec y-1) l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-1)))))
  (label 1013)
  (parent 641)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (l y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 3) (0 1)) ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0 l-0)))
      (send (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 1014)
  (parent 641)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (l l-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul l-0 y-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x l-0) (x y-0) (y chi) (y (mul (rec ltxb) l-0 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-1 l-0) (y-2 y-0) (w (mul l-0 y-0 (rec y-1)))
      (y-3 y-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul l-0 y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul l-0 y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 1015)
  (parent 641)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l y-0 rndx)
    (w expt) (l-0 l-1 y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec y-0) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec l) (rec y-0) w l-1 y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec l) (rec y-0) w y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l-0) (y-2 alpha-0) (y-2 chi-1)
    (y-2 (mul (rec l) (rec y-0) w)) (y-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-2 (mul (rec l) (rec y-0) w))
    (mul (rec l) (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) (rec y-0) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec l) (rec y-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) (rec y-0) w l-1 y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) (rec y-0) w l-1 y-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-2))))))))
  (label 1016)
  (parent 641)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 l-1 y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul (rec l) w y-0 y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec l) w y-0 y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 y-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 (mul (rec l) w y-0)) (y-1 l-0) (y-2 alpha-0)
    (y-2 chi-1) (y-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0))
    (mul (rec l) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) w y-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 y-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-2))))))))
  (label 1017)
  (parent 641)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l l-0 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 y-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w y-1 l-0 y-2 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w y-1 y-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2)) (y ltxb)
    (l-0 (mul (rec y-0) w y-1)) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-3 alpha-0) (y-3 chi-1) (y-3 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 y-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul (rec y-0) w y-1))
    (mul (rec y-0) w y-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1 y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
      (send (cat (exp (gen) y-2) (mul (rec y-0) w y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec y-0) w y-1 l-0 y-2 (rec y-3))))
      (send
        (cat (exp (gen) y-3) (mul (rec y-0) w y-1 l-0 y-2 (rec y-3)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1018)
  (parent 641)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 ignore-2 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pt-7 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 priv-stor-3 locn)
    (x y rndx) (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 l-1 y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 y-0 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul y-0 l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) l-2))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul l-1 y-0 (rec y-1) l-2)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (defstrand ltx-gen 2 (ignore ignore-2) (self self)
    (priv-stor priv-stor-3) (l l-2))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)) ((11 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1 l-2)
  (uniq-gen x y y-0 y-1)
  (absent (x l-1) (x (mul y-0 l-2)) (y chi)
    (y (mul (rec ltxb) l-1 y-0 l-2)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul y-0 l-2))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 y-0 l-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 y-0 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 y-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 y-0 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) l-2)) (send (cat (exp (gen) y-0) l-2)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul l-1 y-0 l-2)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul l-1 y-0 (rec y-1) l-2)))
      (send (cat (exp (gen) y-1) (mul l-1 y-0 (rec y-1) l-2))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0))))
    ((load priv-stor-3 (cat pt-6 ignore-2))
      (stor priv-stor-3 (cat pt-7 (pv self l-2)))))
  (label 1019)
  (parent 642)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x (mul y-0 l-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) y-0 l-1 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul y-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-1 l-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-1 l-1)))
      (send (cat (exp (gen) y-1) (mul y-0 (rec y-1) l-1 l-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1020)
  (parent 642)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 l-1 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul l-1 y-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x l-1) (x y-0) (y chi) (y (mul (rec ltxb) l-1 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-1) (y-2 y-0) (w (mul l-1 y-0 (rec y-1)))
      (y-3 y-1)) (one) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-1 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul l-1 y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul l-1 y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1021)
  (parent 642)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 rndx) (w expt) (l-1 l-2 y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec y-0) w y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec l-0) (rec y-0) w l-2 y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-2) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-2)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec l-0) (rec y-0) w y-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l) (y-2 alpha-0) (y-2 chi-1)
    (y-2 (mul (rec l-0) (rec y-0) w)) (y-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) (rec y-0) w y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-2 (mul (rec l-0) (rec y-0) w))
    (mul (rec l-0) (rec y-0) w) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) (rec y-0) w y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w)))
      (send (cat (exp (gen) y-1) (mul (rec l-0) (rec y-0) w))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) (rec y-0) w l-2 y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) (rec y-0) w l-2 y-1 (rec y-2)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1022)
  (parent 642)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (l-0 rndx)
    (w expt) (y-0 l-1 l-2 y-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w y-0 y-1)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener (cat (exp (gen) y-1) (mul (rec l-0) w y-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec l-0) w y-0 l-2 y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-2) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-2)
  (uniq-gen x y y-1 y-2)
  (absent (x (mul (rec l-0) w y-0 y-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 l) (y-1 (mul (rec l-0) w y-0)) (y-2 alpha-0)
    (y-2 chi-1) (y-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w y-0 y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l-0) w y-0))
    (mul (rec l-0) w y-0) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) w y-0 y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv (cat (exp (gen) y-1) (mul (rec l-0) w y-0)))
      (send (cat (exp (gen) y-1) (mul (rec l-0) w y-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-2) (mul (rec l-0) w y-0 l-2 y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-2) (mul (rec l-0) w y-0 l-2 y-1 (rec y-2)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1023)
  (parent 642)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l-0 l-1 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 y-2)) (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w y-1 l-1 y-2 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w y-1 y-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2)) (y ltxb)
    (l-1 (mul (rec y-0) w y-1)) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-3 alpha-0) (y-3 chi-1) (y-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 y-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul (rec y-0) w y-1))
    (mul (rec y-0) w y-1) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec y-0) w y-1 y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-2) (mul (rec y-0) w y-1)))
      (send (cat (exp (gen) y-2) (mul (rec y-0) w y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l-1 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec y-0) w y-1 l-1 y-2 (rec y-3))))
      (send
        (cat (exp (gen) y-3) (mul (rec y-0) w y-1 l-1 y-2 (rec y-3)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1024)
  (parent 642)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul y-0 l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul l-0 l-0)))
  (deflistener l-0)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (3 0)) ((2 1) (9 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0))
    ((5 1) (4 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 l-0)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-0 l-0)) (y ltxb) (y-0 l) (y-0 alpha)
    (y-0 chi-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul y-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul l-0 l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul y-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul y-0 l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul l-0 l-0))))
    ((recv l-0) (send l-0)))
  (label 1025)
  (parent 644)
  (unrealized (0 0) (0 1) (1 3) (3 0) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l rndx) (alpha chi-0 expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (one)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 l) (y-0 alpha) (y-0 chi-0) (l-0 (one)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (one)))
      (send (cat (exp (gen) y-0) (one))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0))))
  (label 1026)
  (parent 647)
  (unrealized (0 0) (0 1) (1 3) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l rndx) (alpha chi-0 expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) w))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0)) (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0)
    (l-0 w) (l-0 (mul w (rec l-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0 (rec l-0)))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 w) w (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec l-0))) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l-0))))
      (send (cat (exp (gen) y-0) (mul w (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
  (label 1027)
  (parent 647)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l rndx) (alpha chi-0 expt) (y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul w l-0)))
  (deflistener l-0)
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l-0) (y chi) (y (mul (rec ltxb) w y-0 l-0))
    (y ltxb) (y-0 l) (y-0 alpha) (y-0 chi-0) (l-0 w))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul w l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) w y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul l alpha))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul w l-0)))
      (send (cat (exp (gen) y-0) (mul w l-0)))) ((recv l-0) (send l-0)))
  (label 1028)
  (parent 647)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (7 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x w) (x l-0) (y chi) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (y-0 w) (y-0 (mul w (rec y-0))))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-0 w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1029)
  (parent 652)
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 a-0 b-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt) (l-0 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul w y-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) y-0) w))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore) (self b-1)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (mul w y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener y-0)
  (precedes ((0 3) (6 0)) ((2 1) (1 1)) ((3 3) (0 1)) ((3 3) (2 0))
    ((3 3) (9 0)) ((4 1) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (1 0)) ((8 2) (7 0)) ((9 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul w y-0)) (x l-0) (y chi) (y (mul (rec ltxb) w l-0 y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l) (y-0 w))
  (precur (2 0) (7 0))
  (gen-st (pv b ltxb) (pv b-1 l) (pv self l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w y-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l-0 y-0)))
  (leads-to ((4 1) (3 0)) ((8 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y-0) (mul w y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l-0 y-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w y-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
    ((load priv-stor-0 (cat pt-0 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l-0 y-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (mul w y-0)))
      (send (cat (exp (gen) l-0) (mul w y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))) ((recv y-0) (send y-0)))
  (label 1030)
  (parent 652)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 y-1 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1 l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) (rec y-2) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) (rec y-0) w l-0 y-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1 l-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-2)
    (l-2 (mul (rec l) (rec y-0) w l-0 y-1))
    (l-2 (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) (rec y-2) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1 l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) (rec y-0) w l-0 y-1))
    (mul (rec l) (rec y-0) w l-0 y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec y-0) w l-0 y-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) (rec y-2) l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) (rec y-0) w l-0 y-1 (rec l-1) (rec y-2) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 y-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) (rec y-0) w l-0 y-1)))
      (send (cat (exp (gen) l-2) (mul (rec l) (rec y-0) w l-0 y-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1031)
  (parent 657)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-0 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) (rec y-1) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l) (rec y-0) w l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) l-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w l-0 (rec l-1) l-3)) (y ltxb)
    (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec l) (rec y-0) w l-0 (rec l-1))) (y-1 l-3)
    (l-3
      (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) (rec y-1) l-3)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec y-0) w l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec l) (rec y-0) w l-0 (rec l-1)))
    (mul (rec l) (rec y-0) w l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec y-0) w l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) (rec y-1)
           l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) (rec y-0) w l-0 (rec l-1) (rec l-2) (rec y-1)
            l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec l) (rec y-0) w l-0 (rec l-1))))
      (send
        (cat (exp (gen) l-3) (mul (rec l) (rec y-0) w l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1032)
  (parent 657)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (y-1 l-0 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec l-0) l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) (rec y-2) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-2) (mul (rec l) (rec y-0) w y-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) l-2))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec l-0) l-2)) (y ltxb)
    (l-1 (mul (rec l) (rec y-0) w y-1 (rec l-0))) (y-2 alpha)
    (y-2 chi-0) (y-2 l-2)
    (l-2
      (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) (rec y-2) l-2)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec y-0) w y-1 (rec l-0)))
    (mul (rec l) (rec y-0) w y-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) (rec y-2)
           l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) (rec y-0) w y-1 (rec l-0) (rec l-1) (rec y-2)
            l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-2) (mul (rec l) (rec y-0) w y-1 (rec l-0))))
      (send
        (cat (exp (gen) l-2) (mul (rec l) (rec y-0) w y-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1033)
  (parent 657)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 l-1 y-0 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w l-0 l-1 y-0 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 l-1 y-0 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w l-0 l-1 y-0 (rec l-2) (rec y-1) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w l-0 l-1 y-0 (rec l-2) l-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w l-0 l-1 y-0 l-3)) (y ltxb) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul (rec l) w l-0 l-1 y-0 (rec l-2) (rec y-1) l-3)) (y-1 l-3)
    (l-3 (mul (rec l) w l-0 l-1 y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 l-1 y-0 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 y-0 l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-3 (mul (rec l) w l-0 l-1 y-0))
    (mul (rec l) w l-0 l-1 y-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 y-0 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 y-0 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w l-0 l-1 y-0 (rec l-2) (rec y-1) l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w l-0 l-1 y-0 (rec l-2) (rec y-1) l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 y-0 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 y-0)))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 l-1 y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1034)
  (parent 658)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 l-1 l-2 l-3 y-0 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-0)
      (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec y-0) l-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-4) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-3 l-4)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (y-0 (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec y-0) l-4))
    (y-0 l-4))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv self l-4))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) w l-0 l-1 (rec l-2)))
    (mul (rec l) w l-0 l-1 (rec l-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec y-0) l-4)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) w l-0 l-1 (rec l-2) (rec l-3) (rec y-0) l-4))))
    ((load priv-stor-1 (cat pt-3 (pv self l-4)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-4))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec l) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1035)
  (parent 658)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (w expt)
    (l-0 y-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) (rec y-1) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3))
    (y ltxb) (l-2 (mul (rec l) w l-0 y-0 (rec l-1))) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) (rec y-1) l-3))
    (y-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w l-0 y-0 (rec l-1)))
    (mul (rec l) w l-0 y-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w l-0 y-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) (rec y-1) l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w l-0 y-0 (rec l-1) (rec l-2) (rec y-1) l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w l-0 y-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec l) w l-0 y-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1036)
  (parent 658)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l l-0 y-1 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l l-0 y-1 l-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w l l-0 y-1 (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w l l-0 y-1 (rec l-1) (rec y-2) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec y-0) w l l-0 y-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w l l-0 y-1 (rec l-1) l-2)) (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w l l-0 y-1 l-2)) (y ltxb)
    (l-1 (mul (rec y-0) w l l-0 y-1 (rec l-1) (rec y-2) l-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l-2) (l-2 (mul (rec y-0) w l l-0 y-1)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w l l-0 y-1 (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l l-0 y-1 l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-2 (mul (rec y-0) w l l-0 y-1))
    (mul (rec y-0) w l l-0 y-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w l l-0 y-1 l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w l l-0 y-1 (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w l l-0 y-1 (rec l-1) (rec y-2) l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w l l-0 y-1 (rec l-1) (rec y-2) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l l-0 y-1 l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec y-0) w l l-0 y-1)))
      (send (cat (exp (gen) l-2) (mul (rec y-0) w l l-0 y-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1037)
  (parent 659)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta l)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) l-0))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x l) (x l-0) (y chi) (y (mul (rec ltxb) l l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (l-0 (mul (rec y-0) l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed l) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l l-0)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) l) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l))))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) l-0)) (send (cat (exp (gen) l) l-0)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1038)
  (parent 659)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l l-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) (rec y-1) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec y-0) w l l-0 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3))
    (y ltxb)
    (l-2 (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) (rec y-1) l-3))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec y-0) w l l-0 (rec l-1)))
    (y-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w l l-0 (rec l-1)))
    (mul (rec y-0) w l l-0 (rec l-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w l l-0 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) (rec y-1) l-3)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w l l-0 (rec l-1) (rec l-2) (rec y-1) l-3))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l l-0 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec y-0) w l l-0 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec y-0) w l l-0 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1039)
  (parent 659)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 self name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb y-0 rndx) (w expt)
    (l y-1 l-0 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) (rec y-2) l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2))
    (y ltxb) (l-1 (mul (rec y-0) w l y-1 (rec l-0)))
    (l-1 (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) (rec y-2) l-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2)))
  (leads-to ((2 1) (1 0)) ((8 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) w l y-1 (rec l-0)))
    (mul (rec y-0) w l y-1 (rec l-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w l y-1 (rec l-0) l-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) (rec y-2) l-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w l y-1 (rec l-0) (rec l-1) (rec y-2) l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l y-1 (rec l-0) l-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 (rec l-0))))
      (send (cat (exp (gen) l-2) (mul (rec y-0) w l y-1 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1040)
  (parent 659)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx) (w expt)
    (l-1 y-1 l-2 y-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l-0) (rec y-0) w l-1 y-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1 l-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (l-3 (mul (rec l-0) (rec y-0) w l-1 y-1))
    (l-3 (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) l-3)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1 l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l-0) (rec y-0) w l-1 y-1))
    (mul (rec l-0) (rec y-0) w l-1 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 y-1 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) l-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) l-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 y-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l-0) (rec y-0) w l-1 y-1)))
      (send (cat (exp (gen) l-3) (mul (rec l-0) (rec y-0) w l-1 y-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1041)
  (parent 663)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx) (w expt)
    (l-1 l-2 l-3 y-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) (rec y-1)
        l-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-4) (mul (rec l-0) (rec y-0) w l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) l-4))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
    (y ltxb) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec l-0) (rec y-0) w l-1 (rec l-2)))
    (l-4
      (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) (rec y-1)
        l-4)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed
      (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec l-0) (rec y-0) w l-1 (rec l-2)))
    (mul (rec l-0) (rec y-0) w l-1 (rec l-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) (rec y-1)
           l-4)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) (rec y-0) w l-1 (rec l-2) (rec l-3) (rec y-1)
            l-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-4) (mul (rec l-0) (rec y-0) w l-1 (rec l-2))))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l-0) (rec y-0) w l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1042)
  (parent 663)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 y-0 rndx) (w expt)
    (y-1 l-1 l-2 y-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) (rec y-2)
        l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec l-0) (rec y-0) w y-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) l-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
    (y ltxb) (l-2 (mul (rec l-0) (rec y-0) w y-1 (rec l-1))) (y-2 alpha)
    (y-2 chi-0) (y-2 l)
    (l-3
      (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) (rec y-2)
        l-3)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) (rec y-0) w y-1 (rec l-1)))
    (mul (rec l-0) (rec y-0) w y-1 (rec l-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) (rec y-2)
           l-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) (rec y-0) w y-1 (rec l-1) (rec l-2) (rec y-2)
            l-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) l-3) (mul (rec l-0) (rec y-0) w y-1 (rec l-1))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l-0) (rec y-0) w y-1 (rec l-1)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1043)
  (parent 663)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (w expt)
    (l-1 l-2 y-0 l-3 y-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0 l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) (rec y-1) l-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-4) (mul (rec l-0) w l-1 l-2 y-0)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0 l-4)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) (rec y-1) l-4))
    (l-4 (mul (rec l-0) w l-1 l-2 y-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0 l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-4 (mul (rec l-0) w l-1 l-2 y-0))
    (mul (rec l-0) w l-1 l-2 y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) w l-1 l-2 y-0 l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) (rec y-1) l-4)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) w l-1 l-2 y-0 (rec l-3) (rec y-1) l-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 l-2 y-0 l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l-0) w l-1 l-2 y-0)))
      (send (cat (exp (gen) l-4) (mul (rec l-0) w l-1 l-2 y-0))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1044)
  (parent 665)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (w expt)
    (l-1 l-2 l-3 l-4 y-0 l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-4) (x x)
    (beta (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-4))
  (deflistener
    (cat (exp (gen) y-0)
      (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec y-0) l-5)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-5) (mul (rec l-0) w l-1 l-2 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-4 l-5)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5)) (x l-4)
    (y chi) (y (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-0 (mul (rec l-0) w l-1 l-2 (rec l-3)))
    (y-0 (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec y-0) l-5)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-4) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
        (exp (gen) (mul y chi)))) (neq l-4 ltxb) (undisclosed l-4)
    (undisclosed (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l-0) w l-1 l-2 (rec l-3)))
    (mul (rec l-0) w l-1 l-2 (rec l-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w l-1 l-2 (rec l-3) l-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) l-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-4))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec y-0) l-5)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l-0) w l-1 l-2 (rec l-3) (rec l-4) (rec y-0) l-5))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 l-2 (rec l-3) l-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-5) (mul (rec l-0) w l-1 l-2 (rec l-3))))
      (send (cat (exp (gen) l-5) (mul (rec l-0) w l-1 l-2 (rec l-3)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-5)))
      (send
        (sig (body self (exp (gen) l-5) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1045)
  (parent 665)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l l-0 rndx) (w expt)
    (l-1 y-0 l-2 l-3 y-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w l-1 y-0 (rec l-2) l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) (rec y-1) l-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-4) (mul (rec l-0) w l-1 y-0 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w l-1 y-0 (rec l-2) l-4))
    (y ltxb) (l-3 (mul (rec l-0) w l-1 y-0 (rec l-2))) (y-1 alpha)
    (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) (rec y-1) l-4)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w l-1 y-0 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l-0) w l-1 y-0 (rec l-2)))
    (mul (rec l-0) w l-1 y-0 (rec l-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w l-1 y-0 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) (rec y-1) l-4)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) w l-1 y-0 (rec l-2) (rec l-3) (rec y-1) l-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w l-1 y-0 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l-0) w l-1 y-0 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec l-0) w l-1 y-0 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1046)
  (parent 665)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 l-1 y-1 l-2 y-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1 l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) (rec y-2) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-3) (mul (rec y-0) w l-0 l-1 y-1)))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1 l-3)) (y ltxb)
    (l-2 (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) (rec y-2) l-3))
    (y-2 alpha) (y-2 chi-0) (y-2 l) (l-3 (mul (rec y-0) w l-0 l-1 y-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1 l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec y-0) w l-0 l-1 y-1))
    (mul (rec y-0) w l-0 l-1 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w l-0 l-1 y-1 l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) (rec y-2) l-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w l-0 l-1 y-1 (rec l-2) (rec y-2) l-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l-0 l-1 y-1 l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec y-0) w l-0 l-1 y-1)))
      (send (cat (exp (gen) l-3) (mul (rec y-0) w l-0 l-1 y-1))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1047)
  (parent 666)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta l-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x l-0) (x l-1) (y chi) (y (mul (rec ltxb) l-0 l-1)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (l-1 (mul (rec y-0) l-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed l-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) l-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) l-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1048)
  (parent 666)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 l-1 l-2 l-3 y-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w l-0 l-1 (rec l-2) l-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) (rec y-1) l-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-4) (mul (rec y-0) w l-0 l-1 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) l-4)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec y-0) w l-0 l-1 (rec l-2) l-4))
    (y ltxb)
    (l-3 (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) (rec y-1) l-4))
    (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec y-0) w l-0 l-1 (rec l-2))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) l-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l-0 l-1 (rec l-2) l-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w l-0 l-1 (rec l-2)))
    (mul (rec y-0) w l-0 l-1 (rec l-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) (rec y-1) l-4)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w l-0 l-1 (rec l-2) (rec l-3) (rec y-1) l-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l-0 l-1 (rec l-2) l-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-4) (mul (rec y-0) w l-0 l-1 (rec l-2))))
      (send (cat (exp (gen) l-4) (mul (rec y-0) w l-0 l-1 (rec l-2)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1049)
  (parent 666)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 a-1 b-1 self name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l y-0 rndx) (w expt)
    (l-0 y-1 l-1 l-2 y-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w l-0 y-1 (rec l-1) l-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) l-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) (rec y-2) l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) l-3) (mul (rec y-0) w l-0 y-1 (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) l-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w l-0 y-1 (rec l-1) l-3))
    (y ltxb) (l-2 (mul (rec y-0) w l-0 y-1 (rec l-1)))
    (l-2 (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) (rec y-2) l-3))
    (y-2 alpha) (y-2 chi-0) (y-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) l-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w l-0 y-1 (rec l-1) l-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec y-0) w l-0 y-1 (rec l-1)))
    (mul (rec y-0) w l-0 y-1 (rec l-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w l-0 y-1 (rec l-1) l-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) (rec y-2) l-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w l-0 y-1 (rec l-1) (rec l-2) (rec y-2) l-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w l-0 y-1 (rec l-1) l-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-3) (mul (rec y-0) w l-0 y-1 (rec l-1))))
      (send (cat (exp (gen) l-3) (mul (rec y-0) w l-0 y-1 (rec l-1)))))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self)))))
  (label 1050)
  (parent 666)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta w expt) (x-0 x-1 x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul w x-0 (rec x-1) x-2 (rec l))) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l) (mul w x-0 (rec x-1) x-2 (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec x-1) x-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec x-1) x-2 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w x-0 (rec x-1) x-2)) (y ltxb) (x-2 beta) (x-2 l)
    (l (mul w x-0 (rec x-1)))
    (l (mul w x-0 (rec x-1) x-2 (rec l) (rec l))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul w x-0 (rec x-1) x-2 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec x-1) x-2)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w x-0 (rec x-1)))
    (mul w x-0 (rec x-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w x-0 (rec x-1) x-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec x-1) x-2 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l) (mul w x-0 (rec x-1) x-2 (rec l) (rec l))))
      (send
        (cat (exp (gen) l) (mul w x-0 (rec x-1) x-2 (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1051)
  (parent 669)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta w expt) (x-0 l x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l l x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w x-0 l l x-1 (rec l-0))) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-0) (mul w x-0 l l x-1 (rec l-0) (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 l l)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 l l x-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 l l x-1)) (y ltxb) (x-1 beta)
    (x-1 (mul w x-0 l l)) (x-1 l-0)
    (l-0 (mul w x-0 l l x-1 (rec l-0) (rec l-0))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 l l x-1 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 l l x-1)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 l l))
    (mul w x-0 l l) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w x-0 l l x-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0 l l x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 l l x-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0 l l x-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-0) (mul w x-0 l l x-1 (rec l-0) (rec l-0))))
      (send
        (cat (exp (gen) l-0) (mul w x-0 l l x-1 (rec l-0) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 l l x-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 l l)))
      (send (cat (exp (gen) x-1) (mul w x-0 l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1052)
  (parent 669)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta w expt) (l x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w (rec l) (rec l) (rec x-0) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-0)
      (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0) (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w (rec l) (rec l) (rec x-0))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) w (rec l) (rec l) (rec x-0) x-1))
    (y ltxb) (x-1 beta)
    (x-1 (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0) (rec l-0)))
    (x-1 l-0) (l-0 (mul w (rec l) (rec l) (rec x-0))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec l) (rec x-0) x-1)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul w (rec l) (rec l) (rec x-0)))
    (mul w (rec l) (rec l) (rec x-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) w (rec l) (rec l) (rec x-0) x-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-0)
         (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0) (rec l-0))))
      (send
        (cat (exp (gen) l-0)
          (mul w (rec l) (rec l) (rec x-0) x-1 (rec l-0) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec l) (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w (rec l) (rec l) (rec x-0))))
      (send (cat (exp (gen) x-1) (mul w (rec l) (rec l) (rec x-0)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1053)
  (parent 670)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (beta w expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1)
      (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1) (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul w (rec l) (rec l) l-0 l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 2) (0 1)) ((7 2) (2 0)) ((7 2) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 x-0)) (y ltxb)
    (x-0 beta) (x-0 (mul w (rec l) (rec l) l-0 l-0))
    (x-0 (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1) (rec l-1)))
    (x-0 l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 x-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul w (rec l) (rec l) l-0 l-0))
    (mul w (rec l) (rec l) l-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 x-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1) (rec l-1))))
      (send
        (cat (exp (gen) l-1)
          (mul w (rec l) (rec l) l-0 l-0 x-0 (rec l-1) (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul w (rec l) (rec l) l-0 l-0)))
      (send (cat (exp (gen) x-0) (mul w (rec l) (rec l) l-0 l-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 1054)
  (parent 670)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 l-1 l-2 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec l) w l-1 l-1 (rec l-2) x-0))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) x-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec l) w l-1 l-1)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0 l-2)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) (rec l) w l-1 l-1 (rec l-2) x-0)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 x-0)) (y ltxb)
    (x-0 beta) (x-0 (mul (rec l) (rec l) w l-1 l-1))
    (x-0 (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) x-0))
    (x-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-2) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec l) w l-1 l-1 (rec l-2) x-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 x-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) (rec l) w l-1 l-1))
    (mul (rec l) (rec l) w l-1 l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 x-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l) w l-1 l-1 (rec l-2) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) x-0)))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) x-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec l) w l-1 l-1)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec l) w l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 1055)
  (parent 674)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt) (l-0 x-0 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l) w (rec x-0) x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec l) w (rec x-0) (rec l-1) x-1))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) (rec l) w (rec x-0) (rec l-1) (rec l-1) x-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) (rec l) w (rec x-0))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) (rec l) w (rec x-0) (rec l-1) x-1)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l) w (rec x-0) x-1))
    (y ltxb) (l-1 (mul (rec l) (rec l) w (rec x-0))) (x-1 beta)
    (x-1 (mul (rec l) (rec l) w (rec x-0) (rec l-1) (rec l-1) x-1))
    (x-1 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv a-0 l-0))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec l) w (rec x-0) (rec l-1) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w (rec x-0) x-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec l) w (rec x-0)))
    (mul (rec l) (rec l) w (rec x-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) (rec l) (rec l) w (rec x-0) x-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l) w (rec x-0) (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) (rec l) w (rec x-0) (rec l-1) (rec l-1) x-1)))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) (rec l) w (rec x-0) (rec l-1) (rec l-1) x-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) (rec l) w (rec x-0))))
      (send (cat (exp (gen) x-1) (mul (rec l) (rec l) w (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-0)))))
  (label 1056)
  (parent 674)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 l-0 l-0 x-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 l-0 l-0 (rec l-1) x-1)) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1) (mul w x-0 l-0 l-0 (rec l-1) (rec l-1) x-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w x-0 l-0 l-0 x-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 l-0 l-0 x-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 l-0 l-0)))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 l-0 l-0 (rec l-1) x-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0 l-0 l-0 x-1)) (y ltxb)
    (l-1 (mul w x-0 l-0 l-0 (rec l-1) (rec l-1) x-1)) (x-1 beta)
    (x-1 (mul w x-0 l-0 l-0)) (x-1 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w x-0 l-0 l-0 x-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 l-0 l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 l-0 l-0 (rec l-1) x-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 l-0 l-0 x-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 l-0 l-0))
    (mul w x-0 l-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w x-0 l-0 l-0 x-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0 l-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 l-0 l-0 (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0 l-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w x-0 l-0 l-0 (rec l-1) (rec l-1) x-1)))
      (send
        (cat (exp (gen) l-1)
          (mul w x-0 l-0 l-0 (rec l-1) (rec l-1) x-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 l-0 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 l-0 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 l-0 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 l-0 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 l-0 l-0)))
      (send (cat (exp (gen) x-1) (mul w x-0 l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 1057)
  (parent 675)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l x-1 l-0 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w x-0 (rec x-1) (rec l-0) x-2))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-0) (mul w x-0 (rec x-1) (rec l-0) (rec l-0) x-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec x-1) x-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 2) (0 1))
    ((7 2) (2 0)) ((7 2) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec x-1) (rec l-0) x-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) w x-0 (rec x-1) x-2)) (y ltxb)
    (l-0 (mul w x-0 (rec x-1)))
    (l-0 (mul w x-0 (rec x-1) (rec l-0) (rec l-0) x-2)) (x-2 beta)
    (x-2 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv a-0 l))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 (rec x-1) (rec l-0) x-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec x-1) x-2)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w x-0 (rec x-1)))
    (mul w x-0 (rec x-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w x-0 (rec x-1) x-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w x-0 (rec x-1) (rec l-0) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-0)
         (mul w x-0 (rec x-1) (rec l-0) (rec l-0) x-2)))
      (send
        (cat (exp (gen) l-0)
          (mul w x-0 (rec x-1) (rec l-0) (rec l-0) x-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l)))))
  (label 1058)
  (parent 675)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 y-1 y-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul w y-0 (rec y-1) y-2 (rec l))) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l) (mul w y-0 (rec y-1) y-2 (rec l) (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec y-1) y-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec y-1) y-2 (rec l))) (x l) (y chi)
    (y (mul (rec ltxb) w y-0 (rec y-1) y-2)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l) (l (mul w y-0 (rec y-1)))
    (l (mul w y-0 (rec y-1) y-2 (rec l) (rec l))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul w y-0 (rec y-1) y-2 (rec l))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec y-1) y-2)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l (mul w y-0 (rec y-1)))
    (mul w y-0 (rec y-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w y-0 (rec y-1) y-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec y-1) y-2 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l) (mul w y-0 (rec y-1) y-2 (rec l) (rec l))))
      (send
        (cat (exp (gen) l) (mul w y-0 (rec y-1) y-2 (rec l) (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1059)
  (parent 682)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l l y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w y-0 l l y-1 (rec l-0))) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-0) (mul w y-0 l l y-1 (rec l-0) (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 l l)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 l l y-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 l l y-1)) (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul w y-0 l l)) (y-1 l-0)
    (l-0 (mul w y-0 l l y-1 (rec l-0) (rec l-0))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 l l y-1 (rec l-0))) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 l l y-1)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 l l))
    (mul w y-0 l l) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w y-0 l l y-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0 l l y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 l l y-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0 l l y-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-0) (mul w y-0 l l y-1 (rec l-0) (rec l-0))))
      (send
        (cat (exp (gen) l-0) (mul w y-0 l l y-1 (rec l-0) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 l l y-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 l l)))
      (send (cat (exp (gen) y-1) (mul w y-0 l l))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1060)
  (parent 682)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (l y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w (rec l) (rec l) (rec y-0) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-0)
      (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0) (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w (rec l) (rec l) (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y y-1)
  (absent (x (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) w (rec l) (rec l) (rec y-0) y-1))
    (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0) (rec l-0)))
    (y-1 l-0) (l-0 (mul w (rec l) (rec l) (rec y-0))))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec l) (rec y-0) y-1)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul w (rec l) (rec l) (rec y-0)))
    (mul w (rec l) (rec l) (rec y-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) w (rec l) (rec l) (rec y-0) y-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-0)
         (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0) (rec l-0))))
      (send
        (cat (exp (gen) l-0)
          (mul w (rec l) (rec l) (rec y-0) y-1 (rec l-0) (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec l) (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w (rec l) (rec l) (rec y-0))))
      (send (cat (exp (gen) y-1) (mul w (rec l) (rec l) (rec y-0)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1061)
  (parent 683)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi expt) (ltxb rndx)
    (alpha chi-0 w expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1)
      (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1) (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul w (rec l) (rec l) l-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 1) (7 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 3) (0 1)) ((7 3) (2 0)) ((7 3) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 (mul w (rec l) (rec l) l-0 l-0))
    (y-0 (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1) (rec l-1)))
    (y-0 l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 y-0)))
  (leads-to ((3 1) (1 0)) ((3 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul w (rec l) (rec l) l-0 l-0))
    (mul w (rec l) (rec l) l-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) w (rec l) (rec l) l-0 l-0 y-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1) (rec l-1))))
      (send
        (cat (exp (gen) l-1)
          (mul w (rec l) (rec l) l-0 l-0 y-0 (rec l-1) (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w (rec l) (rec l) l-0 l-0 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul w (rec l) (rec l) l-0 l-0)))
      (send (cat (exp (gen) y-0) (mul w (rec l) (rec l) l-0 l-0))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1062)
  (parent 683)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 l-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec l) w l-1 l-1 (rec l-2) y-0))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) y-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec l) w l-1 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0 l-2)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) (rec l) w l-1 l-1 (rec l-2) y-0)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 y-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 (mul (rec l) (rec l) w l-1 l-1))
    (y-0 (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) y-0))
    (y-0 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-2) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec l) w l-1 l-1 (rec l-2) y-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 y-0)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) (rec l) w l-1 l-1))
    (mul (rec l) (rec l) w l-1 l-1) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) (rec l) (rec l) w l-1 l-1 y-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l) w l-1 l-1 (rec l-2) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) y-0)))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) (rec l) w l-1 l-1 (rec l-2) (rec l-2) y-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w l-1 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec l) w l-1 l-1)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec l) w l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1063)
  (parent 687)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 y-0 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l) w (rec y-0) y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec l) w (rec y-0) (rec l-1) y-1))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) (rec l) w (rec y-0) (rec l-1) (rec l-1) y-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) (rec l) w (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0 l-1)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) (rec l) w (rec y-0) (rec l-1) y-1)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l) w (rec y-0) y-1))
    (y ltxb) (l-1 (mul (rec l) (rec l) w (rec y-0))) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul (rec l) (rec l) w (rec y-0) (rec l-1) (rec l-1) y-1))
    (y-1 l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv b-1 l-0))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec l) w (rec y-0) (rec l-1) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l) w (rec y-0) y-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec l) w (rec y-0)))
    (mul (rec l) (rec l) w (rec y-0)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a
            (exp (gen) (mul (rec ltxb) (rec l) (rec l) w (rec y-0) y-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l) w (rec y-0) (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) (rec l) w (rec y-0) (rec l-1) (rec l-1) y-1)))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) (rec l) w (rec y-0) (rec l-1) (rec l-1) y-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l) w (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) (rec l) w (rec y-0))))
      (send (cat (exp (gen) y-1) (mul (rec l) (rec l) w (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1064)
  (parent 687)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 l-0 l-0 y-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 l-0 l-0 (rec l-1) y-1)) (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-1) (mul w y-0 l-0 l-0 (rec l-1) (rec l-1) y-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w y-0 l-0 l-0 y-1)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 l-0 l-0 y-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 l-0 l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 l-0 l-0 (rec l-1) y-1)) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0 l-0 l-0 y-1)) (y ltxb)
    (l-1 (mul w y-0 l-0 l-0 (rec l-1) (rec l-1) y-1)) (y-1 alpha)
    (y-1 chi-0) (y-1 (mul w y-0 l-0 l-0)) (y-1 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w y-0 l-0 l-0 y-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 l-0 l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 l-0 l-0 (rec l-1) y-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 l-0 l-0 y-1)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 l-0 l-0))
    (mul w y-0 l-0 l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w y-0 l-0 l-0 y-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0 l-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 l-0 l-0 (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0 l-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w y-0 l-0 l-0 (rec l-1) (rec l-1) y-1)))
      (send
        (cat (exp (gen) l-1)
          (mul w y-0 l-0 l-0 (rec l-1) (rec l-1) y-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 l-0 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 l-0 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 l-0 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 l-0 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 l-0 l-0)))
      (send (cat (exp (gen) y-1) (mul w y-0 l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 1065)
  (parent 688)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l y-1 l-0 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w y-0 (rec y-1) (rec l-0) y-2))
    (eta (mul (rec x) y chi)))
  (deflistener
    (cat (exp (gen) l-0) (mul w y-0 (rec y-1) (rec l-0) (rec l-0) y-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec y-1) y-2)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (1 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 3) (0 1))
    ((7 3) (2 0)) ((7 3) (6 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec y-1) (rec l-0) y-2)) (x l-0) (y chi)
    (y (mul (rec ltxb) w y-0 (rec y-1) y-2)) (y ltxb)
    (l-0 (mul w y-0 (rec y-1)))
    (l-0 (mul w y-0 (rec y-1) (rec l-0) (rec l-0) y-2)) (y-2 alpha)
    (y-2 chi-0) (y-2 l))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv b-1 l))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 (rec y-1) (rec l-0) y-2)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec y-1) y-2)))
  (leads-to ((3 1) (1 0)) ((8 1) (7 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-0 (mul w y-0 (rec y-1)))
    (mul w y-0 (rec y-1)) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w y-0 (rec y-1) y-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul w y-0 (rec y-1) (rec l-0) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((recv
       (cat (exp (gen) l-0)
         (mul w y-0 (rec y-1) (rec l-0) (rec l-0) y-2)))
      (send
        (cat (exp (gen) l-0)
          (mul w y-0 (rec y-1) (rec l-0) (rec l-0) y-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 1066)
  (parent 688)
  (unrealized (0 0) (1 1) (1 3) (2 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta y))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (9 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (8 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0)) ((9 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y x))
  (precur (2 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 1067)
  (parent 722)
  (unrealized (0 0) (0 1) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta y))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (9 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (8 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0)) ((9 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y x))
  (precur (2 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1068)
  (parent 722)
  (unrealized (0 0) (0 1) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul x w)))
  (precur (2 0) (9 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 0 resp 4) (exp (gen) y-0) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1069)
  (parent 723)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 l-1 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 2) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 l-1) (x-2 beta))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 1070)
  (parent 723)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 x rndx)
    (w expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (one))
    (eta (mul x w (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w)))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w))
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 1071)
  (parent 723)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (w expt)
    (l-0 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta (one))
    (eta (mul w x x y (rec x-0))))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x x y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x-0)
  (absent (y (mul (rec ltxb) l-0)) (y ltxb) (y (mul w x x)) (x-0 (one))
    (x-0 l-0))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x x y)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 1 init 3) (exp (gen) x-1) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x x y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 1072)
  (parent 723)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l x rndx) (w expt)
    (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (one))
    (eta (mul x w l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w l-0)))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 3 ltx-gen 3) (exp (gen) l-2)
    (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w l-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w l-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))))
  (label 1073)
  (parent 723)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 3) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1074)
  (parent 723)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l x rndx) (w expt)
    (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-1)) (chi (mul x w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x-0) (beta (one))
    (eta (mul x w l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul x w l-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((6 2) (9 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l-1) (y (mul (rec ltxb) l-1)) (y ltxb)
    (y (mul x w l-0)))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul x w l-0 y)))
      (hash (exp (gen) l-1) (exp (gen) (mul x w l-0 y)))) (neq l-1 ltxb)
    (undisclosed l-1) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-1)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 6 ltx-gen 3) (exp (gen) l-2)
    (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul x w l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-1) (exp (gen) (mul x w l-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul x w l-0 y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul x w l-0 y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul x w l-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))))
  (label 1075)
  (parent 723)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 x rndx) (w expt) (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (one))
    (eta (mul x w l-1 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w l-1 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 2) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen x-0 y)
  (absent (x-0 (one)) (x-0 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w l-1)))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w l-1 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w l-1 y)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w l-1 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))
      (send
        (sig (body self-1 (exp (gen) l-2) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1076)
  (parent 723)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 x-1 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-0 (rec x-1) x-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 l-0 (rec x-1) x-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2))
    (y ltxb) (x-2 beta) (x-2 l-2)
    (l-2 (mul (rec l) w x-0 l-0 (rec x-1)))
    (l-2 (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-0 (rec x-1) x-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w x-0 l-0 (rec x-1)))
    (mul (rec l) w x-0 l-0 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-0 (rec x-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2)))))
  (label 1077)
  (parent 727)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w x-0 l-0 l-1 x-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-0 l-1 x-1 (rec l-3))) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w x-0 l-0 l-1)) (x-1 l-3)
    (l-3 (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w x-0 l-0 l-1 x-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0 l-0 l-1))
    (mul (rec l) w x-0 l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 l-1)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 1078)
  (parent 727)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 x-1 l-0 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 (rec x-1) l-0 x-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 (rec x-1) l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 (rec x-1) l-0 x-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2))
    (y ltxb) (l-1 (mul (rec l) w x-0 (rec x-1) l-0)) (x-2 beta)
    (x-2 l-2)
    (l-2 (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 (rec x-1) l-0 x-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w x-0 (rec x-1) l-0))
    (mul (rec l) w x-0 (rec x-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 (rec x-1) l-0)))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2)))))
  (label 1079)
  (parent 727)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (l-0 l-1 x-0 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) l-1 (rec x-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1 (rec l-3)))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1)) (y ltxb)
    (x-1 beta)
    (x-1
      (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1 (rec l-3)))
    (x-1 l-3) (l-3 (mul (rec l) w (rec l-0) l-1 (rec x-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w (rec l-0) l-1 (rec x-0)))
    (mul (rec l) w (rec l-0) l-1 (rec x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) l-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) l-1 (rec x-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 1080)
  (parent 728)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (l-0 l-1 l-2 l-3 x-0 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-4) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 l-2 x-0 (rec l-4)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-4))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 l-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-4) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-3 l-4)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w (rec l-0) l-1 l-2 x-0 (rec l-4))) (x l-4)
    (y chi) (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0))
    (y ltxb) (x-0 beta) (x-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (x-0 (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4)))
    (x-0 l-4))
  (precur (3 0) (7 0))
  (gen-st (pv a l-4) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
        (exp (gen) (mul y chi)))) (neq l-4 ltxb) (undisclosed l-4)
    (undisclosed (mul (rec l) w (rec l-0) l-1 l-2 x-0 (rec l-4)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (mul (rec l) w (rec l-0) l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0 (rec l-4)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-4))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 l-2)))
      (send (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 1081)
  (parent 728)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (l-0 x-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) (rec x-0) l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1 (rec l-3)))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1)) (y ltxb)
    (l-2 (mul (rec l) w (rec l-0) (rec x-0) l-1)) (x-1 beta)
    (x-1
      (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1 (rec l-3)))
    (x-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w (rec l-0) (rec x-0) l-1))
    (mul (rec l) w (rec l-0) (rec x-0) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) (rec x-0) l-1)))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) (rec x-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 1082)
  (parent 728)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 x-1 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w x-0 (rec l) l-0 (rec x-1) x-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec l) l-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec l) l-0 (rec x-1) x-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2))
    (y ltxb)
    (l-1 (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2)))
    (x-2 beta) (x-2 l-2) (l-2 (mul w x-0 (rec l) l-0 (rec x-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w x-0 (rec l) l-0 (rec x-1) x-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul w x-0 (rec l) l-0 (rec x-1)))
    (mul w x-0 (rec l) l-0 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l) l-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l) l-0 (rec x-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2)))))
  (label 1083)
  (parent 729)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul x-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 1) (7 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 (rec l) l-0)) (x l) (y chi)
    (y (mul (rec ltxb) x-0 l-0)) (y ltxb) (x-0 beta) (x-0 l)
    (l-0 (mul x-0 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 (rec l) l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul x-0 (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul x-0 (rec l))))
      (send (cat (exp (gen) l-0) (mul x-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0)))))
  (label 1084)
  (parent 729)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul w x-0 (rec l) l-0 l-1 x-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 l-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 (rec l) l-0 l-1 x-1 (rec l-3))) (x l-3) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1)) (y ltxb)
    (l-2 (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3))) (x-1 beta)
    (x-1 (mul w x-0 (rec l) l-0 l-1)) (x-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul w x-0 (rec l) l-0 l-1 x-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 (rec l) l-0 l-1))
    (mul w x-0 (rec l) l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 l-1)))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1)))))
  (label 1085)
  (parent 729)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l x-1 l-0 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2))
    (y ltxb) (l-1 (mul w x-0 (rec l) (rec x-1) l-0))
    (l-1 (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2)))
    (x-2 beta) (x-2 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w x-0 (rec l) (rec x-1) l-0))
    (mul w x-0 (rec l) (rec x-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0)))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2)))))
  (label 1086)
  (parent 729)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 x-1 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2))
    (y ltxb) (x-2 beta) (x-2 l-2)
    (l-2 (mul (rec l) w x-0 l-0 (rec x-1)))
    (l-2 (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w x-0 l-0 (rec x-1)))
    (mul (rec l) w x-0 l-0 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w x-0 l-0 (rec x-1) (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1087)
  (parent 733)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 l-1)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w x-0 l-0 l-1)) (x-1 l-3)
    (l-3 (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0 l-0 l-1))
    (mul (rec l) w x-0 l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w x-0 l-0 l-1 (rec l-2) x-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 l-1)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0 l-0 l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1088)
  (parent 733)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 x-1 l-0 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 (rec x-1) l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2))
    (y ltxb) (l-1 (mul (rec l) w x-0 (rec x-1) l-0)) (x-2 beta)
    (x-2 l-2)
    (l-2 (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w x-0 (rec x-1) l-0))
    (mul (rec l) w x-0 (rec x-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 (rec x-1) l-0 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w x-0 (rec x-1) l-0 (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 (rec x-1) l-0)))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 (rec x-1) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1089)
  (parent 733)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (l-0 l-1 x-0 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) l-1 (rec x-0))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1)) (y ltxb)
    (x-1 beta)
    (x-1
      (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1 (rec l-3)))
    (x-1 l-3) (l-3 (mul (rec l) w (rec l-0) l-1 (rec x-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w (rec l-0) l-1 (rec x-0)))
    (mul (rec l) w (rec l-0) l-1 (rec x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w (rec l-0) l-1 (rec x-0) (rec l-2) x-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) l-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) l-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1090)
  (parent 734)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (l-0 l-1 l-2 l-3 x-0 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 l-2)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-4) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-3 l-4)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0))
    (y ltxb) (x-0 beta) (x-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (x-0 (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4)))
    (x-0 l-4))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv self l-4))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (mul (rec l) w (rec l-0) l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4))))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) x-0 (rec l-4)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 l-2)))
      (send (cat (exp (gen) x-0) (mul (rec l) w (rec l-0) l-1 l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-4)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 1091)
  (parent 734)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (l rndx) (w expt)
    (l-0 x-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) (rec x-0) l-1)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1)) (y ltxb)
    (l-2 (mul (rec l) w (rec l-0) (rec x-0) l-1)) (x-1 beta)
    (x-1
      (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1 (rec l-3)))
    (x-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w (rec l-0) (rec x-0) l-1))
    (mul (rec l) w (rec l-0) (rec x-0) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) (rec x-0) l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w (rec l-0) (rec x-0) l-1 (rec l-2) x-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) (rec x-0) l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) (rec x-0) l-1)))
      (send
        (cat (exp (gen) x-1) (mul (rec l) w (rec l-0) (rec x-0) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1092)
  (parent 734)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 x-1 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec l) l-0 (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2))
    (y ltxb)
    (l-1 (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2)))
    (x-2 beta) (x-2 l-2) (l-2 (mul w x-0 (rec l) l-0 (rec x-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul w x-0 (rec l) l-0 (rec x-1)))
    (mul w x-0 (rec l) l-0 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) l-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul w x-0 (rec l) l-0 (rec x-1) (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l) l-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l) l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1093)
  (parent 735)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (mul x-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (8 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (l-0 (mul x-0 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (mul x-0 (rec l))))
      (send (cat (exp (gen) l) (mul x-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-0)))))
  (label 1094)
  (parent 735)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l l-0 l-1 l-2 x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 l-1)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-2 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1)) (y ltxb)
    (l-2 (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3))) (x-1 beta)
    (x-1 (mul w x-0 (rec l) l-0 l-1)) (x-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 (rec l) l-0 l-1))
    (mul w x-0 (rec l) l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) l-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul w x-0 (rec l) l-0 l-1 (rec l-2) x-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) l-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 l-1)))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec l) l-0 l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1095)
  (parent 735)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta w expt) (x-0 l x-1 l-0 l-1 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0)))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-2)
  (absent (x (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2))
    (y ltxb) (l-1 (mul w x-0 (rec l) (rec x-1) l-0))
    (l-1 (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2)))
    (x-2 beta) (x-2 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self b-1) (neq a b-0) (neq b a-0) (neq b-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w x-0 (rec l) (rec x-1) l-0))
    (mul w x-0 (rec l) (rec x-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul w x-0 (rec l) (rec x-1) l-0 (rec l-1) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0)))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1096)
  (parent 735)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 rndx) (w expt)
    (l-1 l-2 l-3 l-4 l-5 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-4) (x x)
    (beta (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-4))
  (deflistener
    (cat (exp (gen) l-5)
      (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-5))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec l-0) w l-2 l-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-4 l-5)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) x-0)) (x l-4)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 x-0))
    (y ltxb) (x-0 beta) (x-0 (mul (rec l) (rec l-0) w l-2 l-3))
    (x-0 (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) x-0))
    (x-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-4) (pv b ltxb) (pv a-1 l-1))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
        (exp (gen) (mul y chi)))) (neq l-4 ltxb) (undisclosed l-4)
    (undisclosed (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) x-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 x-0)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) (rec l-0) w l-2 l-3))
    (mul (rec l) (rec l-0) w l-2 l-3) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-4))))
    ((recv
       (cat (exp (gen) l-5)
         (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) x-0)))
      (send
        (cat (exp (gen) l-5)
          (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-5)))
      (send
        (sig (body self (exp (gen) l-5) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec l-0) w l-2 l-3)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec l-0) w l-2 l-3))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-1)))))
  (label 1097)
  (parent 739)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 rndx) (w expt)
    (l-1 l-2 x-0 l-3 l-4 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4) x-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) (rec l-0) w l-2 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1)) (y ltxb)
    (l-4 (mul (rec l) (rec l-0) w l-2 (rec x-0))) (x-1 beta)
    (x-1
      (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4) x-1))
    (x-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l-1))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-4 (mul (rec l) (rec l-0) w l-2 (rec x-0)))
    (mul (rec l) (rec l-0) w l-2 (rec x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4)
           x-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4)
            x-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) (rec l-0) w l-2 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) (rec l-0) w l-2 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-1)))))
  (label 1098)
  (parent 739)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 rndx) (w expt)
    (l-1 l-2 x-0 l-3 l-4 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4) x-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) (rec l-0) w l-2 (rec x-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-1 l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1)) (y ltxb)
    (l-3 (mul (rec l) (rec l-0) w l-2 (rec x-0))) (x-1 beta)
    (x-1
      (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4) x-1))
    (x-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l-1))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) (rec l-0) w l-2 (rec x-0)))
    (mul (rec l) (rec l-0) w l-2 (rec x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4)
           x-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) (rec l-0) w l-2 (rec x-0) (rec l-3) (rec l-4)
            x-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) (rec l-0) w l-2 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) (rec l-0) w l-2 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-1)))))
  (label 1099)
  (parent 739)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 l-2 l-3 l-4 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1)) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1)) (y ltxb)
    (l-4 (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1)) (x-1 beta)
    (x-1 (mul (rec l) w x-0 l-1 l-2)) (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0 l-1 l-2))
    (mul (rec l) w x-0 l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 1100)
  (parent 741)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (7 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (l-1 (mul (rec l-0) x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l-0) x-0 l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 4 ltx-gen 2) l-2 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) x-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) x-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l)))))
  (label 1101)
  (parent 741)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 l-3 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
    (y ltxb) (l-3 (mul (rec l) w x-0 l-1 (rec x-1)))
    (l-3 (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))
    (x-2 beta) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 1102)
  (parent 741)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 l-3 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
    (y ltxb) (l-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (l-3 (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))
    (x-2 beta) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 1103)
  (parent 741)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 l-2 l-3 l-4 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-3 l-4)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1)) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1)) (y ltxb)
    (l-3 (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1)) (x-1 beta)
    (x-1 (mul (rec l) w x-0 l-1 l-2)) (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0 l-1 l-2))
    (mul (rec l) w x-0 l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 l-2 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 l-2 (rec l-3) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w x-0 l-1 l-2 (rec l-3) (rec l-4) x-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 l-2 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 l-2))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 1104)
  (parent 742)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x x-0) (x l-1) (y chi) (y (mul (rec ltxb) x-0 l-1)) (y ltxb)
    (x-0 beta) (x-0 l) (l-1 (mul (rec l-0) x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) x-0)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l)))))
  (label 1105)
  (parent 742)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 l-3 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
    (y ltxb)
    (l-2 (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))
    (l-3 (mul (rec l) w x-0 l-1 (rec x-1))) (x-2 beta) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 1106)
  (parent 742)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 l-3 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l-0 l-2 l-3)
  (uniq-gen x y x-2)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
    (y ltxb) (l-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (l-2 (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))
    (x-2 beta) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec l-3) x-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l-0)))))
  (label 1107)
  (parent 742)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l-0))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb) (l-0 (rec l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-0 (7 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (rec l)))
      (send (cat (exp (gen) l-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-0)))
  (label 1108)
  (parent 743)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-0 (8 0)
    (ch-msg priv-stor-0 (cat pt-1 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0)))
  (label 1109)
  (parent 749)
  (seen 1366)
  (seen-ops
    (1366
      (operation nonce-test (added-strand ltx-disclose 3) l-0 (2 0)
        (ch-msg priv-stor-0 (cat pt-1 (pv self l-0))))
      (strand-map 0 1 2 3 4 5 6 7 8 9)))
  (unrealized (0 0) (0 1) (1 3) (2 0))
  (comment "2 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul w l-0)) (x l) (y chi) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (l-0 w))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-0 (8 0)
    (ch-msg priv-stor-0 (cat pt-1 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0)))
  (label 1110)
  (parent 752)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (alpha expt)
    (l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha alpha) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x)
    (beta (mul (rec l-0) alpha l-1)) (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l-0) alpha l-1)) (x l-0) (y alpha) (y l-1) (y x))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
    (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) alpha l-1)) (undisclosed l-1)
    (undisclosed alpha))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) alpha l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l)))
  (label 1111)
  (parent 753)
  (unrealized (0 0) (1 1) (2 0) (5 0) (6 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta w)
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x w) (x l) (y chi) (y (mul (rec ltxb) w l)) (y ltxb))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))))
  (label 1112)
  (parent 753)
  (unrealized (0 0) (0 1) (10 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 y-1 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-0 (rec y-1) y-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 l-0 (rec y-1) y-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-2)
    (l-2 (mul (rec l) w y-0 l-0 (rec y-1)))
    (l-2 (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-0 (rec y-1) y-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w y-0 l-0 (rec y-1)))
    (mul (rec l) w y-0 l-0 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1113)
  (parent 757)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w y-0 l-0 l-1 y-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-0 l-1 y-1 (rec l-3))) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 (mul (rec l) w y-0 l-0 l-1)) (y-1 l-3)
    (l-3 (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w y-0 l-0 l-1 y-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0 l-0 l-1))
    (mul (rec l) w y-0 l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 l-1)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1114)
  (parent 757)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 y-1 l-0 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 (rec y-1) l-0 y-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 (rec y-1) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 (rec y-1) l-0 y-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2))
    (y ltxb) (l-1 (mul (rec l) w y-0 (rec y-1) l-0)) (y-2 alpha)
    (y-2 chi-0) (y-2 l-2)
    (l-2 (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 (rec y-1) l-0 y-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w y-0 (rec y-1) l-0))
    (mul (rec l) w y-0 (rec y-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 (rec y-1) l-0)))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1115)
  (parent 757)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 y-0 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) l-1 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1 (rec l-3)))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1 (rec l-3)))
    (y-1 l-3) (l-3 (mul (rec l) w (rec l-0) l-1 (rec y-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w (rec l-0) l-1 (rec y-0)))
    (mul (rec l) w (rec l-0) l-1 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) l-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) l-1 (rec y-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1116)
  (parent 758)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 l-2 l-3 y-0 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-4) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 l-2 y-0 (rec l-4)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-4))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-4) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-3 l-4)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w (rec l-0) l-1 l-2 y-0 (rec l-4))) (x l-4)
    (y chi) (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (y-0 (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4)))
    (y-0 l-4))
  (precur (3 0) (7 0))
  (gen-st (pv a l-4) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
        (exp (gen) (mul y chi)))) (neq l-4 ltxb) (undisclosed l-4)
    (undisclosed (mul (rec l) w (rec l-0) l-1 l-2 y-0 (rec l-4)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (mul (rec l) w (rec l-0) l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0 (rec l-4)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-4))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 l-2)))
      (send (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 l-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-4))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1117)
  (parent 758)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 y-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) (rec y-0) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1 (rec l-3)))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1)) (y ltxb)
    (l-2 (mul (rec l) w (rec l-0) (rec y-0) l-1)) (y-1 alpha)
    (y-1 chi-0)
    (y-1
      (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1 (rec l-3)))
    (y-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w (rec l-0) (rec y-0) l-1))
    (mul (rec l) w (rec l-0) (rec y-0) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) (rec y-0) l-1)))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) (rec y-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1118)
  (parent 758)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 y-1 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w y-0 (rec l) l-0 (rec y-1) y-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec l) l-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec l) l-0 (rec y-1) y-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2))
    (y ltxb)
    (l-1 (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2)))
    (y-2 alpha) (y-2 chi-0) (y-2 l-2)
    (l-2 (mul w y-0 (rec l) l-0 (rec y-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w y-0 (rec l) l-0 (rec y-1) y-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul w y-0 (rec l) l-0 (rec y-1)))
    (mul w y-0 (rec l) l-0 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l) l-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l) l-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1119)
  (parent 759)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul y-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 1) (7 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 (rec l) l-0)) (x l) (y chi)
    (y (mul (rec ltxb) y-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (l-0 (mul y-0 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 (rec l) l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 4 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul y-0 (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul y-0 (rec l))))
      (send (cat (exp (gen) l-0) (mul y-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1120)
  (parent 759)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul w y-0 (rec l) l-0 l-1 y-1 (rec l-3)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-2)
      (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 (rec l) l-0 l-1 y-1 (rec l-3))) (x l-3) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1)) (y ltxb)
    (l-2 (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3)))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul w y-0 (rec l) l-0 l-1)) (y-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul w y-0 (rec l) l-0 l-1 y-1 (rec l-3)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 (rec l) l-0 l-1))
    (mul w y-0 (rec l) l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1 (rec l-3)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-2)
         (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3))))
      (send
        (cat (exp (gen) l-2)
          (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 l-1)))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1121)
  (parent 759)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l y-1 l-0 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-1)
      (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2))
    (y ltxb) (l-1 (mul w y-0 (rec l) (rec y-1) l-0))
    (l-1 (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2)))
    (y-2 alpha) (y-2 chi-0) (y-2 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w y-0 (rec l) (rec y-1) l-0))
    (mul w y-0 (rec l) (rec y-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-1)
         (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-1)
          (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0)))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1122)
  (parent 759)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 y-1 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-2)
    (l-2 (mul (rec l) w y-0 l-0 (rec y-1)))
    (l-2 (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w y-0 l-0 (rec y-1)))
    (mul (rec l) w y-0 l-0 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w y-0 l-0 (rec y-1) (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1123)
  (parent 763)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0) (y-1 (mul (rec l) w y-0 l-0 l-1)) (y-1 l-3)
    (l-3 (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0 l-0 l-1))
    (mul (rec l) w y-0 l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w y-0 l-0 l-1 (rec l-2) y-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 l-1)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0 l-0 l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1124)
  (parent 763)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 y-1 l-0 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 (rec y-1) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2))
    (y ltxb) (l-1 (mul (rec l) w y-0 (rec y-1) l-0)) (y-2 alpha)
    (y-2 chi-0) (y-2 l-2)
    (l-2 (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w y-0 (rec y-1) l-0))
    (mul (rec l) w y-0 (rec y-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 (rec y-1) l-0 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul (rec l) w y-0 (rec y-1) l-0 (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 (rec y-1) l-0)))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 (rec y-1) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1125)
  (parent 763)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 y-0 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) l-1 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1 (rec l-3)))
    (y-1 l-3) (l-3 (mul (rec l) w (rec l-0) l-1 (rec y-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w (rec l-0) l-1 (rec y-0)))
    (mul (rec l) w (rec l-0) l-1 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) l-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w (rec l-0) l-1 (rec y-0) (rec l-2) y-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) l-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) l-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1126)
  (parent 764)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 l-1 l-2 l-3 y-0 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-4) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-3 l-4)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (y-0 (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4)))
    (y-0 l-4))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv self l-4))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) w (rec l-0) l-1 l-2))
    (mul (rec l) w (rec l-0) l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w (rec l-0) l-1 l-2 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4))))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w (rec l-0) l-1 l-2 (rec l-3) y-0 (rec l-4)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) l-1 l-2 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 l-2)))
      (send (cat (exp (gen) y-0) (mul (rec l) w (rec l-0) l-1 l-2))))
    ((load priv-stor-1 (cat pt-3 (pv self l-4)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-4))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1127)
  (parent 764)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (l-0 y-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) (rec y-0) l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1)) (y ltxb)
    (l-2 (mul (rec l) w (rec l-0) (rec y-0) l-1)) (y-1 alpha)
    (y-1 chi-0)
    (y-1
      (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1 (rec l-3)))
    (y-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w (rec l-0) (rec y-0) l-1))
    (mul (rec l) w (rec l-0) (rec y-0) l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) w (rec l-0) (rec y-0) l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1
           (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w (rec l-0) (rec y-0) l-1 (rec l-2) y-1
            (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w (rec l-0) (rec y-0) l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) (rec y-0) l-1)))
      (send
        (cat (exp (gen) y-1) (mul (rec l) w (rec l-0) (rec y-0) l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1128)
  (parent 764)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 y-1 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec l) l-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2))
    (y ltxb)
    (l-1 (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2)))
    (y-2 alpha) (y-2 chi-0) (y-2 l-2)
    (l-2 (mul w y-0 (rec l) l-0 (rec y-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul w y-0 (rec l) l-0 (rec y-1)))
    (mul w y-0 (rec l) l-0 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) l-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul w y-0 (rec l) l-0 (rec y-1) (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l) l-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l) l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1129)
  (parent 765)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l) (mul y-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 1) (8 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (l-0 (mul y-0 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 2 ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l) (mul y-0 (rec l))))
      (send (cat (exp (gen) l) (mul y-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-3 (pv self l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1130)
  (parent 765)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l l-0 l-1 l-2 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 l-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-2 l-3)
  (uniq-gen x y y-1)
  (absent (x (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1)) (y ltxb)
    (l-2 (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3)))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul w y-0 (rec l) l-0 l-1)) (y-1 l-3))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv self l-3))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 (rec l) l-0 l-1))
    (mul w y-0 (rec l) l-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) l-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3))))
      (send
        (cat (exp (gen) l-3)
          (mul w y-0 (rec l) l-0 l-1 (rec l-2) y-1 (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) l-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 l-1)))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec l) l-0 l-1))))
    ((load priv-stor-1 (cat pt-3 (pv self l-3)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-3))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1131)
  (parent 765)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 w expt) (y-0 l y-1 l-0 l-1 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) l-2)
      (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b self)
    (priv-stor priv-stor-1) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (8 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y y-2)
  (absent (x (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2))
    (y ltxb) (l-1 (mul w y-0 (rec l) (rec y-1) l-0))
    (l-1 (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2)))
    (y-2 alpha) (y-2 chi-0) (y-2 l-2))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv self l-2))
  (facts (neq self a-1) (neq a b-0) (neq b a-0) (neq a-1 self)
    (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w y-0 (rec l) (rec y-1) l-0))
    (mul w y-0 (rec l) (rec y-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) l-2)
         (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2))))
      (send
        (cat (exp (gen) l-2)
          (mul w y-0 (rec l) (rec y-1) l-0 (rec l-1) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0)))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 self (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 self
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1132)
  (parent 765)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 rndx) (w expt)
    (l-1 l-2 l-3 l-4 l-5 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-4) (x x)
    (beta (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-4))
  (deflistener
    (cat (exp (gen) l-5)
      (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-5))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec l-0) w l-2 l-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-4 l-5)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) y-0)) (x l-4)
    (y chi) (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 y-0))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) (rec l-0) w l-2 l-3))
    (y-0 (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) y-0))
    (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-4) (pv b ltxb) (pv b-1 l-1))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
        (exp (gen) (mul y chi)))) (neq l-4 ltxb) (undisclosed l-4)
    (undisclosed (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) y-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 y-0)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) (rec l-0) w l-2 l-3))
    (mul (rec l) (rec l-0) w l-2 l-3) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec l-0) w l-2 l-3 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-4)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-4))))
    ((recv
       (cat (exp (gen) l-5)
         (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) y-0)))
      (send
        (cat (exp (gen) l-5)
          (mul (rec l) (rec l-0) w l-2 l-3 (rec l-4) (rec l-5) y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-5)))
      (send
        (sig (body self (exp (gen) l-5) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 l-3 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec l-0) w l-2 l-3)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec l-0) w l-2 l-3))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-1)))))
  (label 1133)
  (parent 769)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 rndx) (w expt)
    (l-1 l-2 y-0 l-3 l-4 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4) y-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) (rec l-0) w l-2 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1)) (y ltxb)
    (l-4 (mul (rec l) (rec l-0) w l-2 (rec y-0))) (y-1 alpha)
    (y-1 chi-0)
    (y-1
      (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4) y-1))
    (y-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l-1))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-4 (mul (rec l) (rec l-0) w l-2 (rec y-0)))
    (mul (rec l) (rec l-0) w l-2 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4)
           y-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4)
            y-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) (rec l-0) w l-2 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) (rec l-0) w l-2 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-1)))))
  (label 1134)
  (parent 769)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 rndx) (w expt)
    (l-1 l-2 y-0 l-3 l-4 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4) y-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) (rec l-0) w l-2 (rec y-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-1 l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1)) (y ltxb)
    (l-3 (mul (rec l) (rec l-0) w l-2 (rec y-0))) (y-1 alpha)
    (y-1 chi-0)
    (y-1
      (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4) y-1))
    (y-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l-1))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) (rec l-0) w l-2 (rec y-0)))
    (mul (rec l) (rec l-0) w l-2 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec l-0) w l-2 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4)
           y-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) (rec l-0) w l-2 (rec y-0) (rec l-3) (rec l-4)
            y-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec l-0) w l-2 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) (rec l-0) w l-2 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) (rec l-0) w l-2 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-1)))))
  (label 1135)
  (parent 769)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 l-2 l-3 l-4 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1)) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1)) (y ltxb)
    (l-4 (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec l) w y-0 l-1 l-2)) (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0 l-1 l-2))
    (mul (rec l) w y-0 l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 1136)
  (parent 771)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (7 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (l-1 (mul (rec l-0) y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l-0) y-0 l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 4 ltx-gen 2) l-2 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) y-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) y-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l)))))
  (label 1137)
  (parent 771)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 y-1 l-2 l-3 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
    (y ltxb) (l-3 (mul (rec l) w y-0 l-1 (rec y-1)))
    (l-3 (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 1138)
  (parent 771)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 y-1 l-2 l-3 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
    (y ltxb) (l-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (l-3 (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 1139)
  (parent 771)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 l-2 l-3 l-4 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) l-4)
      (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-3 l-4)
  (uniq-gen x y y-1)
  (absent (x (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1)) (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1)) (y ltxb)
    (l-3 (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec l) w y-0 l-1 l-2)) (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0 l-1 l-2))
    (mul (rec l) w y-0 l-1 l-2) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 l-2 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 l-2 (rec l-3) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) l-4)
         (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1)))
      (send
        (cat (exp (gen) l-4)
          (mul (rec l) w y-0 l-1 l-2 (rec l-3) (rec l-4) y-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 l-2 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 l-2))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 1140)
  (parent 772)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (7 0)) ((3 1) (1 1))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x y-0) (x l-1) (y chi) (y (mul (rec ltxb) y-0 l-1)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (l-1 (mul (rec l-0) y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-2 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) y-0)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l)))))
  (label 1141)
  (parent 772)
  (unrealized (0 0) (0 1) (1 3) (3 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 y-1 l-2 l-3 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
    (y ltxb)
    (l-2 (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))
    (l-3 (mul (rec l) w y-0 l-1 (rec y-1))) (y-2 alpha) (y-2 chi-0)
    (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-3 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 1142)
  (parent 772)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 y-1 l-2 l-3 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) l-3)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l-0 l-2 l-3)
  (uniq-gen x y y-2)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
    (y ltxb) (l-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (l-2 (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) l-3)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2)))
      (send
        (cat (exp (gen) l-3)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec l-3) y-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l-0)))))
  (label 1143)
  (parent 772)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self self-0 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb l l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) l-1))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-0)
    (priv-stor priv-stor-2) (l l-0))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (9 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (7 0)) ((9 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0 l-1)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0 l-1)) (x l) (y chi)
    (y (mul (rec ltxb) l-0 l-1)) (y ltxb) (l-1 (mul (rec l) l-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-1))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul (rec l) l-0 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-1 (7 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) l-0 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) l-0)))
      (send (cat (exp (gen) l-1) (mul (rec l) l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) l-1)) (send (cat (exp (gen) l-0) l-1)))
    ((load priv-stor-2 (cat pt-4 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (stor priv-stor-1 (cat pt-6 "nil")) (send l-1)))
  (label 1144)
  (parent 781)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul w y (rec x))))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0)) ((5 1) (1 3))
    ((6 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y w) (x (one)) (x l) (x w)
    (x (mul w (rec x))))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1145)
  (parent 794)
  (unrealized (0 0) (0 1) (1 3) (5 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (5 0)) ((0 3) (6 0)) ((1 2) (0 2)) ((1 2) (7 0))
    ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (1 0)) ((4 2) (3 0))
    ((5 1) (1 3)) ((6 1) (3 0)) ((7 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (5 0) (6 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((4 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (6 0))
  (strand-map 0 1 2 3 4 5 6)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1146)
  (parent 794)
  (unrealized (0 0) (0 1) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (8 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul (rec l) l-0)) (y l) (y (mul w x-0))
    (x-1 beta) (x-1 l-0))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((5 1) (1 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1147)
  (parent 797)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 beta) (x-1 l-1))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-1)))))
  (label 1148)
  (parent 797)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (6 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1149)
  (parent 799)
  (unrealized (0 0) (0 1) (1 3) (6 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (alpha chi expt) (x rndx)
    (w expt) (y y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (8 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul (rec l) l-0)) (y-0 l)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((5 1) (1 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1150)
  (parent 800)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-1)))))
  (label 1151)
  (parent 800)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))))
  (label 1152)
  (parent 801)
  (unrealized (0 0) (0 1) (0 2) (3 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1153)
  (parent 801)
  (unrealized (0 0) (0 1) (3 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((1 2) (8 0))
    ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (3 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1154)
  (parent 801)
  (unrealized (0 0) (0 1) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (x-1 x-2 x-3 x-4 x-5 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) x-4)
      (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-4) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l) (x x-5) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l)
  (uniq-gen x y x-4 x-5)
  (absent (x (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l))) (x l)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (y ltxb) (x-4 beta) (x-4 l) (x-5 beta-0) (x-5 l)
    (l (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (l (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (mul (rec x-0) w x-1 x-2 (rec x-3)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) x-4)
         (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l))))
      (send
        (cat (exp (gen) x-4)
          (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-4))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
      (send (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-5)))))
  (label 1155)
  (parent 806)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (x-1 x-2 l x-3 x-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 l x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 x-2 l x-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 x-2 l (rec x-3) x-4 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-4) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 x-2 l x-4 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w x-1 x-2 l x-4)) (y ltxb) (x-3 beta)
    (x-3 l-0) (x-4 beta-0) (x-4 (mul (rec x-0) w x-1 x-2 l)) (x-4 l-0)
    (l-0 (mul (rec x-0) w x-1 x-2 l (rec x-3) x-4 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 x-2 l x-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 l x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-4 (mul (rec x-0) w x-1 x-2 l))
    (mul (rec x-0) w x-1 x-2 l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 x-2 l x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 x-2 l (rec x-3) x-4 (rec l-0))))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 x-2 l (rec x-3) x-4 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l)))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1156)
  (parent 806)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (x-1 x-2 l x-3 x-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l x-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 (rec x-2) l x-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 (rec x-2) l (rec x-3) x-4 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec x-0) w x-1 (rec x-2) l)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-4) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 (rec x-2) l x-4 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l x-4))
    (y ltxb) (x-3 beta) (x-3 (mul (rec x-0) w x-1 (rec x-2) l))
    (x-3 l-0) (x-4 beta-0) (x-4 l-0)
    (l-0 (mul (rec x-0) w x-1 (rec x-2) l (rec x-3) x-4 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 (rec x-2) l x-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) w x-1 (rec x-2) l))
    (mul (rec x-0) w x-1 (rec x-2) l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 (rec x-2) l (rec x-3) x-4 (rec l-0))))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 (rec x-2) l (rec x-3) x-4 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 (rec x-2) l)))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 (rec x-2) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1157)
  (parent 806)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (l x-1 x-2 x-3 x-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w (rec l) x-1 (rec x-2) (rec x-3) x-4 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec x-0) w (rec l) x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-4) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4 (rec l-0)))
    (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec x-2) x-4)) (y ltxb)
    (x-3 beta) (x-3 l-0) (x-4 beta-0)
    (x-4
      (mul (rec x-0) w (rec l) x-1 (rec x-2) (rec x-3) x-4 (rec l-0)))
    (x-4 l-0) (l-0 (mul (rec x-0) w (rec l) x-1 (rec x-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w (rec l) x-1 (rec x-2)))
    (mul (rec x-0) w (rec l) x-1 (rec x-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w (rec l) x-1 (rec x-2) (rec x-3) x-4
           (rec l-0))))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w (rec l) x-1 (rec x-2) (rec x-3) x-4
            (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-4) (mul (rec x-0) w (rec l) x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-4) (mul (rec x-0) w (rec l) x-1 (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1158)
  (parent 807)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (l x-1 l-0 x-2 x-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 x-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l) x-1 l-0 x-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec x-0) w (rec l) x-1 l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-1)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w (rec l) x-1 l-0 x-3 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 x-3))
    (y ltxb) (x-2 beta) (x-2 l-1) (x-3 beta-0)
    (x-3 (mul (rec x-0) w (rec l) x-1 l-0))
    (x-3 (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1)))
    (x-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w (rec l) x-1 l-0 x-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) w (rec l) x-1 l-0))
    (mul (rec x-0) w (rec l) x-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec x-0) w (rec l) x-1 l-0)))
      (send (cat (exp (gen) x-3) (mul (rec x-0) w (rec l) x-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1159)
  (parent 807)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 expt) (x-0 rndx) (w expt) (l x-1 l-0 x-2 x-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l) (rec x-1) l-0 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l) (rec x-1) l-0 (rec x-2) x-3 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w (rec l) (rec x-1) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-1)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l) (rec x-1) l-0 x-3)) (y ltxb)
    (x-2 beta) (x-2 (mul (rec x-0) w (rec l) (rec x-1) l-0)) (x-2 l-1)
    (x-3 beta-0)
    (x-3
      (mul (rec x-0) w (rec l) (rec x-1) l-0 (rec x-2) x-3 (rec l-1)))
    (x-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l) (rec x-1) l-0 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec x-0) w (rec l) (rec x-1) l-0))
    (mul (rec x-0) w (rec l) (rec x-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l) (rec x-1) l-0 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l) (rec x-1) l-0 (rec x-2) x-3
           (rec l-1))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l) (rec x-1) l-0 (rec x-2) x-3
            (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) (rec x-1) l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec x-0) w (rec l) (rec x-1) l-0)))
      (send
        (cat (exp (gen) x-3) (mul (rec x-0) w (rec l) (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1160)
  (parent 807)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 w expt) (x-0 l x-1 x-2 x-3 x-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) x-1 (rec x-2) x-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w x-0 (rec l) x-1 (rec x-2) x-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-3)
      (mul w x-0 (rec l) x-1 (rec x-2) (rec x-3) x-4 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul w x-0 (rec l) x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-4) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul w x-0 (rec l) x-1 (rec x-2) x-4 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) x-1 (rec x-2) x-4))
    (y ltxb) (x-3 beta)
    (x-3 (mul w x-0 (rec l) x-1 (rec x-2) (rec x-3) x-4 (rec l-0)))
    (x-3 l-0) (x-4 beta-0) (x-4 l-0)
    (l-0 (mul w x-0 (rec l) x-1 (rec x-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 (rec l) x-1 (rec x-2) x-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul w x-0 (rec l) x-1 (rec x-2)))
    (mul w x-0 (rec l) x-1 (rec x-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-3)
         (mul w x-0 (rec l) x-1 (rec x-2) (rec x-3) x-4 (rec l-0))))
      (send
        (cat (exp (gen) x-3)
          (mul w x-0 (rec l) x-1 (rec x-2) (rec x-3) x-4 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul w x-0 (rec l) x-1 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul w x-0 (rec l) x-1 (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1161)
  (parent 808)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 w expt) (x-0 l x-1 l-0 x-2 x-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) x-1 l-0 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l) x-1 l-0 x-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul w x-0 (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul w x-0 (rec l) x-1 l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-1)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul w x-0 (rec l) x-1 l-0 x-3 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) x-1 l-0 x-3)) (y ltxb) (x-2 beta)
    (x-2 (mul w x-0 (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1))) (x-2 l-1)
    (x-3 beta-0) (x-3 (mul w x-0 (rec l) x-1 l-0)) (x-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l) x-1 l-0 x-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) x-1 l-0 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-3 (mul w x-0 (rec l) x-1 l-0))
    (mul w x-0 (rec l) x-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) x-1 l-0 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul w x-0 (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1))))
      (send
        (cat (exp (gen) x-2)
          (mul w x-0 (rec l) x-1 l-0 (rec x-2) x-3 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) x-1 l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul w x-0 (rec l) x-1 l-0)))
      (send (cat (exp (gen) x-3) (mul w x-0 (rec l) x-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1162)
  (parent 808)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 b-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (beta-0 w expt) (x-0 l x-1 l-0 x-2 x-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l) (rec x-1) l-0 x-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul w x-0 (rec l) (rec x-1) l-0 (rec x-2) x-3 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul w x-0 (rec l) (rec x-1) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-1)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul w x-0 (rec l) (rec x-1) l-0 x-3 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-3))
    (y ltxb) (x-2 beta) (x-2 (mul w x-0 (rec l) (rec x-1) l-0))
    (x-2 (mul w x-0 (rec l) (rec x-1) l-0 (rec x-2) x-3 (rec l-1)))
    (x-2 l-1) (x-3 beta-0) (x-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l) (rec x-1) l-0 x-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul w x-0 (rec l) (rec x-1) l-0))
    (mul w x-0 (rec l) (rec x-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul w x-0 (rec l) (rec x-1) l-0 (rec x-2) x-3 (rec l-1))))
      (send
        (cat (exp (gen) x-2)
          (mul w x-0 (rec l) (rec x-1) l-0 (rec x-2) x-3 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul w x-0 (rec l) (rec x-1) l-0)))
      (send (cat (exp (gen) x-3) (mul w x-0 (rec l) (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1163)
  (parent 808)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 l rndx) (w expt)
    (l-0 x-1 l-1 x-2 l-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 x-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) x-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec x-0) (rec l) w x-1 l-1)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) x-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 x-3))
    (y ltxb) (x-2 beta) (x-2 l-2) (x-3 beta-0)
    (x-3 (mul (rec x-0) (rec l) w x-1 l-1))
    (x-3 (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) x-3))
    (x-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) (rec l) w x-1 l-1))
    (mul (rec x-0) (rec l) w x-1 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) x-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec x-0) (rec l) w x-1 l-1)))
      (send (cat (exp (gen) x-3) (mul (rec x-0) (rec l) w x-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 1164)
  (parent 811)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 l rndx) (w expt)
    (l-0 x-1 x-2 x-3 l-1 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec x-3) (rec l-1) x-4)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec x-0) (rec l) w x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec l-1) x-4))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec x-2) x-4)) (y ltxb)
    (x-3 beta) (x-3 l-1) (l-1 (mul (rec x-0) (rec l) w x-1 (rec x-2)))
    (x-4 beta-0)
    (x-4
      (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec x-3) (rec l-1) x-4))
    (x-4 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) (rec l) w x-1 (rec x-2)))
    (mul (rec x-0) (rec l) w x-1 (rec x-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec x-3) (rec l-1)
           x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) (rec l) w x-1 (rec x-2) (rec x-3) (rec l-1)
            x-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-4) (mul (rec x-0) (rec l) w x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-4) (mul (rec x-0) (rec l) w x-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-4))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 1165)
  (parent 811)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 l rndx) (w expt)
    (l-0 l-1 x-1 x-2 l-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec x-1) x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec x-2) (rec l-2) x-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) (rec l) w l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec l-2) x-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec x-1) x-3)) (y ltxb)
    (x-2 beta) (x-2 (mul (rec x-0) (rec l) w l-1 (rec x-1))) (x-2 l-2)
    (x-3 beta-0)
    (x-3
      (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec x-2) (rec l-2) x-3))
    (x-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec x-1) x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec x-0) (rec l) w l-1 (rec x-1)))
    (mul (rec x-0) (rec l) w l-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec x-1) x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec x-2) (rec l-2)
           x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) (rec l) w l-1 (rec x-1) (rec x-2) (rec l-2)
            x-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec x-0) (rec l) w l-1 (rec x-1))))
      (send
        (cat (exp (gen) x-3) (mul (rec x-0) (rec l) w l-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 1166)
  (parent 811)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l x-2 l-0 x-3 l-1 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 x-2 l-0 (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) (rec l-1) x-4)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l-0)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 x-2 l-0 (rec l-1) x-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4)) (y ltxb)
    (x-3 beta) (x-3 l-1)
    (l-1 (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) (rec l-1) x-4))
    (x-4 beta-0) (x-4 (mul (rec x-0) w x-1 x-2 l-0)) (x-4 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 x-2 l-0 (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-4 (mul (rec x-0) w x-1 x-2 l-0))
    (mul (rec x-0) w x-1 x-2 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) (rec l-1) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) (rec l-1) x-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l-0)))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-4))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 1167)
  (parent 812)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l x-2 x-3 x-4 l-0 x-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-4)
      (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) (rec l-0) x-5)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-4) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-5) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-4 x-5)
  (absent (x (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (y ltxb) (x-4 beta) (x-4 l-0)
    (l-0 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (l-0 (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) (rec l-0) x-5))
    (x-5 beta-0) (x-5 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (mul (rec x-0) w x-1 x-2 (rec x-3)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-4)
         (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) (rec l-0) x-5)))
      (send
        (cat (exp (gen) x-4)
          (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) (rec l-0) x-5))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-4))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
      (send (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-5))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 1168)
  (parent 812)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l l-0 x-2 x-3 l-1 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 l-0 (rec x-2) (rec x-3) (rec l-1) x-4)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4))
    (y ltxb) (x-3 beta) (x-3 (mul (rec x-0) w x-1 l-0 (rec x-2)))
    (x-3 l-1)
    (l-1 (mul (rec x-0) w x-1 l-0 (rec x-2) (rec x-3) (rec l-1) x-4))
    (x-4 beta-0) (x-4 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) w x-1 l-0 (rec x-2)))
    (mul (rec x-0) w x-1 l-0 (rec x-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 l-0 (rec x-2) (rec x-3) (rec l-1) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 l-0 (rec x-2) (rec x-3) (rec l-1) x-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-4))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l)))))
  (label 1169)
  (parent 812)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 x-1 l-1 x-2 l-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 x-1 l-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 x-1 l-1 (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) w x-0 x-1 l-1 (rec x-2) (rec l-2) x-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec l) w x-0 x-1 l-1)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l) w x-0 x-1 l-1 (rec l-2) x-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 x-1 l-1 x-3)) (y ltxb) (x-2 beta)
    (x-2 (mul (rec l) w x-0 x-1 l-1 (rec x-2) (rec l-2) x-3)) (x-2 l-2)
    (x-3 beta-0) (x-3 (mul (rec l) w x-0 x-1 l-1)) (x-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 x-1 l-1 (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 x-1 l-1 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-3 (mul (rec l) w x-0 x-1 l-1))
    (mul (rec l) w x-0 x-1 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 x-1 l-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 x-1 l-1 (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) w x-0 x-1 l-1 (rec x-2) (rec l-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) w x-0 x-1 l-1 (rec x-2) (rec l-2) x-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l) w x-0 x-1 l-1)))
      (send (cat (exp (gen) x-3) (mul (rec l) w x-0 x-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 1170)
  (parent 813)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 x-1 x-2 x-3 l-1 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec l) w x-0 x-1 (rec x-2) (rec x-3) (rec l-1) x-4)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-3) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec l) w x-0 x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4))
    (y ltxb) (x-3 beta)
    (x-3 (mul (rec l) w x-0 x-1 (rec x-2) (rec x-3) (rec l-1) x-4))
    (x-3 l-1) (l-1 (mul (rec l) w x-0 x-1 (rec x-2))) (x-4 beta-0)
    (x-4 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w x-0 x-1 (rec x-2)))
    (mul (rec l) w x-0 x-1 (rec x-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec l) w x-0 x-1 (rec x-2) (rec x-3) (rec l-1) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec l) w x-0 x-1 (rec x-2) (rec x-3) (rec l-1) x-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-3))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec l) w x-0 x-1 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul (rec l) w x-0 x-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-4))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 1171)
  (parent 813)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 x-2 l-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec x-2) (rec l-2) x-3)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3))
    (y ltxb) (x-2 beta) (x-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (x-2 (mul (rec l) w x-0 l-1 (rec x-1) (rec x-2) (rec l-2) x-3))
    (x-2 l-2) (x-3 beta-0) (x-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a b-1) (neq a b-0) (neq b a-0) (neq b-2 a-1)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec x-2) (rec l-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec x-2) (rec l-2) x-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-1 b-2 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0)))))
  (label 1172)
  (parent 813)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (y-0 x-1 y-1 x-2 y-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l)
  (uniq-gen x y x-2 y-2)
  (absent (x (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l))) (x l)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (y ltxb) (x-2 beta) (x-2 l) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (l (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (l (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (mul (rec x-0) w y-0 x-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1173)
  (parent 824)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (y-0 x-1 l x-2 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 l y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 x-1 l y-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 l (rec x-2) y-1 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1 l y-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w y-0 x-1 l y-1)) (y ltxb) (x-2 beta)
    (x-2 l-0) (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec x-0) w y-0 x-1 l))
    (y-1 l-0) (l-0 (mul (rec x-0) w y-0 x-1 l (rec x-2) y-1 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 x-1 l y-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 l y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec x-0) w y-0 x-1 l))
    (mul (rec x-0) w y-0 x-1 l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 x-1 l y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 l (rec x-2) y-1 (rec l-0))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 l (rec x-2) y-1 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l)))
      (send (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1174)
  (parent 824)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (y-0 y-1 l x-1 y-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 (rec y-1) l y-2 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w y-0 (rec y-1) l (rec x-1) y-2 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec x-0) w y-0 (rec y-1) l)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec x-0) w y-0 (rec y-1) l y-2 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l y-2))
    (y ltxb) (x-1 beta) (x-1 (mul (rec x-0) w y-0 (rec y-1) l))
    (x-1 l-0) (y-2 alpha) (y-2 chi-0) (y-2 l-0)
    (l-0 (mul (rec x-0) w y-0 (rec y-1) l (rec x-1) y-2 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 (rec y-1) l y-2 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w y-0 (rec y-1) l))
    (mul (rec x-0) w y-0 (rec y-1) l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w y-0 (rec y-1) l (rec x-1) y-2 (rec l-0))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w y-0 (rec y-1) l (rec x-1) y-2 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 (rec y-1) l)))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 (rec y-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1175)
  (parent 824)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (l x-1 y-0 x-2 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l) x-1 (rec y-0) (rec x-2) y-1 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w (rec l) x-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1 (rec l-0)))
    (x l-0) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec y-0) y-1)) (y ltxb)
    (x-2 beta) (x-2 l-0) (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec x-0) w (rec l) x-1 (rec y-0) (rec x-2) y-1 (rec l-0)))
    (y-1 l-0) (l-0 (mul (rec x-0) w (rec l) x-1 (rec y-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w (rec l) x-1 (rec y-0)))
    (mul (rec x-0) w (rec l) x-1 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l) x-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l) x-1 (rec y-0) (rec x-2) y-1
           (rec l-0))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l) x-1 (rec y-0) (rec x-2) y-1
            (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w (rec l) x-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) w (rec l) x-1 (rec y-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1176)
  (parent 825)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (l x-1 l-0 x-2 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l) x-1 l-0 y-0 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) y-0 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec x-0) w (rec l) x-1 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-1)
  (uniq-gen x y x-2 y-0)
  (absent (x (mul (rec x-0) w (rec l) x-1 l-0 y-0 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 y-0))
    (y ltxb) (x-2 beta) (x-2 l-1) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec x-0) w (rec l) x-1 l-0))
    (y-0 (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) y-0 (rec l-1)))
    (y-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w (rec l) x-1 l-0 y-0 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec x-0) w (rec l) x-1 l-0))
    (mul (rec x-0) w (rec l) x-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w (rec l) x-1 l-0 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) y-0 (rec l-1))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l) x-1 l-0 (rec x-2) y-0 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) x-1 l-0 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec x-0) w (rec l) x-1 l-0)))
      (send (cat (exp (gen) y-0) (mul (rec x-0) w (rec l) x-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1177)
  (parent 825)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 expt) (x-0 rndx) (w expt) (l y-0 l-0 x-1 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l) (rec y-0) l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w (rec l) (rec y-0) l-0 (rec x-1) y-1 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w (rec l) (rec y-0) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-1)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l) (rec y-0) l-0 y-1)) (y ltxb)
    (x-1 beta) (x-1 (mul (rec x-0) w (rec l) (rec y-0) l-0)) (x-1 l-1)
    (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec x-0) w (rec l) (rec y-0) l-0 (rec x-1) y-1 (rec l-1)))
    (y-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l) (rec y-0) l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w (rec l) (rec y-0) l-0))
    (mul (rec x-0) w (rec l) (rec y-0) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l) (rec y-0) l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w (rec l) (rec y-0) l-0 (rec x-1) y-1
           (rec l-1))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w (rec l) (rec y-0) l-0 (rec x-1) y-1
            (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l) (rec y-0) l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w (rec l) (rec y-0) l-0)))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) w (rec l) (rec y-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1178)
  (parent 825)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l x-0 y-1 x-1 y-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) x-0 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w y-0 (rec l) x-0 (rec y-1) y-2 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-1)
      (mul w y-0 (rec l) x-0 (rec y-1) (rec x-1) y-2 (rec l-0))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec l) x-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul w y-0 (rec l) x-0 (rec y-1) y-2 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) x-0 (rec y-1) y-2))
    (y ltxb) (x-1 beta)
    (x-1 (mul w y-0 (rec l) x-0 (rec y-1) (rec x-1) y-2 (rec l-0)))
    (x-1 l-0) (y-2 alpha) (y-2 chi-0) (y-2 l-0)
    (l-0 (mul w y-0 (rec l) x-0 (rec y-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 (rec l) x-0 (rec y-1) y-2 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) x-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul w y-0 (rec l) x-0 (rec y-1)))
    (mul w y-0 (rec l) x-0 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) x-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-1)
         (mul w y-0 (rec l) x-0 (rec y-1) (rec x-1) y-2 (rec l-0))))
      (send
        (cat (exp (gen) x-1)
          (mul w y-0 (rec l) x-0 (rec y-1) (rec x-1) y-2 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l) x-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l) x-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1179)
  (parent 826)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l x-0 l-0 x-1 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) x-0 l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l) x-0 l-0 y-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul w y-0 (rec l) x-0 l-0 (rec x-1) y-1 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec l) x-0 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-1)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul w y-0 (rec l) x-0 l-0 y-1 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) x-0 l-0 y-1)) (y ltxb) (x-1 beta)
    (x-1 (mul w y-0 (rec l) x-0 l-0 (rec x-1) y-1 (rec l-1))) (x-1 l-1)
    (y-1 alpha) (y-1 chi-0) (y-1 (mul w y-0 (rec l) x-0 l-0)) (y-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l) x-0 l-0 y-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) x-0 l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul w y-0 (rec l) x-0 l-0))
    (mul w y-0 (rec l) x-0 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) x-0 l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul w y-0 (rec l) x-0 l-0 (rec x-1) y-1 (rec l-1))))
      (send
        (cat (exp (gen) x-1)
          (mul w y-0 (rec l) x-0 l-0 (rec x-1) y-1 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) x-0 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l) x-0 l-0)))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec l) x-0 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1180)
  (parent 826)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi beta expt) (ltxb rndx)
    (alpha chi-0 w expt) (y-0 l y-1 l-0 x-0 y-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-0)
      (mul w y-0 (rec l) (rec y-1) l-0 (rec x-0) y-2 (rec l-1))))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-1)
  (uniq-gen x y x-0 y-2)
  (absent (x (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2))
    (y ltxb) (x-0 beta) (x-0 (mul w y-0 (rec l) (rec y-1) l-0))
    (x-0 (mul w y-0 (rec l) (rec y-1) l-0 (rec x-0) y-2 (rec l-1)))
    (x-0 l-1) (y-2 alpha) (y-2 chi-0) (y-2 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 a)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul w y-0 (rec l) (rec y-1) l-0))
    (mul w y-0 (rec l) (rec y-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-0)
         (mul w y-0 (rec l) (rec y-1) l-0 (rec x-0) y-2 (rec l-1))))
      (send
        (cat (exp (gen) x-0)
          (mul w y-0 (rec l) (rec y-1) l-0 (rec x-0) y-2 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0)))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l) (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-2 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1181)
  (parent 826)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 l rndx) (w expt)
    (l-0 x-1 l-1 x-2 l-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) y-0)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec x-0) (rec l) w x-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-2 y-0)
  (absent (x (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) y-0)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 y-0))
    (y ltxb) (x-2 beta) (x-2 l-2) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec x-0) (rec l) w x-1 l-1))
    (y-0 (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) y-0))
    (y-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) y-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec x-0) (rec l) w x-1 l-1))
    (mul (rec x-0) (rec l) w x-1 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) (rec l) w x-1 l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 (rec l-2) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) y-0)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) (rec l) w x-1 l-1 (rec x-2) (rec l-2) y-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec x-0) (rec l) w x-1 l-1)))
      (send (cat (exp (gen) y-0) (mul (rec x-0) (rec l) w x-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 1182)
  (parent 829)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 l rndx) (w expt)
    (l-0 x-1 y-0 x-2 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec l-1) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec x-2) (rec l-1) y-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) (rec l) w x-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec l-1) y-1))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec y-0) y-1)) (y ltxb)
    (x-2 beta) (x-2 l-1) (l-1 (mul (rec x-0) (rec l) w x-1 (rec y-0)))
    (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec x-2) (rec l-1) y-1))
    (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec l-1) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) (rec l) w x-1 (rec y-0)))
    (mul (rec x-0) (rec l) w x-1 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) (rec l) w x-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec x-2) (rec l-1)
           y-1)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) (rec l) w x-1 (rec y-0) (rec x-2) (rec l-1)
            y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) (rec l) w x-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) (rec l) w x-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 1183)
  (parent 829)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 l rndx) (w expt)
    (l-0 l-1 y-0 x-1 l-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec x-1) (rec l-2) y-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) (rec l) w l-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec l-2) y-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec y-0) y-1)) (y ltxb)
    (x-1 beta) (x-1 (mul (rec x-0) (rec l) w l-1 (rec y-0))) (x-1 l-2)
    (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec x-1) (rec l-2) y-1))
    (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) (rec l) w l-1 (rec y-0)))
    (mul (rec x-0) (rec l) w l-1 (rec y-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) (rec l) w l-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec x-1) (rec l-2)
           y-1)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) (rec l) w l-1 (rec y-0) (rec x-1) (rec l-2)
            y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) (rec l) w l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) (rec l) w l-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec x-0) (rec l) w l-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 1184)
  (parent 829)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l x-1 l-0 x-2 l-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 x-1 l-0 (rec l-1) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) (rec l-1) y-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1 l-0 (rec l-1) y-1)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1)) (y ltxb)
    (x-2 beta) (x-2 l-1)
    (l-1 (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) (rec l-1) y-1))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec x-0) w y-0 x-1 l-0)) (y-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 x-1 l-0 (rec l-1) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec x-0) w y-0 x-1 l-0))
    (mul (rec x-0) w y-0 x-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) (rec l-1) y-1)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) (rec l-1) y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0)))
      (send (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l)))))
  (label 1185)
  (parent 830)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l x-1 y-1 x-2 l-0 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) (rec l-0) y-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-2 y-2)
  (absent (x (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (y ltxb) (x-2 beta) (x-2 l-0)
    (l-0 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (l-0 (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) (rec l-0) y-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (mul (rec x-0) w y-0 x-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) (rec l-0) y-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) (rec l-0) y-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-2))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l)))))
  (label 1186)
  (parent 830)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l l-0 y-1 x-1 l-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w y-0 l-0 (rec y-1) (rec x-1) (rec l-1) y-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2))
    (y ltxb) (x-1 beta) (x-1 (mul (rec x-0) w y-0 l-0 (rec y-1)))
    (x-1 l-1)
    (l-1 (mul (rec x-0) w y-0 l-0 (rec y-1) (rec x-1) (rec l-1) y-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-2 l))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w y-0 l-0 (rec y-1)))
    (mul (rec x-0) w y-0 l-0 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w y-0 l-0 (rec y-1) (rec x-1) (rec l-1) y-2)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w y-0 l-0 (rec y-1) (rec x-1) (rec l-1) y-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l)))))
  (label 1187)
  (parent 830)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 x-0 l-1 x-1 l-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 x-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 x-0 l-1 (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w y-0 x-0 l-1 (rec x-1) (rec l-2) y-1)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0 x-0 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec l) w y-0 x-0 l-1 (rec l-2) y-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 x-0 l-1 y-1)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w y-0 x-0 l-1 (rec x-1) (rec l-2) y-1)) (x-1 l-2)
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec l) w y-0 x-0 l-1)) (y-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 x-0 l-1 (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 x-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0 x-0 l-1))
    (mul (rec l) w y-0 x-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 x-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 x-0 l-1 (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w y-0 x-0 l-1 (rec x-1) (rec l-2) y-1)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w y-0 x-0 l-1 (rec x-1) (rec l-2) y-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 x-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 x-0 l-1)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0 x-0 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 1188)
  (parent 831)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 x-0 y-1 x-1 l-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w y-0 x-0 (rec y-1) (rec x-1) (rec l-1) y-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 x-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2))
    (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w y-0 x-0 (rec y-1) (rec x-1) (rec l-1) y-2))
    (x-1 l-1) (l-1 (mul (rec l) w y-0 x-0 (rec y-1))) (y-2 alpha)
    (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w y-0 x-0 (rec y-1)))
    (mul (rec l) w y-0 x-0 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w y-0 x-0 (rec y-1) (rec x-1) (rec l-1) y-2)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w y-0 x-0 (rec y-1) (rec x-1) (rec l-1) y-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-1))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 x-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 x-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 1189)
  (parent 831)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 b-1 a-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 y-1 x-0 l-2 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-0)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec x-0) (rec l-2) y-2)))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-0) (beta beta))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-1) (b b-2)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-0 y-2)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
    (y ltxb) (x-0 beta) (x-0 (mul (rec l) w y-0 l-1 (rec y-1)))
    (x-0 (mul (rec l) w y-0 l-1 (rec y-1) (rec x-0) (rec l-2) y-2))
    (x-0 l-2) (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-2 l-0))
  (facts (neq b-2 a-1) (neq a b-1) (neq a b-0) (neq b a-0) (neq a-1 b-2)
    (neq b-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec x-0) (rec l-2) y-2)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec x-0) (rec l-2) y-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-2 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-2 a-1 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-1 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-2 l-0)))))
  (label 1190)
  (parent 831)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 x-2 x-3 x-4 x-5 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-4)
      (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-4) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-5) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-4 x-5)
  (absent (x (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (y ltxb) (x-4 beta) (x-4 l) (x-5 beta-0) (x-5 l-0)
    (l-0 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (l-0 (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (mul (rec x-0) w x-1 x-2 (rec x-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 x-2 (rec x-3) x-5 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-4)
         (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l-0))))
      (send
        (cat (exp (gen) x-4)
          (mul (rec x-0) w x-1 x-2 (rec x-3) (rec x-4) x-5 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-4))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
      (send (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-5)))))
  (label 1191)
  (parent 845)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 x-2 l-0 x-3 x-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 x-2 l-0 x-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) x-4 (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 x-2 l-0 x-4 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4)) (y ltxb)
    (x-3 beta) (x-3 l) (x-4 beta-0) (x-4 (mul (rec x-0) w x-1 x-2 l-0))
    (x-4 l-1)
    (l-1 (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) x-4 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 x-2 l-0 x-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-4 (mul (rec x-0) w x-1 x-2 l-0))
    (mul (rec x-0) w x-1 x-2 l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 x-2 l-0 x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) x-4 (rec l-1))))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 x-2 l-0 (rec x-3) x-4 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 l-0 x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l-0)))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 x-2 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1192)
  (parent 845)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 x-2 l-0 x-3 x-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l-0 x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 (rec x-2) l-0 x-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 (rec x-2) l-0 (rec x-3) x-4 (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec x-0) w x-1 (rec x-2) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 (rec x-2) l-0 x-4 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l-0 x-4))
    (y ltxb) (x-3 beta) (x-3 l)
    (x-3 (mul (rec x-0) w x-1 (rec x-2) l-0)) (x-4 beta-0) (x-4 l-1)
    (l-1 (mul (rec x-0) w x-1 (rec x-2) l-0 (rec x-3) x-4 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 (rec x-2) l-0 x-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l-0 x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) w x-1 (rec x-2) l-0))
    (mul (rec x-0) w x-1 (rec x-2) l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 (rec x-2) l-0 x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 (rec x-2) l-0 x-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 (rec x-2) l-0 (rec x-3) x-4 (rec l-1))))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 (rec x-2) l-0 (rec x-3) x-4 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 (rec x-2) l-0 x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 (rec x-2) l-0)))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 (rec x-2) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1193)
  (parent 845)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (l-0 x-1 x-2 x-3 x-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w (rec l-0) x-1 (rec x-2) (rec x-3) x-4
        (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec x-0) w (rec l-0) x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
    (y ltxb) (x-3 beta) (x-3 l) (x-4 beta-0)
    (x-4
      (mul (rec x-0) w (rec l-0) x-1 (rec x-2) (rec x-3) x-4 (rec l-1)))
    (x-4 l-1) (l-1 (mul (rec x-0) w (rec l-0) x-1 (rec x-2))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed
      (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) w (rec l-0) x-1 (rec x-2)))
    (mul (rec x-0) w (rec l-0) x-1 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w (rec l-0) x-1 (rec x-2) (rec x-3) x-4
           (rec l-1))))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w (rec l-0) x-1 (rec x-2) (rec x-3) x-4
            (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-4) (mul (rec x-0) w (rec l-0) x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-4)
          (mul (rec x-0) w (rec l-0) x-1 (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1194)
  (parent 846)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (l-0 x-1 l-1 x-2 x-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w (rec l-0) x-1 l-1 x-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w (rec l-0) x-1 l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w (rec l-0) x-1 l-1 x-3 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 x-3))
    (y ltxb) (x-2 beta) (x-2 l) (x-3 beta-0)
    (x-3 (mul (rec x-0) w (rec l-0) x-1 l-1))
    (x-3 (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2)))
    (x-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w (rec l-0) x-1 l-1 x-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) w (rec l-0) x-1 l-1))
    (mul (rec x-0) w (rec l-0) x-1 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l-0) x-1 l-1 x-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec x-0) w (rec l-0) x-1 l-1)))
      (send (cat (exp (gen) x-3) (mul (rec x-0) w (rec l-0) x-1 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1195)
  (parent 846)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (l-0 x-1 l-1 x-2 x-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l-0) (rec x-1) l-1 (rec x-2) x-3
        (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec x-0) w (rec l-0) (rec x-1) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3 (rec l-2)))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
    (y ltxb) (x-2 beta) (x-2 l)
    (x-2 (mul (rec x-0) w (rec l-0) (rec x-1) l-1)) (x-3 beta-0)
    (x-3
      (mul (rec x-0) w (rec l-0) (rec x-1) l-1 (rec x-2) x-3 (rec l-2)))
    (x-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l-0) (rec x-1) l-1 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec x-0) w (rec l-0) (rec x-1) l-1))
    (mul (rec x-0) w (rec l-0) (rec x-1) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l-0) (rec x-1) l-1 (rec x-2) x-3
           (rec l-2))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l-0) (rec x-1) l-1 (rec x-2) x-3
            (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) (rec x-1) l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec x-0) w (rec l-0) (rec x-1) l-1)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w (rec l-0) (rec x-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1196)
  (parent 846)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 w expt) (x-0 l-0 x-1 x-2 x-3 x-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l-0) x-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l-0) x-1 (rec x-2) x-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul w x-0 (rec l-0) x-1 (rec x-2) (rec x-3) x-4 (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul w x-0 (rec l-0) x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul w x-0 (rec l-0) x-1 (rec x-2) x-4 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l-0) x-1 (rec x-2) x-4))
    (y ltxb) (x-3 beta) (x-3 l)
    (x-3 (mul w x-0 (rec l-0) x-1 (rec x-2) (rec x-3) x-4 (rec l-1)))
    (x-4 beta-0) (x-4 l-1) (l-1 (mul w x-0 (rec l-0) x-1 (rec x-2))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l-0) x-1 (rec x-2) x-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w x-0 (rec l-0) x-1 (rec x-2)))
    (mul w x-0 (rec l-0) x-1 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w x-0 (rec l-0) x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w x-0 (rec l-0) x-1 (rec x-2) x-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul w x-0 (rec l-0) x-1 (rec x-2) (rec x-3) x-4 (rec l-1))))
      (send
        (cat (exp (gen) x-3)
          (mul w x-0 (rec l-0) x-1 (rec x-2) (rec x-3) x-4 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul w x-0 (rec l-0) x-1 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul w x-0 (rec l-0) x-1 (rec x-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-4)))))
  (label 1197)
  (parent 847)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 w expt) (x-0 l-0 x-1 l-1 x-2 x-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w x-0 (rec l-0) x-1 l-1 x-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul w x-0 (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul w x-0 (rec l-0) x-1 l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul w x-0 (rec l-0) x-1 l-1 x-3 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1 x-3)) (y ltxb)
    (x-2 beta) (x-2 l)
    (x-2 (mul w x-0 (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2)))
    (x-3 beta-0) (x-3 (mul w x-0 (rec l-0) x-1 l-1)) (x-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w x-0 (rec l-0) x-1 l-1 x-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul w x-0 (rec l-0) x-1 l-1))
    (mul w x-0 (rec l-0) x-1 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l-0) x-1 l-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul w x-0 (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2))))
      (send
        (cat (exp (gen) x-2)
          (mul w x-0 (rec l-0) x-1 l-1 (rec x-2) x-3 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) x-1 l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul w x-0 (rec l-0) x-1 l-1)))
      (send (cat (exp (gen) x-3) (mul w x-0 (rec l-0) x-1 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1198)
  (parent 847)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (beta-0 w expt) (x-0 l-0 x-1 l-1 x-2 x-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w x-0 (rec l-0) (rec x-1) l-1 x-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul w x-0 (rec l-0) (rec x-1) l-1 (rec x-2) x-3 (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul w x-0 (rec l-0) (rec x-1) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul w x-0 (rec l-0) (rec x-1) l-1 x-3 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-3))
    (y ltxb) (x-2 beta) (x-2 l)
    (x-2 (mul w x-0 (rec l-0) (rec x-1) l-1))
    (x-2 (mul w x-0 (rec l-0) (rec x-1) l-1 (rec x-2) x-3 (rec l-2)))
    (x-3 beta-0) (x-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w x-0 (rec l-0) (rec x-1) l-1 x-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul w x-0 (rec l-0) (rec x-1) l-1))
    (mul w x-0 (rec l-0) (rec x-1) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w x-0 (rec l-0) (rec x-1) l-1 x-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul w x-0 (rec l-0) (rec x-1) l-1 (rec x-2) x-3 (rec l-2))))
      (send
        (cat (exp (gen) x-2)
          (mul w x-0 (rec l-0) (rec x-1) l-1 (rec x-2) x-3 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul w x-0 (rec l-0) (rec x-1) l-1)))
      (send (cat (exp (gen) x-3) (mul w x-0 (rec l-0) (rec x-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-3)))))
  (label 1199)
  (parent 847)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 rndx) (w expt)
    (l-0 l-1 x-1 l-2 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 x-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec l) (rec x-0) w l-1 x-1)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) x-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 x-3))
    (y ltxb) (x-2 beta) (x-2 l-0) (x-3 beta-0)
    (x-3 (mul (rec l) (rec x-0) w l-1 x-1))
    (x-3 (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) x-3))
    (x-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec l) (rec x-0) w l-1 x-1))
    (mul (rec l) (rec x-0) w l-1 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l) (rec x-0) w l-1 x-1)))
      (send (cat (exp (gen) x-3) (mul (rec l) (rec x-0) w l-1 x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-3)))))
  (label 1200)
  (parent 851)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 rndx) (w expt)
    (l-0 l-1 x-1 l-2 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec x-1) x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) (rec x-2) x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec l) (rec x-0) w l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) x-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec x-1) x-3)) (y ltxb)
    (x-2 beta) (x-2 (mul (rec l) (rec x-0) w l-1 (rec x-1))) (x-2 l-0)
    (x-3 beta-0)
    (x-3
      (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) (rec x-2) x-3))
    (x-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec x-1) x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec l) (rec x-0) w l-1 (rec x-1)))
    (mul (rec l) (rec x-0) w l-1 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec x-1) x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) (rec x-2)
           x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) (rec x-0) w l-1 (rec x-1) (rec l-2) (rec x-2)
            x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec l) (rec x-0) w l-1 (rec x-1))))
      (send
        (cat (exp (gen) x-3) (mul (rec l) (rec x-0) w l-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-3)))))
  (label 1201)
  (parent 851)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 rndx) (w expt)
    (l-0 x-1 x-2 l-1 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) (rec x-3) x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec l) (rec x-0) w x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) x-4))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec x-2) x-4)) (y ltxb)
    (l-1 (mul (rec l) (rec x-0) w x-1 (rec x-2))) (x-3 beta) (x-3 l-0)
    (x-4 beta-0)
    (x-4
      (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) (rec x-3) x-4))
    (x-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec x-0) w x-1 (rec x-2)))
    (mul (rec l) (rec x-0) w x-1 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) (rec x-3)
           x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec l) (rec x-0) w x-1 (rec x-2) (rec l-1) (rec x-3)
            x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-4) (mul (rec l) (rec x-0) w x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-4) (mul (rec l) (rec x-0) w x-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-4)))))
  (label 1202)
  (parent 851)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 x-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 x-1 (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) w x-0 l-1 x-1 (rec l-2) (rec x-2) x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 x-1)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l) w x-0 l-1 x-1 (rec l-2) x-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 x-1 x-3)) (y ltxb) (x-2 beta)
    (x-2 (mul (rec l) w x-0 l-1 x-1 (rec l-2) (rec x-2) x-3)) (x-2 l-0)
    (x-3 beta-0) (x-3 (mul (rec l) w x-0 l-1 x-1)) (x-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 x-1 (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 x-1 x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-3 (mul (rec l) w x-0 l-1 x-1))
    (mul (rec l) w x-0 l-1 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 x-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 x-1 (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) w x-0 l-1 x-1 (rec l-2) (rec x-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) w x-0 l-1 x-1 (rec l-2) (rec x-2) x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 x-1)))
      (send (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-3)))))
  (label 1203)
  (parent 852)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec x-2) x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-2)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3))
    (y ltxb) (x-2 beta) (x-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (x-2 (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec x-2) x-3))
    (x-2 l-0) (x-3 beta-0) (x-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec x-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec x-2) x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-3) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-3)))))
  (label 1204)
  (parent 852)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l rndx) (w expt)
    (x-0 l-0 x-1 x-2 l-1 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) (rec x-3) x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec l) w x-0 x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l-0 l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4))
    (y ltxb) (l-1 (mul (rec l) w x-0 x-1 (rec x-2))) (x-3 beta)
    (x-3 (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) (rec x-3) x-4))
    (x-3 l-0) (x-4 beta-0) (x-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w x-0 x-1 (rec x-2)))
    (mul (rec l) w x-0 x-1 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) (rec x-3) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec l) w x-0 x-1 (rec x-2) (rec l-1) (rec x-3) x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec l) w x-0 x-1 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul (rec l) w x-0 x-1 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-4)))))
  (label 1205)
  (parent 852)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l l-0 x-2 l-1 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2 x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) (rec x-3) x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 x-2)))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) x-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2 x-4)) (y ltxb)
    (l-1 (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) (rec x-3) x-4))
    (x-3 beta) (x-3 l) (x-4 beta-0) (x-4 (mul (rec x-0) w x-1 l-0 x-2))
    (x-4 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2 x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-4 (mul (rec x-0) w x-1 l-0 x-2))
    (mul (rec x-0) w x-1 l-0 x-2) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 l-0 x-2 x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) (rec x-3) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 l-0 x-2 (rec l-1) (rec x-3) x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l-0 x-2 x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 x-2)))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 x-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-4)))))
  (label 1206)
  (parent 853)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (l x-0 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) l-0))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 2) (0 1)) ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-0 x-1)
  (absent (x x-1) (x l-0) (y chi) (y (mul (rec ltxb) x-1 l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l) (l-0 (mul (rec x-0) x-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-1 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) x-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-1 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) l-0)) (send (cat (exp (gen) x-1) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-1)))))
  (label 1207)
  (parent 853)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l l-0 x-2 l-1 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) (rec x-3) x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-4) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4))
    (y ltxb)
    (l-1 (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) (rec x-3) x-4))
    (x-3 beta) (x-3 (mul (rec x-0) w x-1 l-0 (rec x-2))) (x-3 l)
    (x-4 beta-0) (x-4 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) w x-1 l-0 (rec x-2)))
    (mul (rec x-0) w x-1 l-0 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 l-0 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) (rec x-3) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 l-0 (rec x-2) (rec l-1) (rec x-3) x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l-0 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-0 (rec x-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-4)))))
  (label 1208)
  (parent 853)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l x-2 x-3 l-0 x-4 x-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-4)
      (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) (rec x-4) x-5)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-4) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
  (defstrand init 3 (na na-2) (a a-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-5) (beta beta-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0)
  (uniq-gen x y x-4 x-5)
  (absent (x (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (y ltxb) (l-0 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (l-0 (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) (rec x-4) x-5))
    (x-4 beta) (x-4 l) (x-5 beta-0) (x-5 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (mul (rec x-0) w x-1 x-2 (rec x-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) x-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-4)
         (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) (rec x-4) x-5)))
      (send
        (cat (exp (gen) x-4)
          (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-0) (rec x-4) x-5))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-4))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
      (send (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 a-1 b-2 (exp (gen) x-5)))))
  (label 1209)
  (parent 853)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 rndx) (w expt)
    (l-1 l-2 x-1 l-3 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec l-0) (rec x-0) w l-2 x-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-3)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) x-3)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 x-3))
    (y ltxb) (x-2 beta) (x-2 l) (x-3 beta-0)
    (x-3 (mul (rec l-0) (rec x-0) w l-2 x-1))
    (x-3 (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) x-3))
    (x-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec l-0) (rec x-0) w l-2 x-1))
    (mul (rec l-0) (rec x-0) w l-2 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l-0) (rec x-0) w l-2 x-1)))
      (send (cat (exp (gen) x-3) (mul (rec l-0) (rec x-0) w l-2 x-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-3))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1210)
  (parent 857)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 rndx) (w expt)
    (l-1 l-2 x-1 l-3 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) (rec x-2)
        x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec l-0) (rec x-0) w l-2 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-3)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) x-3))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
    (y ltxb) (x-2 beta) (x-2 l)
    (x-2 (mul (rec l-0) (rec x-0) w l-2 (rec x-1))) (x-3 beta-0)
    (x-3
      (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) (rec x-2) x-3))
    (x-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed
      (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) x-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec x-1) x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec l-0) (rec x-0) w l-2 (rec x-1)))
    (mul (rec l-0) (rec x-0) w l-2 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) (rec x-2)
           x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) (rec x-0) w l-2 (rec x-1) (rec l-3) (rec x-2)
            x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-3) (mul (rec l-0) (rec x-0) w l-2 (rec x-1))))
      (send
        (cat (exp (gen) x-3)
          (mul (rec l-0) (rec x-0) w l-2 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-3))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1211)
  (parent 857)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 rndx) (w expt)
    (l-1 x-1 x-2 l-2 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) (rec x-3)
        x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec l-0) (rec x-0) w x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-2)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) x-4))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
    (y ltxb) (l-2 (mul (rec l-0) (rec x-0) w x-1 (rec x-2))) (x-3 beta)
    (x-3 l) (x-4 beta-0)
    (x-4
      (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) (rec x-3) x-4))
    (x-4 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) x-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) (rec x-0) w x-1 (rec x-2)))
    (mul (rec l-0) (rec x-0) w x-1 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) (rec x-3)
           x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec l-0) (rec x-0) w x-1 (rec x-2) (rec l-2) (rec x-3)
            x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-4) (mul (rec l-0) (rec x-0) w x-1 (rec x-2))))
      (send
        (cat (exp (gen) x-4)
          (mul (rec l-0) (rec x-0) w x-1 (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-4))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1212)
  (parent 857)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 rndx) (w expt)
    (x-0 l-1 l-2 x-1 l-3 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1 x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) (rec x-2) x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-3) (mul (rec l-0) w x-0 l-2 x-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-3)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) x-3)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1 x-3)) (y ltxb)
    (x-2 beta) (x-2 l)
    (x-2 (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) (rec x-2) x-3))
    (x-3 beta-0) (x-3 (mul (rec l-0) w x-0 l-2 x-1)) (x-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1 x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec l-0) w x-0 l-2 x-1))
    (mul (rec l-0) w x-0 l-2 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) w x-0 l-2 x-1 x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) (rec x-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) w x-0 l-2 x-1 (rec l-3) (rec x-2) x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 l-2 x-1 x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l-0) w x-0 l-2 x-1)))
      (send (cat (exp (gen) x-3) (mul (rec l-0) w x-0 l-2 x-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-3))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1213)
  (parent 858)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 rndx) (w expt)
    (x-0 l-1 l-2 x-1 l-3 x-2 x-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec x-2) x-3)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-3) (mul (rec l-0) w x-0 l-2 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-3) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-3)
  (uniq-gen x y x-2 x-3)
  (absent (x (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-3)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-3))
    (y ltxb) (x-2 beta) (x-2 l)
    (x-2 (mul (rec l-0) w x-0 l-2 (rec x-1)))
    (x-2 (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec x-2) x-3))
    (x-3 beta-0) (x-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-2 (mul (rec l-0) w x-0 l-2 (rec x-1)))
    (mul (rec l-0) w x-0 l-2 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec x-2) x-3)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec x-2) x-3))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-3) (mul (rec l-0) w x-0 l-2 (rec x-1))))
      (send (cat (exp (gen) x-3) (mul (rec l-0) w x-0 l-2 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-3))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1214)
  (parent 858)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 rndx) (w expt)
    (x-0 l-1 x-1 x-2 l-2 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w x-0 x-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) (rec x-3) x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec l-0) w x-0 x-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-1 l-2)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) x-4)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l-0) w x-0 x-1 (rec x-2) x-4))
    (y ltxb) (l-2 (mul (rec l-0) w x-0 x-1 (rec x-2))) (x-3 beta)
    (x-3 l)
    (x-3 (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) (rec x-3) x-4))
    (x-4 beta-0) (x-4 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 x-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) w x-0 x-1 (rec x-2)))
    (mul (rec l-0) w x-0 x-1 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w x-0 x-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) (rec x-3) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec l-0) w x-0 x-1 (rec x-2) (rec l-2) (rec x-3) x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 x-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec l-0) w x-0 x-1 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul (rec l-0) w x-0 x-1 (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-4))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1215)
  (parent 858)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l-0 l-1 x-2 l-2 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2 x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) (rec x-3) x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-1 x-2)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-2)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) x-4)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2 x-4)) (y ltxb)
    (l-2 (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) (rec x-3) x-4))
    (x-3 beta) (x-3 l) (x-4 beta-0) (x-4 (mul (rec x-0) w x-1 l-1 x-2))
    (x-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2 x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-4 (mul (rec x-0) w x-1 l-1 x-2))
    (mul (rec x-0) w x-1 l-1 x-2) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w x-1 l-1 x-2 x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) (rec x-3) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 l-1 x-2 (rec l-2) (rec x-3) x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l-1 x-2 x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-1 x-2)))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-1 x-2))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-4))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1216)
  (parent 859)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (l-0 x-0 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta x-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) x-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) l-1))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-0 x-1)
  (absent (x x-1) (x l-1) (y chi) (y (mul (rec ltxb) x-1 l-1)) (y ltxb)
    (x-0 beta) (x-0 l) (x-1 beta-0) (x-1 l-0) (l-1 (mul (rec x-0) x-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed x-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) x-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) x-1)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) l-1)) (send (cat (exp (gen) x-1) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1217)
  (parent 859)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l-0 l-1 x-2 l-2 x-3 x-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 l-1 (rec x-2) x-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) x-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-3)
      (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) (rec x-3) x-4)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-3) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-1 (rec x-2))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-4) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-2)
  (uniq-gen x y x-3 x-4)
  (absent (x (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) x-4)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 l-1 (rec x-2) x-4))
    (y ltxb)
    (l-2 (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) (rec x-3) x-4))
    (x-3 beta) (x-3 l) (x-3 (mul (rec x-0) w x-1 l-1 (rec x-2)))
    (x-4 beta-0) (x-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) x-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 l-1 (rec x-2) x-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-3 (mul (rec x-0) w x-1 l-1 (rec x-2)))
    (mul (rec x-0) w x-1 l-1 (rec x-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 l-1 (rec x-2) x-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) x-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-3)
         (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) (rec x-3) x-4)))
      (send
        (cat (exp (gen) x-3)
          (mul (rec x-0) w x-1 l-1 (rec x-2) (rec l-2) (rec x-3) x-4))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-3))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 l-1 (rec x-2) x-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-1 (rec x-2))))
      (send (cat (exp (gen) x-4) (mul (rec x-0) w x-1 l-1 (rec x-2)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-4))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1218)
  (parent 859)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (beta-0 expt) (x-0 rndx) (w expt)
    (x-1 l-0 x-2 x-3 l-1 x-4 x-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) x-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-4)
      (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) (rec x-4) x-5)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-4) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-5) (beta beta-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 na-2 l l-0 l-1)
  (uniq-gen x y x-4 x-5)
  (absent (x (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) x-5)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
    (y ltxb) (l-1 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (l-1 (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) (rec x-4) x-5))
    (x-4 beta) (x-4 l) (x-5 beta-0) (x-5 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) x-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) w x-1 x-2 (rec x-3)))
    (mul (rec x-0) w x-1 x-2 (rec x-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w x-1 x-2 (rec x-3) x-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) x-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-4)
         (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) (rec x-4) x-5)))
      (send
        (cat (exp (gen) x-4)
          (mul (rec x-0) w x-1 x-2 (rec x-3) (rec l-1) (rec x-4) x-5))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-4))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w x-1 x-2 (rec x-3) x-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3))))
      (send (cat (exp (gen) x-5) (mul (rec x-0) w x-1 x-2 (rec x-3)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta-0) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-5))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1219)
  (parent 859)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 x-1 y-1 x-2 y-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l-0))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-2 y-2)
  (absent (x (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (y ltxb) (x-2 beta) (x-2 l) (y-2 alpha) (y-2 chi-0) (y-2 l-0)
    (l-0 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (l-0 (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (mul (rec x-0) w y-0 x-1 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 x-1 (rec y-1) y-2 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l-0))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 (rec y-1) (rec x-2) y-2 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1220)
  (parent 871)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 x-1 l-0 x-2 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 x-1 l-0 y-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) y-1 (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) w y-0 x-1 l-0 y-1 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1)) (y ltxb)
    (x-2 beta) (x-2 l) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec x-0) w y-0 x-1 l-0)) (y-1 l-1)
    (l-1 (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) y-1 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 x-1 l-0 y-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec x-0) w y-0 x-1 l-0))
    (mul (rec x-0) w y-0 x-1 l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 x-1 l-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) y-1 (rec l-1))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 l-0 (rec x-2) y-1 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 l-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0)))
      (send (cat (exp (gen) y-1) (mul (rec x-0) w y-0 x-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1221)
  (parent 871)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 y-1 l-0 x-1 y-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l-0 y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 (rec y-1) l-0 y-2 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w y-0 (rec y-1) l-0 (rec x-1) y-2 (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 (rec y-1) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec x-0) w y-0 (rec y-1) l-0 y-2 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l-0 y-2))
    (y ltxb) (x-1 beta) (x-1 l)
    (x-1 (mul (rec x-0) w y-0 (rec y-1) l-0)) (y-2 alpha) (y-2 chi-0)
    (y-2 l-1)
    (l-1 (mul (rec x-0) w y-0 (rec y-1) l-0 (rec x-1) y-2 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 (rec y-1) l-0 y-2 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l-0 y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w y-0 (rec y-1) l-0))
    (mul (rec x-0) w y-0 (rec y-1) l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 (rec y-1) l-0 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 (rec y-1) l-0 y-2 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w y-0 (rec y-1) l-0 (rec x-1) y-2 (rec l-1))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w y-0 (rec y-1) l-0 (rec x-1) y-2 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 (rec y-1) l-0 y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 (rec y-1) l-0)))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1222)
  (parent 871)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (l-0 x-1 y-0 x-2 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l-0) x-1 (rec y-0) (rec x-2) y-1
        (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w (rec l-0) x-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
    (y ltxb) (x-2 beta) (x-2 l) (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec x-0) w (rec l-0) x-1 (rec y-0) (rec x-2) y-1 (rec l-1)))
    (y-1 l-1) (l-1 (mul (rec x-0) w (rec l-0) x-1 (rec y-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed
      (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) w (rec l-0) x-1 (rec y-0)))
    (mul (rec x-0) w (rec l-0) x-1 (rec y-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l-0) x-1 (rec y-0) (rec x-2) y-1
           (rec l-1))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l-0) x-1 (rec y-0) (rec x-2) y-1
            (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w (rec l-0) x-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec x-0) w (rec l-0) x-1 (rec y-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1223)
  (parent 872)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (l-0 x-1 l-1 x-2 y-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 y-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w (rec l-0) x-1 l-1 y-0 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) y-0 (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec x-0) w (rec l-0) x-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-2)
  (uniq-gen x y x-2 y-0)
  (absent (x (mul (rec x-0) w (rec l-0) x-1 l-1 y-0 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 y-0))
    (y ltxb) (x-2 beta) (x-2 l) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec x-0) w (rec l-0) x-1 l-1))
    (y-0 (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) y-0 (rec l-2)))
    (y-0 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w (rec l-0) x-1 l-1 y-0 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 y-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec x-0) w (rec l-0) x-1 l-1))
    (mul (rec x-0) w (rec l-0) x-1 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l-0) x-1 l-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l-0) x-1 l-1 y-0 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) y-0 (rec l-2))))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w (rec l-0) x-1 l-1 (rec x-2) y-0 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) x-1 l-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec x-0) w (rec l-0) x-1 l-1)))
      (send (cat (exp (gen) y-0) (mul (rec x-0) w (rec l-0) x-1 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1224)
  (parent 872)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (l-0 y-0 l-1 x-1 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w (rec l-0) (rec y-0) l-1 (rec x-1) y-1
        (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec x-0) w (rec l-0) (rec y-0) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-2)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1 (rec l-2)))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
    (y ltxb) (x-1 beta) (x-1 l)
    (x-1 (mul (rec x-0) w (rec l-0) (rec y-0) l-1)) (y-1 alpha)
    (y-1 chi-0)
    (y-1
      (mul (rec x-0) w (rec l-0) (rec y-0) l-1 (rec x-1) y-1 (rec l-2)))
    (y-1 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec x-0) w (rec l-0) (rec y-0) l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w (rec l-0) (rec y-0) l-1))
    (mul (rec x-0) w (rec l-0) (rec y-0) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w (rec l-0) (rec y-0) l-1 (rec x-1) y-1
           (rec l-2))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w (rec l-0) (rec y-0) l-1 (rec x-1) y-1
            (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w (rec l-0) (rec y-0) l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec x-0) w (rec l-0) (rec y-0) l-1)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec x-0) w (rec l-0) (rec y-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1225)
  (parent 872)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 w expt)
    (y-0 l-0 x-0 y-1 x-1 y-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l-0) x-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l-0) x-0 (rec y-1) y-2 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul w y-0 (rec l-0) x-0 (rec y-1) (rec x-1) y-2 (rec l-1))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul w y-0 (rec l-0) x-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul w y-0 (rec l-0) x-0 (rec y-1) y-2 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l-0) x-0 (rec y-1) y-2))
    (y ltxb) (x-1 beta) (x-1 l)
    (x-1 (mul w y-0 (rec l-0) x-0 (rec y-1) (rec x-1) y-2 (rec l-1)))
    (y-2 alpha) (y-2 chi-0) (y-2 l-1)
    (l-1 (mul w y-0 (rec l-0) x-0 (rec y-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l-0) x-0 (rec y-1) y-2 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) x-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w y-0 (rec l-0) x-0 (rec y-1)))
    (mul w y-0 (rec l-0) x-0 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w y-0 (rec l-0) x-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w y-0 (rec l-0) x-0 (rec y-1) y-2 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul w y-0 (rec l-0) x-0 (rec y-1) (rec x-1) y-2 (rec l-1))))
      (send
        (cat (exp (gen) x-1)
          (mul w y-0 (rec l-0) x-0 (rec y-1) (rec x-1) y-2 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l-0) x-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l-0) x-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1226)
  (parent 873)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 w expt)
    (y-0 l-0 x-0 l-1 x-1 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w y-0 (rec l-0) x-0 l-1 y-1 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul w y-0 (rec l-0) x-0 l-1 (rec x-1) y-1 (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul w y-0 (rec l-0) x-0 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-2)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul w y-0 (rec l-0) x-0 l-1 y-1 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1 y-1)) (y ltxb)
    (x-1 beta) (x-1 l)
    (x-1 (mul w y-0 (rec l-0) x-0 l-1 (rec x-1) y-1 (rec l-2)))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul w y-0 (rec l-0) x-0 l-1))
    (y-1 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w y-0 (rec l-0) x-0 l-1 y-1 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1 y-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul w y-0 (rec l-0) x-0 l-1))
    (mul w y-0 (rec l-0) x-0 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l-0) x-0 l-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul w y-0 (rec l-0) x-0 l-1 (rec x-1) y-1 (rec l-2))))
      (send
        (cat (exp (gen) x-1)
          (mul w y-0 (rec l-0) x-0 l-1 (rec x-1) y-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) x-0 l-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul w y-0 (rec l-0) x-0 l-1)))
      (send (cat (exp (gen) y-1) (mul w y-0 (rec l-0) x-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1227)
  (parent 873)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb l rndx) (alpha chi-0 w expt)
    (y-0 l-0 y-1 l-1 x-0 y-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w y-0 (rec l-0) (rec y-1) l-1 y-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-0)
      (mul w y-0 (rec l-0) (rec y-1) l-1 (rec x-0) y-2 (rec l-2))))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul w y-0 (rec l-0) (rec y-1) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-2)
  (uniq-gen x y x-0 y-2)
  (absent (x (mul w y-0 (rec l-0) (rec y-1) l-1 y-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-2))
    (y ltxb) (x-0 beta) (x-0 l)
    (x-0 (mul w y-0 (rec l-0) (rec y-1) l-1))
    (x-0 (mul w y-0 (rec l-0) (rec y-1) l-1 (rec x-0) y-2 (rec l-2)))
    (y-2 alpha) (y-2 chi-0) (y-2 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l))
  (facts (neq a a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w y-0 (rec l-0) (rec y-1) l-1 y-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul w y-0 (rec l-0) (rec y-1) l-1))
    (mul w y-0 (rec l-0) (rec y-1) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w y-0 (rec l-0) (rec y-1) l-1 y-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-0)
         (mul w y-0 (rec l-0) (rec y-1) l-1 (rec x-0) y-2 (rec l-2))))
      (send
        (cat (exp (gen) x-0)
          (mul w y-0 (rec l-0) (rec y-1) l-1 (rec x-0) y-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul w y-0 (rec l-0) (rec y-1) l-1)))
      (send (cat (exp (gen) y-2) (mul w y-0 (rec l-0) (rec y-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1228)
  (parent 873)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 rndx) (w expt)
    (l-0 l-1 x-1 l-2 x-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 y-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) (mul (rec l) (rec x-0) w l-1 x-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-2 y-0)
  (absent (x (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) y-0)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 y-0))
    (y ltxb) (x-2 beta) (x-2 l-0) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) (rec x-0) w l-1 x-1))
    (y-0 (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) y-0))
    (y-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) y-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) (rec x-0) w l-1 x-1))
    (mul (rec l) (rec x-0) w l-1 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec x-0) w l-1 x-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) y-0)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) (rec x-0) w l-1 x-1 (rec l-2) (rec x-2) y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 x-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l) (rec x-0) w l-1 x-1)))
      (send (cat (exp (gen) y-0) (mul (rec l) (rec x-0) w l-1 x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1229)
  (parent 877)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 rndx) (w expt)
    (l-0 l-1 y-0 l-2 x-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) (rec x-1) y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) (rec x-0) w l-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) y-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec y-0) y-1)) (y ltxb)
    (x-1 beta) (x-1 (mul (rec l) (rec x-0) w l-1 (rec y-0))) (x-1 l-0)
    (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) (rec x-1) y-1))
    (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec l) (rec x-0) w l-1 (rec y-0)))
    (mul (rec l) (rec x-0) w l-1 (rec y-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec x-0) w l-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) (rec x-1)
           y-1)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) (rec x-0) w l-1 (rec y-0) (rec l-2) (rec x-1)
            y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w l-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) (rec x-0) w l-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) (rec x-0) w l-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1230)
  (parent 877)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 rndx) (w expt)
    (l-0 x-1 y-0 l-1 x-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) (rec x-2) y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l) (rec x-0) w x-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) y-1))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec y-0) y-1)) (y ltxb)
    (l-1 (mul (rec l) (rec x-0) w x-1 (rec y-0))) (x-2 beta) (x-2 l-0)
    (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) (rec x-2) y-1))
    (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec x-0) w x-1 (rec y-0)))
    (mul (rec l) (rec x-0) w x-1 (rec y-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec x-0) w x-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) (rec x-2)
           y-1)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l) (rec x-0) w x-1 (rec y-0) (rec l-1) (rec x-2)
            y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec x-0) w x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l) (rec x-0) w x-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1) (mul (rec l) (rec x-0) w x-1 (rec y-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1231)
  (parent 877)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 x-0 l-2 x-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 x-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 x-0 (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w y-0 l-1 x-0 (rec l-2) (rec x-1) y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 x-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec l) w y-0 l-1 x-0 (rec l-2) y-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 x-0 y-1)) (y ltxb) (x-1 beta)
    (x-1 (mul (rec l) w y-0 l-1 x-0 (rec l-2) (rec x-1) y-1)) (x-1 l-0)
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec l) w y-0 l-1 x-0)) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 x-0 (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 x-0 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-1 (mul (rec l) w y-0 l-1 x-0))
    (mul (rec l) w y-0 l-1 x-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 x-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 x-0 (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w y-0 l-1 x-0 (rec l-2) (rec x-1) y-1)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w y-0 l-1 x-0 (rec l-2) (rec x-1) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 x-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 x-0)))
      (send (cat (exp (gen) y-1) (mul (rec l) w y-0 l-1 x-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1232)
  (parent 878)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 l-1 y-1 l-2 x-0 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-0)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec x-0) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-2)
  (uniq-gen x y x-0 y-2)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
    (y ltxb) (x-0 beta) (x-0 (mul (rec l) w y-0 l-1 (rec y-1)))
    (x-0 (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec x-0) y-2))
    (x-0 l-0) (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec x-0) y-2)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec x-0) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1233)
  (parent 878)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l rndx) (w expt)
    (y-0 l-0 x-0 y-1 l-1 x-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) (rec x-1) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-2) (mul (rec l) w y-0 x-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l-0 l-1)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2))
    (y ltxb) (l-1 (mul (rec l) w y-0 x-0 (rec y-1))) (x-1 beta)
    (x-1 (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) (rec x-1) y-2))
    (x-1 l-0) (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l-0))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w y-0 x-0 (rec y-1)))
    (mul (rec l) w y-0 x-0 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 x-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) (rec x-1) y-2)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l) w y-0 x-0 (rec y-1) (rec l-1) (rec x-1) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l) w y-0 x-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l) w y-0 x-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1234)
  (parent 878)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l l-0 x-1 l-1 x-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) (rec x-2) y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-0 x-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) y-1)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1 y-1)) (y ltxb)
    (l-1 (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) (rec x-2) y-1))
    (x-2 beta) (x-2 l) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec x-0) w y-0 l-0 x-1)) (y-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec x-0) w y-0 l-0 x-1))
    (mul (rec x-0) w y-0 l-0 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 l-0 x-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) (rec x-2) y-1)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 l-0 x-1 (rec l-1) (rec x-2) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 l-0 x-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-0 x-1)))
      (send (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-0 x-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1))))))))
  (label 1235)
  (parent 879)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (l x-0 y-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 3) (0 1)) ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-0 y-0)
  (absent (x y-0) (x l-0) (y chi) (y (mul (rec ltxb) y-0 l-0)) (y ltxb)
    (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (l-0 (mul (rec x-0) y-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) y-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0))))))))
  (label 1236)
  (parent 879)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l l-0 y-1 l-1 x-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) (rec x-1) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2))
    (y ltxb)
    (l-1 (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) (rec x-1) y-2))
    (x-1 beta) (x-1 (mul (rec x-0) w y-0 l-0 (rec y-1))) (x-1 l)
    (y-2 alpha) (y-2 chi-0) (y-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w y-0 l-0 (rec y-1)))
    (mul (rec x-0) w y-0 l-0 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 l-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) (rec x-1) y-2)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w y-0 l-0 (rec y-1) (rec l-1) (rec x-1) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 l-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1237)
  (parent 879)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi beta expt)
    (ltxb rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l x-1 y-1 l-0 x-2 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) (rec x-2) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b a-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0)
  (uniq-gen x y x-2 y-2)
  (absent (x (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (y ltxb) (l-0 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (l-0 (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) (rec x-2) y-2))
    (x-2 beta) (x-2 l) (y-2 alpha) (y-2 chi-0) (y-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-1 l))
  (facts (neq a-1 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 a-1) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (mul (rec x-0) w y-0 x-1 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) (rec x-2) y-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-0) (rec x-2) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 a-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 a-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2))))))))
  (label 1238)
  (parent 879)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 x-0 rndx)
    (w expt) (l-1 l-2 x-1 l-3 x-2 y-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 y-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) y-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-0) (mul (rec l-0) (rec x-0) w l-2 x-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-3)
  (uniq-gen x y x-2 y-0)
  (absent (x (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) y-0)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 y-0))
    (y ltxb) (x-2 beta) (x-2 l) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l-0) (rec x-0) w l-2 x-1))
    (y-0 (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) y-0))
    (y-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) y-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 y-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l-0) (rec x-0) w l-2 x-1))
    (mul (rec l-0) (rec x-0) w l-2 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 x-1 y-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) y-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) y-0)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) (rec x-0) w l-2 x-1 (rec l-3) (rec x-2) y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 x-1 y-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) (mul (rec l-0) (rec x-0) w l-2 x-1)))
      (send (cat (exp (gen) y-0) (mul (rec l-0) (rec x-0) w l-2 x-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1239)
  (parent 883)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 x-0 rndx)
    (w expt) (l-1 l-2 y-0 l-3 x-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) (rec x-1)
        y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l-0) (rec x-0) w l-2 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-3)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) y-1))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
    (y ltxb) (x-1 beta) (x-1 l)
    (x-1 (mul (rec l-0) (rec x-0) w l-2 (rec y-0))) (y-1 alpha)
    (y-1 chi-0)
    (y-1
      (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) (rec x-1) y-1))
    (y-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed
      (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec l-0) (rec x-0) w l-2 (rec y-0)))
    (mul (rec l-0) (rec x-0) w l-2 (rec y-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) (rec x-1)
           y-1)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) (rec x-0) w l-2 (rec y-0) (rec l-3) (rec x-1)
            y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w l-2 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l-0) (rec x-0) w l-2 (rec y-0))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) (rec x-0) w l-2 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1240)
  (parent 883)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 x-0 rndx)
    (w expt) (l-1 x-1 y-0 l-2 x-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) (rec x-2)
        y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-1) (mul (rec l-0) (rec x-0) w x-1 (rec y-0))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-2)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) y-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
    (y ltxb) (l-2 (mul (rec l-0) (rec x-0) w x-1 (rec y-0))) (x-2 beta)
    (x-2 l) (y-1 alpha) (y-1 chi-0)
    (y-1
      (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) (rec x-2) y-1))
    (y-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec y-0) y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) (rec x-0) w x-1 (rec y-0)))
    (mul (rec l-0) (rec x-0) w x-1 (rec y-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) (rec x-2)
           y-1)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec l-0) (rec x-0) w x-1 (rec y-0) (rec l-2) (rec x-2)
            y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec x-0) w x-1 (rec y-0) y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-1) (mul (rec l-0) (rec x-0) w x-1 (rec y-0))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) (rec x-0) w x-1 (rec y-0)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1241)
  (parent 883)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 rndx) (w expt)
    (y-0 l-1 l-2 x-0 l-3 x-1 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) (rec x-1) y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec l-0) w y-0 l-2 x-0)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-3)
  (uniq-gen x y x-1 y-1)
  (absent (x (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) y-1)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0 y-1)) (y ltxb)
    (x-1 beta) (x-1 l)
    (x-1 (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) (rec x-1) y-1))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec l-0) w y-0 l-2 x-0))
    (y-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec l-0) w y-0 l-2 x-0))
    (mul (rec l-0) w y-0 l-2 x-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) w y-0 l-2 x-0 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) (rec x-1) y-1)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) w y-0 l-2 x-0 (rec l-3) (rec x-1) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 l-2 x-0 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec l-0) w y-0 l-2 x-0)))
      (send (cat (exp (gen) y-1) (mul (rec l-0) w y-0 l-2 x-0))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1242)
  (parent 884)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 rndx) (w expt)
    (y-0 l-1 l-2 y-1 l-3 x-0 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) x-0)
      (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec x-0) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec l-0) w y-0 l-2 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-3)
  (uniq-gen x y x-0 y-2)
  (absent (x (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-2)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-2))
    (y ltxb) (x-0 beta) (x-0 l)
    (x-0 (mul (rec l-0) w y-0 l-2 (rec y-1)))
    (x-0 (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec x-0) y-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l-0) w y-0 l-2 (rec y-1)))
    (mul (rec l-0) w y-0 l-2 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) x-0)
         (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec x-0) y-2)))
      (send
        (cat (exp (gen) x-0)
          (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec x-0) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l-0) w y-0 l-2 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l-0) w y-0 l-2 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1243)
  (parent 884)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (l-0 rndx) (w expt)
    (y-0 l-1 x-0 y-1 l-2 x-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w y-0 x-0 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) (rec x-1) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec l-0) w y-0 x-0 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-1 l-2)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l-0) w y-0 x-0 (rec y-1) y-2))
    (y ltxb) (l-2 (mul (rec l-0) w y-0 x-0 (rec y-1))) (x-1 beta)
    (x-1 l)
    (x-1 (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) (rec x-1) y-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 x-0 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) w y-0 x-0 (rec y-1)))
    (mul (rec l-0) w y-0 x-0 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w y-0 x-0 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) (rec x-1) y-2)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) w y-0 x-0 (rec y-1) (rec l-2) (rec x-1) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 x-0 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec l-0) w y-0 x-0 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec l-0) w y-0 x-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1244)
  (parent 884)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l-0 l-1 x-1 l-2 x-2 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1 y-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) y-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) (rec x-2) y-1)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-1 x-1)))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-2)
  (uniq-gen x y x-2 y-1)
  (absent (x (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) y-1)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1 y-1)) (y ltxb)
    (l-2 (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) (rec x-2) y-1))
    (x-2 beta) (x-2 l) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec x-0) w y-0 l-1 x-1)) (y-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) y-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1 y-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec x-0) w y-0 l-1 x-1))
    (mul (rec x-0) w y-0 l-1 x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec x-0) w y-0 l-1 x-1 y-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) y-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) (rec x-2) y-1)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 l-1 x-1 (rec l-2) (rec x-2) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 l-1 x-1 y-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-1 x-1)))
      (send (cat (exp (gen) y-1) (mul (rec x-0) w y-0 l-1 x-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1245)
  (parent 885)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt)
    (l-0 x-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta y-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) x-0) (mul (rec x-0) y-0)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 2) (0 1)) ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-0 y-0)
  (absent (x y-0) (x l-1) (y chi) (y (mul (rec ltxb) y-0 l-1)) (y ltxb)
    (x-0 beta) (x-0 l) (y-0 alpha) (y-0 chi-0) (y-0 l-0)
    (l-1 (mul (rec x-0) y-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed y-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) y-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) x-0) (mul (rec x-0) y-0)))
      (send (cat (exp (gen) x-0) (mul (rec x-0) y-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1246)
  (parent 885)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l-0 l-1 y-1 l-2 x-1 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 l-1 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) x-1)
      (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) (rec x-1) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-2)
  (uniq-gen x y x-1 y-2)
  (absent (x (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) y-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 l-1 (rec y-1) y-2))
    (y ltxb)
    (l-2 (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) (rec x-1) y-2))
    (x-1 beta) (x-1 l) (x-1 (mul (rec x-0) w y-0 l-1 (rec y-1)))
    (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 l-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec x-0) w y-0 l-1 (rec y-1)))
    (mul (rec x-0) w y-0 l-1 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 l-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) x-1)
         (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) (rec x-1) y-2)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec x-0) w y-0 l-1 (rec y-1) (rec l-2) (rec x-1) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 l-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1247)
  (parent 885)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 na-2 nb-1 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi beta expt) (ltxb l rndx) (alpha chi-0 expt) (x-0 rndx) (w expt)
    (y-0 l-0 x-1 y-1 l-1 x-2 y-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) y-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) x-2)
      (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) (rec x-2) y-2)))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-1) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 2) (0 1))
    ((4 2) (3 0)) ((4 2) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 nb-1 l l-0 l-1)
  (uniq-gen x y x-2 y-2)
  (absent (x (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) y-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
    (y ltxb) (l-1 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (l-1 (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) (rec x-2) y-2))
    (x-2 beta) (x-2 l) (y-2 alpha) (y-2 chi-0) (y-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq a-1 b-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq b-1 a-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) y-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec x-0) w y-0 x-1 (rec y-1)))
    (mul (rec x-0) w y-0 x-1 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec x-0) w y-0 x-1 (rec y-1) y-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) y-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) x-2)
         (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) (rec x-2) y-2)))
      (send
        (cat (exp (gen) x-2)
          (mul (rec x-0) w y-0 x-1 (rec y-1) (rec l-1) (rec x-2) y-2))))
    ((load priv-stor-1 (cat pt-2 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec x-0) w y-0 x-1 (rec y-1) y-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1))))
      (send (cat (exp (gen) y-2) (mul (rec x-0) w y-0 x-1 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-2 nb-1 a-2 b-2
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1248)
  (parent 885)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (8 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (4 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul (rec l) l-0)) (y l) (y (mul w x-0))
    (x-1 beta) (x-1 l-0))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((5 1) (1 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1249)
  (parent 909)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)) ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 beta) (x-1 l-1))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-1)))))
  (label 1250)
  (parent 909)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (6 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1251)
  (parent 911)
  (unrealized (0 0) (0 1) (1 3) (6 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (alpha chi expt) (x rndx)
    (w expt) (y y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 1) (8 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (4 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul (rec l) l-0)) (y-0 l)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((5 1) (1 0)) ((5 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 9 5 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1252)
  (parent 912)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)) ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-1)))))
  (label 1253)
  (parent 912)
  (unrealized (0 0) (0 1) (1 3) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))))
  (label 1254)
  (parent 913)
  (unrealized (0 0) (0 1) (0 2) (4 0) (6 0) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1255)
  (parent 913)
  (unrealized (0 0) (0 1) (4 0) (7 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((1 2) (8 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (4 0)) ((8 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (6 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1256)
  (parent 913)
  (unrealized (0 0) (0 1) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-0) (4 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 1257)
  (parent 943)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx) (w expt)
    (y l l-0 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul x w)) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y)))
      (hash (exp (gen) l) (exp (gen) (mul x w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (4 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 1258)
  (parent 943)
  (unrealized (0 0) (0 1) (8 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha expt) (l y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (one))
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (mul alpha l)) (undisclosed l-1)
    (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 8 0 resp 4) (exp (gen) y-0) (4 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 1259)
  (parent 945)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l x rndx) (w expt) (y l-0 l-1 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y (mul x w)) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (4 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 1260)
  (parent 945)
  (unrealized (0 0) (0 1) (8 0))
  (comment "7 in cohort - 7 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 y-1 x-1 y-2 x-2 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l)
  (uniq-gen x y y-2 x-2)
  (absent (x (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l))) (x l)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l) (x-2 beta) (x-2 l)
    (l (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (l (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (mul (rec y-0) w x-0 y-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-2)))))
  (label 1261)
  (parent 949)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 y-1 l y-2 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 l x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 y-1 l x-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 l (rec y-2) x-1 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1 l x-1 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w x-0 y-1 l x-1)) (y ltxb) (y-2 alpha)
    (y-2 chi-0) (y-2 l-0) (x-1 beta) (x-1 (mul (rec y-0) w x-0 y-1 l))
    (x-1 l-0) (l-0 (mul (rec y-0) w x-0 y-1 l (rec y-2) x-1 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 y-1 l x-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 l x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec y-0) w x-0 y-1 l))
    (mul (rec y-0) w x-0 y-1 l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 y-1 l x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 l (rec y-2) x-1 (rec l-0))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 l (rec y-2) x-1 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l)))
      (send (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-1)))))
  (label 1262)
  (parent 949)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 x-1 l y-1 x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 (rec x-1) l x-2 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w x-0 (rec x-1) l (rec y-1) x-2 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec y-0) w x-0 (rec x-1) l)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec y-0) w x-0 (rec x-1) l x-2 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l x-2))
    (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec y-0) w x-0 (rec x-1) l)) (y-1 l-0) (x-2 beta)
    (x-2 l-0)
    (l-0 (mul (rec y-0) w x-0 (rec x-1) l (rec y-1) x-2 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 (rec x-1) l x-2 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w x-0 (rec x-1) l))
    (mul (rec y-0) w x-0 (rec x-1) l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w x-0 (rec x-1) l (rec y-1) x-2 (rec l-0))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w x-0 (rec x-1) l (rec y-1) x-2 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 (rec x-1) l)))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 (rec x-1) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-2)))))
  (label 1263)
  (parent 949)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (l y-1 x-0 y-2 x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l) y-1 (rec x-0) (rec y-2) x-1 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w (rec l) y-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1 (rec l-0)))
    (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec x-0) x-1)) (y ltxb)
    (y-2 alpha) (y-2 chi-0) (y-2 l-0) (x-1 beta)
    (x-1
      (mul (rec y-0) w (rec l) y-1 (rec x-0) (rec y-2) x-1 (rec l-0)))
    (x-1 l-0) (l-0 (mul (rec y-0) w (rec l) y-1 (rec x-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w (rec l) y-1 (rec x-0)))
    (mul (rec y-0) w (rec l) y-1 (rec x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l) y-1 (rec x-0) (rec y-2) x-1
           (rec l-0))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l) y-1 (rec x-0) (rec y-2) x-1
            (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w (rec l) y-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) w (rec l) y-1 (rec x-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-1)))))
  (label 1264)
  (parent 950)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (l y-1 l-0 y-2 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l) y-1 l-0 x-0 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) x-0 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec y-0) w (rec l) y-1 l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-0) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-1)
  (uniq-gen x y y-2 x-0)
  (absent (x (mul (rec y-0) w (rec l) y-1 l-0 x-0 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 x-0))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-1) (x-0 beta)
    (x-0 (mul (rec y-0) w (rec l) y-1 l-0))
    (x-0 (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) x-0 (rec l-1)))
    (x-0 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w (rec l) y-1 l-0 x-0 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec y-0) w (rec l) y-1 l-0))
    (mul (rec y-0) w (rec l) y-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) x-0 (rec l-1))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) x-0 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec y-0) w (rec l) y-1 l-0)))
      (send (cat (exp (gen) x-0) (mul (rec y-0) w (rec l) y-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-0)))))
  (label 1265)
  (parent 950)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (l x-0 l-0 y-1 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l) (rec x-0) l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w (rec l) (rec x-0) l-0 (rec y-1) x-1 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w (rec l) (rec x-0) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-1)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l) (rec x-0) l-0 x-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec y-0) w (rec l) (rec x-0) l-0)) (y-1 l-1) (x-1 beta)
    (x-1
      (mul (rec y-0) w (rec l) (rec x-0) l-0 (rec y-1) x-1 (rec l-1)))
    (x-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l) (rec x-0) l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w (rec l) (rec x-0) l-0))
    (mul (rec y-0) w (rec l) (rec x-0) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l) (rec x-0) l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w (rec l) (rec x-0) l-0 (rec y-1) x-1
           (rec l-1))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w (rec l) (rec x-0) l-0 (rec y-1) x-1
            (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) (rec x-0) l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w (rec l) (rec x-0) l-0)))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) w (rec l) (rec x-0) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-1)))))
  (label 1266)
  (parent 950)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta w expt) (x-0 l y-0 x-1 y-1 x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) y-0 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w x-0 (rec l) y-0 (rec x-1) x-2 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-1)
      (mul w x-0 (rec l) y-0 (rec x-1) (rec y-1) x-2 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec l) y-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul w x-0 (rec l) y-0 (rec x-1) x-2 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) y-0 (rec x-1) x-2))
    (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul w x-0 (rec l) y-0 (rec x-1) (rec y-1) x-2 (rec l-0)))
    (y-1 l-0) (x-2 beta) (x-2 l-0)
    (l-0 (mul w x-0 (rec l) y-0 (rec x-1))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w x-0 (rec l) y-0 (rec x-1) x-2 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) y-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul w x-0 (rec l) y-0 (rec x-1)))
    (mul w x-0 (rec l) y-0 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) y-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-1)
         (mul w x-0 (rec l) y-0 (rec x-1) (rec y-1) x-2 (rec l-0))))
      (send
        (cat (exp (gen) y-1)
          (mul w x-0 (rec l) y-0 (rec x-1) (rec y-1) x-2 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l) y-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l) y-0 (rec x-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-2)))))
  (label 1267)
  (parent 951)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta w expt) (x-0 l y-0 l-0 y-1 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l) y-0 l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l) y-0 l-0 x-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul w x-0 (rec l) y-0 l-0 (rec y-1) x-1 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec l) y-0 l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-1)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul w x-0 (rec l) y-0 l-0 x-1 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) w x-0 (rec l) y-0 l-0 x-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul w x-0 (rec l) y-0 l-0 (rec y-1) x-1 (rec l-1))) (y-1 l-1)
    (x-1 beta) (x-1 (mul w x-0 (rec l) y-0 l-0)) (x-1 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l) y-0 l-0 x-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) y-0 l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul w x-0 (rec l) y-0 l-0))
    (mul w x-0 (rec l) y-0 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) y-0 l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul w x-0 (rec l) y-0 l-0 (rec y-1) x-1 (rec l-1))))
      (send
        (cat (exp (gen) y-1)
          (mul w x-0 (rec l) y-0 l-0 (rec y-1) x-1 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) y-0 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l) y-0 l-0)))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec l) y-0 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-1)))))
  (label 1268)
  (parent 951)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (beta w expt) (x-0 l x-1 l-0 y-0 x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-0)
      (mul w x-0 (rec l) (rec x-1) l-0 (rec y-0) x-2 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1))
    ((8 2) (3 0)) ((8 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-1)
  (uniq-gen x y y-0 x-2)
  (absent (x (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul w x-0 (rec l) (rec x-1) l-0))
    (y-0 (mul w x-0 (rec l) (rec x-1) l-0 (rec y-0) x-2 (rec l-1)))
    (y-0 l-1) (x-2 beta) (x-2 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul w x-0 (rec l) (rec x-1) l-0))
    (mul w x-0 (rec l) (rec x-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l) (rec x-1) l-0 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-0)
         (mul w x-0 (rec l) (rec x-1) l-0 (rec y-0) x-2 (rec l-1))))
      (send
        (cat (exp (gen) y-0)
          (mul w x-0 (rec l) (rec x-1) l-0 (rec y-0) x-2 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l) (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0)))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l) (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a b-1 (exp (gen) x-2)))))
  (label 1269)
  (parent 951)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 l rndx) (w expt)
    (l-0 y-1 l-1 y-2 l-2 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec y-0) (rec l) w y-1 l-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-2 x-0)
  (absent (x (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) x-0)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 x-0))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-2) (x-0 beta)
    (x-0 (mul (rec y-0) (rec l) w y-1 l-1))
    (x-0 (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) x-0))
    (x-0 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) x-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec y-0) (rec l) w y-1 l-1))
    (mul (rec y-0) (rec l) w y-1 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) x-0)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) x-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec y-0) (rec l) w y-1 l-1)))
      (send (cat (exp (gen) x-0) (mul (rec y-0) (rec l) w y-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 1270)
  (parent 954)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 l rndx) (w expt)
    (l-0 y-1 x-0 y-2 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec l-1) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec y-2) (rec l-1) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) (rec l) w y-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec l-1) x-1))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec x-0) x-1)) (y ltxb)
    (y-2 alpha) (y-2 chi-0) (y-2 l-1)
    (l-1 (mul (rec y-0) (rec l) w y-1 (rec x-0))) (x-1 beta)
    (x-1
      (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec y-2) (rec l-1) x-1))
    (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec l-1) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) (rec l) w y-1 (rec x-0)))
    (mul (rec y-0) (rec l) w y-1 (rec x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec y-2) (rec l-1)
           x-1)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) (rec l) w y-1 (rec x-0) (rec y-2) (rec l-1)
            x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) (rec l) w y-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) (rec l) w y-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 1271)
  (parent 954)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 l rndx) (w expt)
    (l-0 l-1 x-0 y-1 l-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec y-1) (rec l-2) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) (rec l) w l-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec l-2) x-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec x-0) x-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec y-0) (rec l) w l-1 (rec x-0))) (y-1 l-2) (x-1 beta)
    (x-1
      (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec y-1) (rec l-2) x-1))
    (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) (rec l) w l-1 (rec x-0)))
    (mul (rec y-0) (rec l) w l-1 (rec x-0)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec y-1) (rec l-2)
           x-1)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) (rec l) w l-1 (rec x-0) (rec y-1) (rec l-2)
            x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) (rec l) w l-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec y-0) (rec l) w l-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 1272)
  (parent 954)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l y-1 l-0 y-2 l-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 y-1 l-0 (rec l-1) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) (rec l-1) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0)))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1 l-0 (rec l-1) x-1)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1)) (y ltxb)
    (y-2 alpha) (y-2 chi-0) (y-2 l-1)
    (l-1 (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) (rec l-1) x-1))
    (x-1 beta) (x-1 (mul (rec y-0) w x-0 y-1 l-0)) (x-1 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 y-1 l-0 (rec l-1) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec y-0) w x-0 y-1 l-0))
    (mul (rec y-0) w x-0 y-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) (rec l-1) x-1)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) (rec l-1) x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0)))
      (send (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l)))))
  (label 1273)
  (parent 955)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l y-1 x-1 y-2 l-0 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) (rec l-0) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-2 x-2)
  (absent (x (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-0)
    (l-0 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (l-0 (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) (rec l-0) x-2))
    (x-2 beta) (x-2 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (mul (rec y-0) w x-0 y-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) (rec l-0) x-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) (rec l-0) x-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l)))))
  (label 1274)
  (parent 955)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l l-0 x-1 y-1 l-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w x-0 l-0 (rec x-1) (rec y-1) (rec l-1) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2))
    (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec y-0) w x-0 l-0 (rec x-1))) (y-1 l-1)
    (l-1 (mul (rec y-0) w x-0 l-0 (rec x-1) (rec y-1) (rec l-1) x-2))
    (x-2 beta) (x-2 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-2 l))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w x-0 l-0 (rec x-1)))
    (mul (rec y-0) w x-0 l-0 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w x-0 l-0 (rec x-1) (rec y-1) (rec l-1) x-2)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w x-0 l-0 (rec x-1) (rec y-1) (rec l-1) x-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l)))))
  (label 1275)
  (parent 955)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 y-0 l-1 y-1 l-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 y-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 y-0 l-1 (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w x-0 y-0 l-1 (rec y-1) (rec l-2) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0 y-0 l-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec l) w x-0 y-0 l-1 (rec l-2) x-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 y-0 l-1 x-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul (rec l) w x-0 y-0 l-1 (rec y-1) (rec l-2) x-1)) (y-1 l-2)
    (x-1 beta) (x-1 (mul (rec l) w x-0 y-0 l-1)) (x-1 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 y-0 l-1 (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 y-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0 y-0 l-1))
    (mul (rec l) w x-0 y-0 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 y-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 y-0 l-1 (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w x-0 y-0 l-1 (rec y-1) (rec l-2) x-1)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w x-0 y-0 l-1 (rec y-1) (rec l-2) x-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 y-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 y-0 l-1)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0 y-0 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 1276)
  (parent 956)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 y-0 x-1 y-1 l-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w x-0 y-0 (rec x-1) (rec y-1) (rec l-1) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 y-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2))
    (y ltxb) (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec l) w x-0 y-0 (rec x-1) (rec y-1) (rec l-1) x-2))
    (y-1 l-1) (l-1 (mul (rec l) w x-0 y-0 (rec x-1))) (x-2 beta)
    (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w x-0 y-0 (rec x-1)))
    (mul (rec l) w x-0 y-0 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w x-0 y-0 (rec x-1) (rec y-1) (rec l-1) x-2)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w x-0 y-0 (rec x-1) (rec y-1) (rec l-1) x-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-1)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 y-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 y-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 1277)
  (parent 956)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 y-0 l-2 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-0)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec y-0) (rec l-2) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-0) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-2)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0))
    ((8 2) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-0 x-2)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w x-0 l-1 (rec x-1)))
    (y-0 (mul (rec l) w x-0 l-1 (rec x-1) (rec y-0) (rec l-2) x-2))
    (y-0 l-2) (x-2 beta) (x-2 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv a-2 l-0))
  (facts (neq a-2 b-1) (neq a a-1) (neq a b-0) (neq b a-0) (neq b-1 a-2)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec y-0) (rec l-2) x-2)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec y-0) (rec l-2) x-2))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-0)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-2 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-2 a-2 b-1 (exp (gen) x-2))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-2 l-0)))))
  (label 1278)
  (parent 956)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (y-1 y-2 y-3 y-4 y-5 l rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x)
    (beta (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener
    (cat (exp (gen) y-4)
      (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-4) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l) (y y-5) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l)
  (uniq-gen x y y-4 y-5)
  (absent (x (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l))) (x l)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (y ltxb) (y-4 alpha) (y-4 chi-0) (y-4 l) (y-5 alpha-0) (y-5 chi-1)
    (y-5 l) (l (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (l (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))) (neq l ltxb) (undisclosed l)
    (undisclosed (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (mul (rec y-0) w y-1 y-2 (rec y-3)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv
       (cat (exp (gen) y-4)
         (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l))))
      (send
        (cat (exp (gen) y-4)
          (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-4)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-4)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
      (send (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3)))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-5)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-5))))))))
  (label 1279)
  (parent 963)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (y-1 y-2 l y-3 y-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 l y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 y-2 l y-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 y-2 l (rec y-3) y-4 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 y-2 l y-4 (rec l-0))) (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w y-1 y-2 l y-4)) (y ltxb) (y-3 alpha)
    (y-3 chi-0) (y-3 l-0) (y-4 alpha-0) (y-4 chi-1)
    (y-4 (mul (rec y-0) w y-1 y-2 l)) (y-4 l-0)
    (l-0 (mul (rec y-0) w y-1 y-2 l (rec y-3) y-4 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 y-2 l y-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 l y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-4 (mul (rec y-0) w y-1 y-2 l))
    (mul (rec y-0) w y-1 y-2 l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 y-2 l y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 y-2 l (rec y-3) y-4 (rec l-0))))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 y-2 l (rec y-3) y-4 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l)))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1280)
  (parent 963)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (y-1 y-2 l y-3 y-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l y-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 (rec y-2) l y-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 (rec y-2) l (rec y-3) y-4 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec y-0) w y-1 (rec y-2) l)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 (rec y-2) l y-4 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l y-4))
    (y ltxb) (y-3 alpha) (y-3 chi-0)
    (y-3 (mul (rec y-0) w y-1 (rec y-2) l)) (y-3 l-0) (y-4 alpha-0)
    (y-4 chi-1) (y-4 l-0)
    (l-0 (mul (rec y-0) w y-1 (rec y-2) l (rec y-3) y-4 (rec l-0))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 (rec y-2) l y-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) w y-1 (rec y-2) l))
    (mul (rec y-0) w y-1 (rec y-2) l) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 (rec y-2) l (rec y-3) y-4 (rec l-0))))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 (rec y-2) l (rec y-3) y-4 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 (rec y-2) l)))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 (rec y-2) l))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1281)
  (parent 963)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (l y-1 y-2 y-3 y-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w (rec l) y-1 (rec y-2) (rec y-3) y-4 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec y-0) w (rec l) y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4 (rec l-0)))
    (x l-0) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec y-2) y-4)) (y ltxb)
    (y-3 alpha) (y-3 chi-0) (y-3 l-0) (y-4 alpha-0) (y-4 chi-1)
    (y-4
      (mul (rec y-0) w (rec l) y-1 (rec y-2) (rec y-3) y-4 (rec l-0)))
    (y-4 l-0) (l-0 (mul (rec y-0) w (rec l) y-1 (rec y-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w (rec l) y-1 (rec y-2)))
    (mul (rec y-0) w (rec l) y-1 (rec y-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l) y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w (rec l) y-1 (rec y-2) (rec y-3) y-4
           (rec l-0))))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w (rec l) y-1 (rec y-2) (rec y-3) y-4
            (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-4) (mul (rec y-0) w (rec l) y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-4) (mul (rec y-0) w (rec l) y-1 (rec y-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1282)
  (parent 964)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (l y-1 l-0 y-2 y-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 y-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l) y-1 l-0 y-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec y-0) w (rec l) y-1 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-1)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w (rec l) y-1 l-0 y-3 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-1) (y-3 alpha-0) (y-3 chi-1)
    (y-3 (mul (rec y-0) w (rec l) y-1 l-0))
    (y-3 (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1)))
    (y-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w (rec l) y-1 l-0 y-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) w (rec l) y-1 l-0))
    (mul (rec y-0) w (rec l) y-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w (rec l) y-1 l-0 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) y-1 l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec y-0) w (rec l) y-1 l-0)))
      (send (cat (exp (gen) y-3) (mul (rec y-0) w (rec l) y-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1283)
  (parent 964)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx) (w expt)
    (l y-1 l-0 y-2 y-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l) (rec y-1) l-0 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l) (rec y-1) l-0 (rec y-2) y-3 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w (rec l) (rec y-1) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-1)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l) (rec y-1) l-0 y-3)) (y ltxb)
    (y-2 alpha) (y-2 chi-0)
    (y-2 (mul (rec y-0) w (rec l) (rec y-1) l-0)) (y-2 l-1)
    (y-3 alpha-0) (y-3 chi-1)
    (y-3
      (mul (rec y-0) w (rec l) (rec y-1) l-0 (rec y-2) y-3 (rec l-1)))
    (y-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l) (rec y-1) l-0 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec y-0) w (rec l) (rec y-1) l-0))
    (mul (rec y-0) w (rec l) (rec y-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l) (rec y-1) l-0 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l) (rec y-1) l-0 (rec y-2) y-3
           (rec l-1))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l) (rec y-1) l-0 (rec y-2) y-3
            (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l) (rec y-1) l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec y-0) w (rec l) (rec y-1) l-0)))
      (send
        (cat (exp (gen) y-3) (mul (rec y-0) w (rec l) (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1284)
  (parent 964)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 w expt) (y-0 l y-1 y-2 y-3 y-4 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) y-1 (rec y-2) y-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul w y-0 (rec l) y-1 (rec y-2) y-4 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-3)
      (mul w y-0 (rec l) y-1 (rec y-2) (rec y-3) y-4 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul w y-0 (rec l) y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul w y-0 (rec l) y-1 (rec y-2) y-4 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) y-1 (rec y-2) y-4))
    (y ltxb) (y-3 alpha) (y-3 chi-0)
    (y-3 (mul w y-0 (rec l) y-1 (rec y-2) (rec y-3) y-4 (rec l-0)))
    (y-3 l-0) (y-4 alpha-0) (y-4 chi-1) (y-4 l-0)
    (l-0 (mul w y-0 (rec l) y-1 (rec y-2))))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul w y-0 (rec l) y-1 (rec y-2) y-4 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul w y-0 (rec l) y-1 (rec y-2)))
    (mul w y-0 (rec l) y-1 (rec y-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-3)
         (mul w y-0 (rec l) y-1 (rec y-2) (rec y-3) y-4 (rec l-0))))
      (send
        (cat (exp (gen) y-3)
          (mul w y-0 (rec l) y-1 (rec y-2) (rec y-3) y-4 (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul w y-0 (rec l) y-1 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul w y-0 (rec l) y-1 (rec y-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1285)
  (parent 965)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 w expt) (y-0 l y-1 l-0 y-2 y-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l) y-1 l-0 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l) y-1 l-0 y-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul w y-0 (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul w y-0 (rec l) y-1 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-1)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul w y-0 (rec l) y-1 l-0 y-3 (rec l-1))) (x l-1) (y chi)
    (y (mul (rec ltxb) w y-0 (rec l) y-1 l-0 y-3)) (y ltxb) (y-2 alpha)
    (y-2 chi-0)
    (y-2 (mul w y-0 (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1))) (y-2 l-1)
    (y-3 alpha-0) (y-3 chi-1) (y-3 (mul w y-0 (rec l) y-1 l-0))
    (y-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l) y-1 l-0 y-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) y-1 l-0 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-3 (mul w y-0 (rec l) y-1 l-0))
    (mul w y-0 (rec l) y-1 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) y-1 l-0 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul w y-0 (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1))))
      (send
        (cat (exp (gen) y-2)
          (mul w y-0 (rec l) y-1 l-0 (rec y-2) y-3 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) y-1 l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul w y-0 (rec l) y-1 l-0)))
      (send (cat (exp (gen) y-3) (mul w y-0 (rec l) y-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1286)
  (parent 965)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (x y rndx) (chi alpha chi-0 expt)
    (ltxb rndx) (alpha-0 chi-1 w expt) (y-0 l y-1 l-0 y-2 y-3 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l) (rec y-1) l-0 y-3 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul w y-0 (rec l) (rec y-1) l-0 (rec y-2) y-3 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul w y-0 (rec l) (rec y-1) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0))
    ((3 1) (1 1)) ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0))
    ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1))
    ((8 3) (3 0)) ((8 3) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-1)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul w y-0 (rec l) (rec y-1) l-0 y-3 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0)
    (y-2 (mul w y-0 (rec l) (rec y-1) l-0))
    (y-2 (mul w y-0 (rec l) (rec y-1) l-0 (rec y-2) y-3 (rec l-1)))
    (y-2 l-1) (y-3 alpha-0) (y-3 chi-1) (y-3 l-1))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb))
  (facts (neq a a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l) (rec y-1) l-0 y-3 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((2 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul w y-0 (rec l) (rec y-1) l-0))
    (mul w y-0 (rec l) (rec y-1) l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l) (rec y-1) l-0 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul w y-0 (rec l) (rec y-1) l-0 (rec y-2) y-3 (rec l-1))))
      (send
        (cat (exp (gen) y-2)
          (mul w y-0 (rec l) (rec y-1) l-0 (rec y-2) y-3 (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l) (rec y-1) l-0 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul w y-0 (rec l) (rec y-1) l-0)))
      (send (cat (exp (gen) y-3) (mul w y-0 (rec l) (rec y-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1287)
  (parent 965)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 l rndx)
    (w expt) (l-0 y-1 l-1 y-2 l-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 y-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec y-0) (rec l) w y-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) y-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-2) (y-3 alpha-0) (y-3 chi-1)
    (y-3 (mul (rec y-0) (rec l) w y-1 l-1))
    (y-3 (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) y-3))
    (y-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) (rec l) w y-1 l-1))
    (mul (rec y-0) (rec l) w y-1 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) (rec l) w y-1 l-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) (rec l) w y-1 l-1 (rec y-2) (rec l-2) y-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec y-0) (rec l) w y-1 l-1)))
      (send (cat (exp (gen) y-3) (mul (rec y-0) (rec l) w y-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1288)
  (parent 968)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 l rndx)
    (w expt) (l-0 y-1 y-2 y-3 l-1 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec y-3) (rec l-1) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec y-0) (rec l) w y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec l-1) y-4))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec y-2) y-4)) (y ltxb)
    (y-3 alpha) (y-3 chi-0) (y-3 l-1)
    (l-1 (mul (rec y-0) (rec l) w y-1 (rec y-2))) (y-4 alpha-0)
    (y-4 chi-1)
    (y-4
      (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec y-3) (rec l-1) y-4))
    (y-4 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) (rec l) w y-1 (rec y-2)))
    (mul (rec y-0) (rec l) w y-1 (rec y-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) (rec l) w y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec y-3) (rec l-1)
           y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) (rec l) w y-1 (rec y-2) (rec y-3) (rec l-1)
            y-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-4) (mul (rec y-0) (rec l) w y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-4) (mul (rec y-0) (rec l) w y-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1289)
  (parent 968)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 l rndx)
    (w expt) (l-0 l-1 y-1 y-2 l-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec y-1) y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec y-2) (rec l-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) (rec l) w l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec l-2) y-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec y-1) y-3)) (y ltxb)
    (y-2 alpha) (y-2 chi-0)
    (y-2 (mul (rec y-0) (rec l) w l-1 (rec y-1))) (y-2 l-2)
    (y-3 alpha-0) (y-3 chi-1)
    (y-3
      (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec y-2) (rec l-2) y-3))
    (y-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec y-1) y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec y-0) (rec l) w l-1 (rec y-1)))
    (mul (rec y-0) (rec l) w l-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) (rec l) w l-1 (rec y-1) y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec y-2) (rec l-2)
           y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) (rec l) w l-1 (rec y-1) (rec y-2) (rec l-2)
            y-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) (rec l) w l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec y-0) (rec l) w l-1 (rec y-1))))
      (send
        (cat (exp (gen) y-3) (mul (rec y-0) (rec l) w l-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1290)
  (parent 968)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l y-2 l-0 y-3 l-1 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 y-2 l-0 (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) (rec l-1) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 y-2 l-0 (rec l-1) y-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4)) (y ltxb)
    (y-3 alpha) (y-3 chi-0) (y-3 l-1)
    (l-1 (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) (rec l-1) y-4))
    (y-4 alpha-0) (y-4 chi-1) (y-4 (mul (rec y-0) w y-1 y-2 l-0))
    (y-4 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 y-2 l-0 (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-4 (mul (rec y-0) w y-1 y-2 l-0))
    (mul (rec y-0) w y-1 y-2 l-0) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) (rec l-1) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) (rec l-1) y-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l-0)))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 1291)
  (parent 969)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l y-2 y-3 y-4 l-0 y-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-4)
      (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) (rec l-0) y-5)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-4) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-5) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-4 y-5)
  (absent (x (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (y ltxb) (y-4 alpha) (y-4 chi-0) (y-4 l-0)
    (l-0 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (l-0 (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) (rec l-0) y-5))
    (y-5 alpha-0) (y-5 chi-1) (y-5 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (mul (rec y-0) w y-1 y-2 (rec y-3)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-4)
         (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) (rec l-0) y-5)))
      (send
        (cat (exp (gen) y-4)
          (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) (rec l-0) y-5))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-4)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-4)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
      (send (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-5)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-5)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 1292)
  (parent 969)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l l-0 y-2 y-3 l-1 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 l-0 (rec y-2) (rec y-3) (rec l-1) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4))
    (y ltxb) (y-3 alpha) (y-3 chi-0)
    (y-3 (mul (rec y-0) w y-1 l-0 (rec y-2))) (y-3 l-1)
    (l-1 (mul (rec y-0) w y-1 l-0 (rec y-2) (rec y-3) (rec l-1) y-4))
    (y-4 alpha-0) (y-4 chi-1) (y-4 l))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) w y-1 l-0 (rec y-2)))
    (mul (rec y-0) w y-1 l-0 (rec y-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 l-0 (rec y-2) (rec y-3) (rec l-1) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 l-0 (rec y-2) (rec y-3) (rec l-1) y-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l)))))
  (label 1293)
  (parent 969)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 y-1 l-1 y-2 l-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 y-1 l-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 y-1 l-1 (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) w y-0 y-1 l-1 (rec y-2) (rec l-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec l) w y-0 y-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l) w y-0 y-1 l-1 (rec l-2) y-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 y-1 l-1 y-3)) (y ltxb) (y-2 alpha)
    (y-2 chi-0)
    (y-2 (mul (rec l) w y-0 y-1 l-1 (rec y-2) (rec l-2) y-3)) (y-2 l-2)
    (y-3 alpha-0) (y-3 chi-1) (y-3 (mul (rec l) w y-0 y-1 l-1))
    (y-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 y-1 l-1 (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 y-1 l-1 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-3 (mul (rec l) w y-0 y-1 l-1))
    (mul (rec l) w y-0 y-1 l-1) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 y-1 l-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 y-1 l-1 (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) w y-0 y-1 l-1 (rec y-2) (rec l-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) w y-0 y-1 l-1 (rec y-2) (rec l-2) y-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l) w y-0 y-1 l-1)))
      (send (cat (exp (gen) y-3) (mul (rec l) w y-0 y-1 l-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1294)
  (parent 970)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 y-1 y-2 y-3 l-1 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec l) w y-0 y-1 (rec y-2) (rec y-3) (rec l-1) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-3) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec l) w y-0 y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4))
    (y ltxb) (y-3 alpha) (y-3 chi-0)
    (y-3 (mul (rec l) w y-0 y-1 (rec y-2) (rec y-3) (rec l-1) y-4))
    (y-3 l-1) (l-1 (mul (rec l) w y-0 y-1 (rec y-2))) (y-4 alpha-0)
    (y-4 chi-1) (y-4 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w y-0 y-1 (rec y-2)))
    (mul (rec l) w y-0 y-1 (rec y-2)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec l) w y-0 y-1 (rec y-2) (rec y-3) (rec l-1) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec l) w y-0 y-1 (rec y-2) (rec y-3) (rec l-1) y-4))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi-0 y-3)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec l) w y-0 y-1 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul (rec l) w y-0 y-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1295)
  (parent 970)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 a-2 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 l-1 y-1 y-2 l-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec y-2) (rec l-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-2) (alpha alpha) (chi chi-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (4 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (7 0)) ((5 1) (1 3))
    ((6 1) (5 0)) ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0))
    ((8 3) (7 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0)
    (y-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (y-2 (mul (rec l) w y-0 l-1 (rec y-1) (rec y-2) (rec l-2) y-3))
    (y-2 l-2) (y-3 alpha-0) (y-3 chi-1) (y-3 l-0))
  (precur (3 0) (7 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq a a-1) (neq a b-0) (neq b a-0) (neq a-2 b-1)
    (neq a-1 a) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (4 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec y-2) (rec l-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec y-2) (rec l-2) y-3))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi-0 y-2)))))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0)))))
  (label 1296)
  (parent 970)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 y-1 x-1 y-2 x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-2 x-2)
  (absent (x (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l) (x-2 beta) (x-2 l-0)
    (l-0 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (l-0 (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (mul (rec y-0) w x-0 y-1 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 y-1 (rec x-1) x-2 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l-0))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 (rec x-1) (rec y-2) x-2 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 1297)
  (parent 988)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 y-1 l-0 y-2 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 y-1 l-0 x-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) x-1 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) w x-0 y-1 l-0 x-1 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1)) (y ltxb)
    (y-2 alpha) (y-2 chi-0) (y-2 l) (x-1 beta)
    (x-1 (mul (rec y-0) w x-0 y-1 l-0)) (x-1 l-1)
    (l-1 (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) x-1 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 y-1 l-0 x-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec y-0) w x-0 y-1 l-0))
    (mul (rec y-0) w x-0 y-1 l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 y-1 l-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) x-1 (rec l-1))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 l-0 (rec y-2) x-1 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 l-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0)))
      (send (cat (exp (gen) x-1) (mul (rec y-0) w x-0 y-1 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 1298)
  (parent 988)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 x-1 l-0 y-1 x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l-0 x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 (rec x-1) l-0 x-2 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w x-0 (rec x-1) l-0 (rec y-1) x-2 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 (rec x-1) l-0)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec y-0) w x-0 (rec x-1) l-0 x-2 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l-0 x-2))
    (y ltxb) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec y-0) w x-0 (rec x-1) l-0)) (x-2 beta) (x-2 l-1)
    (l-1 (mul (rec y-0) w x-0 (rec x-1) l-0 (rec y-1) x-2 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 (rec x-1) l-0 x-2 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l-0 x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w x-0 (rec x-1) l-0))
    (mul (rec y-0) w x-0 (rec x-1) l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 (rec x-1) l-0 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 (rec x-1) l-0 x-2 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w x-0 (rec x-1) l-0 (rec y-1) x-2 (rec l-1))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w x-0 (rec x-1) l-0 (rec y-1) x-2 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 (rec x-1) l-0 x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 (rec x-1) l-0)))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 (rec x-1) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 1299)
  (parent 988)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (l-0 y-1 x-0 y-2 x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l-0) y-1 (rec x-0) (rec y-2) x-1
        (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w (rec l-0) y-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l) (x-1 beta)
    (x-1
      (mul (rec y-0) w (rec l-0) y-1 (rec x-0) (rec y-2) x-1 (rec l-1)))
    (x-1 l-1) (l-1 (mul (rec y-0) w (rec l-0) y-1 (rec x-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed
      (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) w (rec l-0) y-1 (rec x-0)))
    (mul (rec y-0) w (rec l-0) y-1 (rec x-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l-0) y-1 (rec x-0) (rec y-2) x-1
           (rec l-1))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l-0) y-1 (rec x-0) (rec y-2) x-1
            (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w (rec l-0) y-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec y-0) w (rec l-0) y-1 (rec x-0)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 1300)
  (parent 989)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (l-0 y-1 l-1 y-2 x-0 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 x-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w (rec l-0) y-1 l-1 x-0 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) x-0 (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec y-0) w (rec l-0) y-1 l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-2)
  (uniq-gen x y y-2 x-0)
  (absent (x (mul (rec y-0) w (rec l-0) y-1 l-1 x-0 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 x-0))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l) (x-0 beta)
    (x-0 (mul (rec y-0) w (rec l-0) y-1 l-1))
    (x-0 (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) x-0 (rec l-2)))
    (x-0 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w (rec l-0) y-1 l-1 x-0 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 x-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec y-0) w (rec l-0) y-1 l-1))
    (mul (rec y-0) w (rec l-0) y-1 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l-0) y-1 l-1 x-0 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) x-0 (rec l-2))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) x-0 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec y-0) w (rec l-0) y-1 l-1)))
      (send (cat (exp (gen) x-0) (mul (rec y-0) w (rec l-0) y-1 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-0)))))
  (label 1301)
  (parent 989)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (l-0 x-0 l-1 y-1 x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w (rec l-0) (rec x-0) l-1 (rec y-1) x-1
        (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec y-0) w (rec l-0) (rec x-0) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-2)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1 (rec l-2)))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
    (y ltxb) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec y-0) w (rec l-0) (rec x-0) l-1)) (x-1 beta)
    (x-1
      (mul (rec y-0) w (rec l-0) (rec x-0) l-1 (rec y-1) x-1 (rec l-2)))
    (x-1 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l-0) (rec x-0) l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w (rec l-0) (rec x-0) l-1))
    (mul (rec y-0) w (rec l-0) (rec x-0) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w (rec l-0) (rec x-0) l-1 (rec y-1) x-1
           (rec l-2))))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w (rec l-0) (rec x-0) l-1 (rec y-1) x-1
            (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) (rec x-0) l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec y-0) w (rec l-0) (rec x-0) l-1)))
      (send
        (cat (exp (gen) x-1)
          (mul (rec y-0) w (rec l-0) (rec x-0) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 1302)
  (parent 989)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta w expt)
    (x-0 l-0 y-0 x-1 y-1 x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l-0) y-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w x-0 (rec l-0) y-0 (rec x-1) x-2 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul w x-0 (rec l-0) y-0 (rec x-1) (rec y-1) x-2 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul w x-0 (rec l-0) y-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul w x-0 (rec l-0) y-0 (rec x-1) x-2 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l-0) y-0 (rec x-1) x-2))
    (y ltxb) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul w x-0 (rec l-0) y-0 (rec x-1) (rec y-1) x-2 (rec l-1)))
    (x-2 beta) (x-2 l-1) (l-1 (mul w x-0 (rec l-0) y-0 (rec x-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w x-0 (rec l-0) y-0 (rec x-1) x-2 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) y-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w x-0 (rec l-0) y-0 (rec x-1)))
    (mul w x-0 (rec l-0) y-0 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w x-0 (rec l-0) y-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w x-0 (rec l-0) y-0 (rec x-1) x-2 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul w x-0 (rec l-0) y-0 (rec x-1) (rec y-1) x-2 (rec l-1))))
      (send
        (cat (exp (gen) y-1)
          (mul w x-0 (rec l-0) y-0 (rec x-1) (rec y-1) x-2 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l-0) y-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l-0) y-0 (rec x-1)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 1303)
  (parent 990)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta w expt)
    (x-0 l-0 y-0 l-1 y-1 x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w x-0 (rec l-0) y-0 l-1 x-1 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul w x-0 (rec l-0) y-0 l-1 (rec y-1) x-1 (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 (rec l-0) y-0 l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-2)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul w x-0 (rec l-0) y-0 l-1 x-1 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1 x-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul w x-0 (rec l-0) y-0 l-1 (rec y-1) x-1 (rec l-2)))
    (x-1 beta) (x-1 (mul w x-0 (rec l-0) y-0 l-1)) (x-1 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w x-0 (rec l-0) y-0 l-1 x-1 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1 x-1)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul w x-0 (rec l-0) y-0 l-1))
    (mul w x-0 (rec l-0) y-0 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w x-0 (rec l-0) y-0 l-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul w x-0 (rec l-0) y-0 l-1 (rec y-1) x-1 (rec l-2))))
      (send
        (cat (exp (gen) y-1)
          (mul w x-0 (rec l-0) y-0 l-1 (rec y-1) x-1 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) y-0 l-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 (rec l-0) y-0 l-1)))
      (send (cat (exp (gen) x-1) (mul w x-0 (rec l-0) y-0 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-1)))))
  (label 1304)
  (parent 990)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta w expt)
    (x-0 l-0 x-1 l-1 y-0 x-2 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w x-0 (rec l-0) (rec x-1) l-1 x-2 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-0)
      (mul w x-0 (rec l-0) (rec x-1) l-1 (rec y-0) x-2 (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul w x-0 (rec l-0) (rec x-1) l-1)))
  (defstrand init 3 (na na-2) (a a) (b b-2) (priv-stor priv-stor-0)
    (l l-2) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-2)
  (uniq-gen x y y-0 x-2)
  (absent (x (mul w x-0 (rec l-0) (rec x-1) l-1 x-2 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-2))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-0 (mul w x-0 (rec l-0) (rec x-1) l-1))
    (y-0 (mul w x-0 (rec l-0) (rec x-1) l-1 (rec y-0) x-2 (rec l-2)))
    (x-2 beta) (x-2 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq b-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w x-0 (rec l-0) (rec x-1) l-1 x-2 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-2)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul w x-0 (rec l-0) (rec x-1) l-1))
    (mul w x-0 (rec l-0) (rec x-1) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w x-0 (rec l-0) (rec x-1) l-1 x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w x-0 (rec l-0) (rec x-1) l-1 x-2 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-0)
         (mul w x-0 (rec l-0) (rec x-1) l-1 (rec y-0) x-2 (rec l-2))))
      (send
        (cat (exp (gen) y-0)
          (mul w x-0 (rec l-0) (rec x-1) l-1 (rec y-0) x-2 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w x-0 (rec l-0) (rec x-1) l-1 x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul w x-0 (rec l-0) (rec x-1) l-1)))
      (send (cat (exp (gen) x-2) (mul w x-0 (rec l-0) (rec x-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a b-2 (exp (gen) x-2)))))
  (label 1305)
  (parent 990)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 rndx) (w expt)
    (l-0 l-1 y-1 l-2 y-2 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 x-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) (mul (rec l) (rec y-0) w l-1 y-1)))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-2 x-0)
  (absent (x (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) x-0)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 x-0))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-0) (x-0 beta)
    (x-0 (mul (rec l) (rec y-0) w l-1 y-1))
    (x-0 (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) x-0))
    (x-0 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) x-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l) (rec y-0) w l-1 y-1))
    (mul (rec l) (rec y-0) w l-1 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) x-0)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l) (rec y-0) w l-1 y-1)))
      (send (cat (exp (gen) x-0) (mul (rec l) (rec y-0) w l-1 y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-0)))))
  (label 1306)
  (parent 994)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 rndx) (w expt)
    (l-0 l-1 x-0 l-2 y-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) (rec y-1) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) (rec y-0) w l-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) x-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec x-0) x-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0)
    (y-1 (mul (rec l) (rec y-0) w l-1 (rec x-0))) (y-1 l-0) (x-1 beta)
    (x-1
      (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) (rec y-1) x-1))
    (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec l) (rec y-0) w l-1 (rec x-0)))
    (mul (rec l) (rec y-0) w l-1 (rec x-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) (rec y-1)
           x-1)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) (rec y-0) w l-1 (rec x-0) (rec l-2) (rec y-1)
            x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) (rec y-0) w l-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) (rec y-0) w l-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-1)))))
  (label 1307)
  (parent 994)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 rndx) (w expt)
    (l-0 y-1 x-0 l-1 y-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) (rec y-2) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l) (rec y-0) w y-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) x-1))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec x-0) x-1)) (y ltxb)
    (l-1 (mul (rec l) (rec y-0) w y-1 (rec x-0))) (y-2 alpha)
    (y-2 chi-0) (y-2 l-0) (x-1 beta)
    (x-1
      (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) (rec y-2) x-1))
    (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec y-0) w y-1 (rec x-0)))
    (mul (rec l) (rec y-0) w y-1 (rec x-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) (rec y-2)
           x-1)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) (rec y-0) w y-1 (rec x-0) (rec l-1) (rec y-2)
            x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l) (rec y-0) w y-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1) (mul (rec l) (rec y-0) w y-1 (rec x-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-1)))))
  (label 1308)
  (parent 994)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 y-0 l-2 y-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w x-0 l-1 y-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 y-0 (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w x-0 l-1 y-0 (rec l-2) (rec y-1) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 y-0)))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec l) w x-0 l-1 y-0 (rec l-2) x-1)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w x-0 l-1 y-0 x-1)) (y ltxb) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul (rec l) w x-0 l-1 y-0 (rec l-2) (rec y-1) x-1)) (y-1 l-0)
    (x-1 beta) (x-1 (mul (rec l) w x-0 l-1 y-0)) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 y-0 (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 y-0 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x-1 (mul (rec l) w x-0 l-1 y-0))
    (mul (rec l) w x-0 l-1 y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 y-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 y-0 (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w x-0 l-1 y-0 (rec l-2) (rec y-1) x-1)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w x-0 l-1 y-0 (rec l-2) (rec y-1) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 y-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 y-0)))
      (send (cat (exp (gen) x-1) (mul (rec l) w x-0 l-1 y-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-1)))))
  (label 1309)
  (parent 995)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 y-0 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-0)
      (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec y-0) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-2)
  (uniq-gen x y y-0 x-2)
  (absent (x (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
    (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 (mul (rec l) w x-0 l-1 (rec x-1)))
    (y-0 (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec y-0) x-2))
    (y-0 l-0) (x-2 beta) (x-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l) w x-0 l-1 (rec x-1)))
    (mul (rec l) w x-0 l-1 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 l-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec y-0) x-2)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l) w x-0 l-1 (rec x-1) (rec l-2) (rec y-0) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-2)))))
  (label 1310)
  (parent 995)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l rndx) (w expt)
    (x-0 l-0 y-0 x-1 l-1 y-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) (rec y-1) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-2) (mul (rec l) w x-0 y-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l-0 l-1)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2))
    (y ltxb) (l-1 (mul (rec l) w x-0 y-0 (rec x-1))) (y-1 alpha)
    (y-1 chi-0)
    (y-1 (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) (rec y-1) x-2))
    (y-1 l-0) (x-2 beta) (x-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w x-0 y-0 (rec x-1)))
    (mul (rec l) w x-0 y-0 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w x-0 y-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) (rec y-1) x-2)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l) w x-0 y-0 (rec x-1) (rec l-1) (rec y-1) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w x-0 y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l) w x-0 y-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l) w x-0 y-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-2)))))
  (label 1311)
  (parent 995)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l l-0 y-1 l-1 y-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) (rec y-2) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-0 y-1)))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) x-1)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1 x-1)) (y ltxb)
    (l-1 (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) (rec y-2) x-1))
    (y-2 alpha) (y-2 chi-0) (y-2 l) (x-1 beta)
    (x-1 (mul (rec y-0) w x-0 l-0 y-1)) (x-1 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec y-0) w x-0 l-0 y-1))
    (mul (rec y-0) w x-0 l-0 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 l-0 y-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) (rec y-2) x-1)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 l-0 y-1 (rec l-1) (rec y-2) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 l-0 y-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-0 y-1)))
      (send (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-0 y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-1)))))
  (label 1312)
  (parent 996)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (l y-0 x-0 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-0) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 2) (0 1)) ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-0 x-0)
  (absent (x x-0) (x l-0) (y chi) (y (mul (rec ltxb) x-0 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l)
    (l-0 (mul (rec y-0) x-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) x-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-0)))))
  (label 1313)
  (parent 996)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l l-0 x-1 l-1 y-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) (rec y-1) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2))
    (y ltxb)
    (l-1 (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) (rec y-1) x-2))
    (y-1 alpha) (y-1 chi-0) (y-1 (mul (rec y-0) w x-0 l-0 (rec x-1)))
    (y-1 l) (x-2 beta) (x-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w x-0 l-0 (rec x-1)))
    (mul (rec y-0) w x-0 l-0 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 l-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) (rec y-1) x-2)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w x-0 l-0 (rec x-1) (rec l-1) (rec y-1) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 l-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-0 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-2)))))
  (label 1314)
  (parent 996)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 b-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l y-1 x-1 l-0 y-2 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) (rec y-2) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a b-1) (b b-2) (priv-stor priv-stor-1)
    (l l) (x x-2) (beta beta))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0)
  (uniq-gen x y y-2 x-2)
  (absent (x (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (y ltxb) (l-0 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (l-0 (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) (rec y-2) x-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l) (x-2 beta) (x-2 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (mul (rec y-0) w x-0 y-1 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) (rec y-2) x-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-0) (rec y-2) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2)))
      (send (cat na-2 b-1 b-2 (exp (gen) x-2)))))
  (label 1315)
  (parent 996)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 y-0 rndx)
    (w expt) (l-1 l-2 y-1 l-3 y-2 x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 x-0))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) x-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-0) (mul (rec l-0) (rec y-0) w l-2 y-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-3)
  (uniq-gen x y y-2 x-0)
  (absent (x (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) x-0)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 x-0))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l) (x-0 beta)
    (x-0 (mul (rec l-0) (rec y-0) w l-2 y-1))
    (x-0 (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) x-0))
    (x-0 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) x-0))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 x-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-0 (mul (rec l-0) (rec y-0) w l-2 y-1))
    (mul (rec l-0) (rec y-0) w l-2 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 x-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) x-0))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) x-0)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 x-0))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) (mul (rec l-0) (rec y-0) w l-2 y-1)))
      (send (cat (exp (gen) x-0) (mul (rec l-0) (rec y-0) w l-2 y-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1316)
  (parent 1000)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 y-0 rndx)
    (w expt) (l-1 l-2 x-0 l-3 y-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) (rec y-1)
        x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l-0) (rec y-0) w l-2 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-3)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) x-1))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
    (y ltxb) (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec l-0) (rec y-0) w l-2 (rec x-0))) (x-1 beta)
    (x-1
      (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) (rec y-1) x-1))
    (x-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed
      (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec l-0) (rec y-0) w l-2 (rec x-0)))
    (mul (rec l-0) (rec y-0) w l-2 (rec x-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) (rec y-1)
           x-1)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) (rec y-0) w l-2 (rec x-0) (rec l-3) (rec y-1)
            x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l-0) (rec y-0) w l-2 (rec x-0))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) (rec y-0) w l-2 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1317)
  (parent 1000)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 y-0 rndx)
    (w expt) (l-1 y-1 x-0 l-2 y-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) (rec y-2)
        x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-1) (mul (rec l-0) (rec y-0) w y-1 (rec x-0))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-2)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) x-1))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
    (y ltxb) (l-2 (mul (rec l-0) (rec y-0) w y-1 (rec x-0))) (y-2 alpha)
    (y-2 chi-0) (y-2 l) (x-1 beta)
    (x-1
      (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) (rec y-2) x-1))
    (x-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec x-0) x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) (rec y-0) w y-1 (rec x-0)))
    (mul (rec l-0) (rec y-0) w y-1 (rec x-0)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) (rec y-2)
           x-1)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) (rec y-0) w y-1 (rec x-0) (rec l-2) (rec y-2)
            x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec x-0) x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) x-1) (mul (rec l-0) (rec y-0) w y-1 (rec x-0))))
      (send
        (cat (exp (gen) x-1)
          (mul (rec l-0) (rec y-0) w y-1 (rec x-0)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1318)
  (parent 1000)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 rndx) (w expt)
    (x-0 l-1 l-2 y-0 l-3 y-1 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) (rec y-1) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec l-0) w x-0 l-2 y-0)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-3)
  (uniq-gen x y y-1 x-1)
  (absent (x (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) x-1)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0 x-1)) (y ltxb)
    (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) (rec y-1) x-1))
    (x-1 beta) (x-1 (mul (rec l-0) w x-0 l-2 y-0)) (x-1 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec l-0) w x-0 l-2 y-0))
    (mul (rec l-0) w x-0 l-2 y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) w x-0 l-2 y-0 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) (rec y-1) x-1)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) w x-0 l-2 y-0 (rec l-3) (rec y-1) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 l-2 y-0 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec l-0) w x-0 l-2 y-0)))
      (send (cat (exp (gen) x-1) (mul (rec l-0) w x-0 l-2 y-0))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1319)
  (parent 1001)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 rndx) (w expt)
    (x-0 l-1 l-2 x-1 l-3 y-0 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-0)
      (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec y-0) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec l-0) w x-0 l-2 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-3)
  (uniq-gen x y y-0 x-2)
  (absent (x (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-2)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-2))
    (y ltxb) (y-0 alpha) (y-0 chi-0) (y-0 l)
    (y-0 (mul (rec l-0) w x-0 l-2 (rec x-1)))
    (y-0 (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec y-0) x-2))
    (x-2 beta) (x-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-0 (mul (rec l-0) w x-0 l-2 (rec x-1)))
    (mul (rec l-0) w x-0 l-2 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w x-0 l-2 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-0)
         (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec y-0) x-2)))
      (send
        (cat (exp (gen) y-0)
          (mul (rec l-0) w x-0 l-2 (rec x-1) (rec l-3) (rec y-0) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 l-2 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l-0) w x-0 l-2 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l-0) w x-0 l-2 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1320)
  (parent 1001)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (l-0 rndx) (w expt)
    (x-0 l-1 y-0 x-1 l-2 y-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w x-0 y-0 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) (rec y-1) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec l-0) w x-0 y-0 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-1 l-2)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l-0) w x-0 y-0 (rec x-1) x-2))
    (y ltxb) (l-2 (mul (rec l-0) w x-0 y-0 (rec x-1))) (y-1 alpha)
    (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) (rec y-1) x-2))
    (x-2 beta) (x-2 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv a-2 l-1))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w x-0 y-0 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) w x-0 y-0 (rec x-1)))
    (mul (rec l-0) w x-0 y-0 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w x-0 y-0 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) (rec y-1) x-2)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec l-0) w x-0 y-0 (rec x-1) (rec l-2) (rec y-1) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w x-0 y-0 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec l-0) w x-0 y-0 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec l-0) w x-0 y-0 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-1)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-1)))))
  (label 1321)
  (parent 1001)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l-0 l-1 y-1 l-2 y-2 x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1 x-1))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) x-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) (rec y-2) x-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-1 y-1)))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-2)
  (uniq-gen x y y-2 x-1)
  (absent (x (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) x-1)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1 x-1)) (y ltxb)
    (l-2 (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) (rec y-2) x-1))
    (y-2 alpha) (y-2 chi-0) (y-2 l) (x-1 beta)
    (x-1 (mul (rec y-0) w x-0 l-1 y-1)) (x-1 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) x-1))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1 x-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence x-1 (mul (rec y-0) w x-0 l-1 y-1))
    (mul (rec y-0) w x-0 l-1 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w x-0 l-1 y-1 x-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) x-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) (rec y-2) x-1)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 l-1 y-1 (rec l-2) (rec y-2) x-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 l-1 y-1 x-1))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-1 y-1)))
      (send (cat (exp (gen) x-1) (mul (rec y-0) w x-0 l-1 y-1))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1322)
  (parent 1002)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt)
    (l-0 y-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta x-0)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) x-0)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1))
    ((9 2) (3 0)) ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-0 x-0)
  (absent (x x-0) (x l-1) (y chi) (y (mul (rec ltxb) x-0 l-1)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (x-0 beta) (x-0 l-0)
    (l-1 (mul (rec y-0) x-0)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed x-0)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) x-0) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) x-0)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) x-0))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1323)
  (parent 1002)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l-0 l-1 x-1 l-2 y-1 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 l-1 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-1)
      (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) (rec y-1) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-2)
  (uniq-gen x y y-1 x-2)
  (absent (x (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) x-2)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 l-1 (rec x-1) x-2))
    (y ltxb)
    (l-2 (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) (rec y-1) x-2))
    (y-1 alpha) (y-1 chi-0) (y-1 l)
    (y-1 (mul (rec y-0) w x-0 l-1 (rec x-1))) (x-2 beta) (x-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 l-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-1 (mul (rec y-0) w x-0 l-1 (rec x-1)))
    (mul (rec y-0) w x-0 l-1 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 l-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-1)
         (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) (rec y-1) x-2)))
      (send
        (cat (exp (gen) y-1)
          (mul (rec y-0) w x-0 l-1 (rec x-1) (rec l-2) (rec y-1) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 l-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 l-1 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1324)
  (parent 1002)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (beta expt) (y-0 rndx) (w expt)
    (x-0 l-0 y-1 x-1 l-1 y-2 x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) x-2))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) (rec y-2) x-2)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
  (defstrand init 3 (na na-2) (a a-2) (b b-2) (priv-stor priv-stor-2)
    (l l-0) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 2) (0 1)) ((9 2) (3 0))
    ((9 2) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 na-2 l l-0 l-1)
  (uniq-gen x y y-2 x-2)
  (absent (x (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) x-2)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
    (y ltxb) (l-1 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (l-1 (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) (rec y-2) x-2))
    (y-2 alpha) (y-2 chi-0) (y-2 l) (x-2 beta) (x-2 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv a-2 l-0))
  (facts (neq a-2 b-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq b-2 a-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) x-2))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) w x-0 y-1 (rec x-1)))
    (mul (rec y-0) w x-0 y-1 (rec x-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w x-0 y-1 (rec x-1) x-2))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) x-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) (rec y-2) x-2)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w x-0 y-1 (rec x-1) (rec l-1) (rec y-2) x-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w x-0 y-1 (rec x-1) x-2))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1))))
      (send (cat (exp (gen) x-2) (mul (rec y-0) w x-0 y-1 (rec x-1)))))
    ((load priv-stor-2 (cat pt-4 (pv a-2 l-0)))
      (recv
        (sig (body b-2 (exp (gen) beta) (pubk "sig" b-2))
          (privk "sig" b-2))) (send (cat na-2 a-2 b-2 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-2 l-0)))))
  (label 1325)
  (parent 1002)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 y-2 y-3 y-4 y-5 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l-0)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-4)
      (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l-0))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-4) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-0) (y y-5) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-4 y-5)
  (absent (x (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l-0))) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (y ltxb) (y-4 alpha) (y-4 chi-0) (y-4 l) (y-5 alpha-0) (y-5 chi-1)
    (y-5 l-0) (l-0 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (l-0 (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l-0))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l-0)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (mul (rec y-0) w y-1 y-2 (rec y-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 y-2 (rec y-3) y-5 (rec l-0)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-4)
         (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l-0))))
      (send
        (cat (exp (gen) y-4)
          (mul (rec y-0) w y-1 y-2 (rec y-3) (rec y-4) y-5 (rec l-0)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-4)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-4)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
      (send (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-5)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-5))))))))
  (label 1326)
  (parent 1010)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 y-2 l-0 y-3 y-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 y-2 l-0 y-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) y-4 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 y-2 l-0 y-4 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4)) (y ltxb)
    (y-3 alpha) (y-3 chi-0) (y-3 l) (y-4 alpha-0) (y-4 chi-1)
    (y-4 (mul (rec y-0) w y-1 y-2 l-0)) (y-4 l-1)
    (l-1 (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) y-4 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 y-2 l-0 y-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-4 (mul (rec y-0) w y-1 y-2 l-0))
    (mul (rec y-0) w y-1 y-2 l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 y-2 l-0 y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) y-4 (rec l-1))))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 y-2 l-0 (rec y-3) y-4 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 l-0 y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l-0)))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 y-2 l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1327)
  (parent 1010)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 y-2 l-0 y-3 y-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l-0 y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 (rec y-2) l-0 y-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 (rec y-2) l-0 (rec y-3) y-4 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec y-0) w y-1 (rec y-2) l-0)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 (rec y-2) l-0 y-4 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l-0 y-4))
    (y ltxb) (y-3 alpha) (y-3 chi-0) (y-3 l)
    (y-3 (mul (rec y-0) w y-1 (rec y-2) l-0)) (y-4 alpha-0) (y-4 chi-1)
    (y-4 l-1)
    (l-1 (mul (rec y-0) w y-1 (rec y-2) l-0 (rec y-3) y-4 (rec l-1))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 (rec y-2) l-0 y-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l-0 y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) w y-1 (rec y-2) l-0))
    (mul (rec y-0) w y-1 (rec y-2) l-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 (rec y-2) l-0 y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 (rec y-2) l-0 y-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 (rec y-2) l-0 (rec y-3) y-4 (rec l-1))))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 (rec y-2) l-0 (rec y-3) y-4 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 (rec y-2) l-0 y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 (rec y-2) l-0)))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 (rec y-2) l-0))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1328)
  (parent 1010)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (l-0 y-1 y-2 y-3 y-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w (rec l-0) y-1 (rec y-2) (rec y-3) y-4
        (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec y-0) w (rec l-0) y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4 (rec l-1)))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
    (y ltxb) (y-3 alpha) (y-3 chi-0) (y-3 l) (y-4 alpha-0) (y-4 chi-1)
    (y-4
      (mul (rec y-0) w (rec l-0) y-1 (rec y-2) (rec y-3) y-4 (rec l-1)))
    (y-4 l-1) (l-1 (mul (rec y-0) w (rec l-0) y-1 (rec y-2))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed
      (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) w (rec l-0) y-1 (rec y-2)))
    (mul (rec y-0) w (rec l-0) y-1 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w (rec l-0) y-1 (rec y-2) (rec y-3) y-4
           (rec l-1))))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w (rec l-0) y-1 (rec y-2) (rec y-3) y-4
            (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-4) (mul (rec y-0) w (rec l-0) y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-4)
          (mul (rec y-0) w (rec l-0) y-1 (rec y-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1329)
  (parent 1011)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (l-0 y-1 l-1 y-2 y-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w (rec l-0) y-1 l-1 y-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w (rec l-0) y-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w (rec l-0) y-1 l-1 y-3 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l) (y-3 alpha-0) (y-3 chi-1)
    (y-3 (mul (rec y-0) w (rec l-0) y-1 l-1))
    (y-3 (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2)))
    (y-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w (rec l-0) y-1 l-1 y-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) w (rec l-0) y-1 l-1))
    (mul (rec y-0) w (rec l-0) y-1 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l-0) y-1 l-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l-0) y-1 l-1 y-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec y-0) w (rec l-0) y-1 l-1)))
      (send (cat (exp (gen) y-3) (mul (rec y-0) w (rec l-0) y-1 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-2))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1330)
  (parent 1011)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (l-0 y-1 l-1 y-2 y-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec y-0) w (rec l-0) (rec y-1) l-1 (rec y-2) y-3
        (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec y-0) w (rec l-0) (rec y-1) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3 (rec l-2)))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-2 (mul (rec y-0) w (rec l-0) (rec y-1) l-1)) (y-3 alpha-0)
    (y-3 chi-1)
    (y-3
      (mul (rec y-0) w (rec l-0) (rec y-1) l-1 (rec y-2) y-3 (rec l-2)))
    (y-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec y-0) w (rec l-0) (rec y-1) l-1 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec y-0) w (rec l-0) (rec y-1) l-1))
    (mul (rec y-0) w (rec l-0) (rec y-1) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec y-0) w (rec l-0) (rec y-1) l-1 (rec y-2) y-3
           (rec l-2))))
      (send
        (cat (exp (gen) y-2)
          (mul (rec y-0) w (rec l-0) (rec y-1) l-1 (rec y-2) y-3
            (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w (rec l-0) (rec y-1) l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec y-0) w (rec l-0) (rec y-1) l-1)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w (rec l-0) (rec y-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-2))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1331)
  (parent 1011)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 w expt)
    (y-0 l-0 y-1 y-2 y-3 y-4 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l-0) y-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul w y-0 (rec l-0) y-1 (rec y-2) y-4 (rec l-1)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul w y-0 (rec l-0) y-1 (rec y-2) (rec y-3) y-4 (rec l-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul w y-0 (rec l-0) y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-1) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul w y-0 (rec l-0) y-1 (rec y-2) y-4 (rec l-1))) (x l-1)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l-0) y-1 (rec y-2) y-4))
    (y ltxb) (y-3 alpha) (y-3 chi-0) (y-3 l)
    (y-3 (mul w y-0 (rec l-0) y-1 (rec y-2) (rec y-3) y-4 (rec l-1)))
    (y-4 alpha-0) (y-4 chi-1) (y-4 l-1)
    (l-1 (mul w y-0 (rec l-0) y-1 (rec y-2))))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul w y-0 (rec l-0) y-1 (rec y-2) y-4 (rec l-1)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul w y-0 (rec l-0) y-1 (rec y-2)))
    (mul w y-0 (rec l-0) y-1 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w y-0 (rec l-0) y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w y-0 (rec l-0) y-1 (rec y-2) y-4 (rec l-1)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul w y-0 (rec l-0) y-1 (rec y-2) (rec y-3) y-4 (rec l-1))))
      (send
        (cat (exp (gen) y-3)
          (mul w y-0 (rec l-0) y-1 (rec y-2) (rec y-3) y-4 (rec l-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul w y-0 (rec l-0) y-1 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul w y-0 (rec l-0) y-1 (rec y-2)))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1332)
  (parent 1012)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 w expt)
    (y-0 l-0 y-1 l-1 y-2 y-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w y-0 (rec l-0) y-1 l-1 y-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul w y-0 (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul w y-0 (rec l-0) y-1 l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul w y-0 (rec l-0) y-1 l-1 y-3 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1 y-3)) (y ltxb)
    (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-2 (mul w y-0 (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2)))
    (y-3 alpha-0) (y-3 chi-1) (y-3 (mul w y-0 (rec l-0) y-1 l-1))
    (y-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w y-0 (rec l-0) y-1 l-1 y-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul w y-0 (rec l-0) y-1 l-1))
    (mul w y-0 (rec l-0) y-1 l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) w y-0 (rec l-0) y-1 l-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul w y-0 (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2))))
      (send
        (cat (exp (gen) y-2)
          (mul w y-0 (rec l-0) y-1 l-1 (rec y-2) y-3 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) y-1 l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul w y-0 (rec l-0) y-1 l-1)))
      (send (cat (exp (gen) y-3) (mul w y-0 (rec l-0) y-1 l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-2))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1333)
  (parent 1012)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 w expt)
    (y-0 l-0 y-1 l-1 y-2 y-3 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul w y-0 (rec l-0) (rec y-1) l-1 y-3 (rec l-2)))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul w y-0 (rec l-0) (rec y-1) l-1 (rec y-2) y-3 (rec l-2))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul w y-0 (rec l-0) (rec y-1) l-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b a)
    (priv-stor priv-stor-0) (l l-2) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul w y-0 (rec l-0) (rec y-1) l-1 y-3 (rec l-2))) (x l-2)
    (y chi) (y (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-2 (mul w y-0 (rec l-0) (rec y-1) l-1))
    (y-2 (mul w y-0 (rec l-0) (rec y-1) l-1 (rec y-2) y-3 (rec l-2)))
    (y-3 alpha-0) (y-3 chi-1) (y-3 l-2))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l))
  (facts (neq a a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-2 a)
    (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul w y-0 (rec l-0) (rec y-1) l-1 y-3 (rec l-2)))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-3)))
  (leads-to ((2 1) (1 0)) ((2 1) (9 0)) ((5 1) (4 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul w y-0 (rec l-0) (rec y-1) l-1))
    (mul w y-0 (rec l-0) (rec y-1) l-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) w y-0 (rec l-0) (rec y-1) l-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul w y-0 (rec l-0) (rec y-1) l-1 y-3 (rec l-2)))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul w y-0 (rec l-0) (rec y-1) l-1 (rec y-2) y-3 (rec l-2))))
      (send
        (cat (exp (gen) y-2)
          (mul w y-0 (rec l-0) (rec y-1) l-1 (rec y-2) y-3 (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul w y-0 (rec l-0) (rec y-1) l-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul w y-0 (rec l-0) (rec y-1) l-1)))
      (send (cat (exp (gen) y-3) (mul w y-0 (rec l-0) (rec y-1) l-1))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2))) (recv (cat na-2 a-2 a (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 a
            (hash (exp (gen) (mul alpha-0 l-2))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1334)
  (parent 1012)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l y-0 rndx)
    (w expt) (l-0 l-1 y-1 l-2 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 y-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec l) (rec y-0) w l-1 y-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) y-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l-0) (y-3 alpha-0) (y-3 chi-1)
    (y-3 (mul (rec l) (rec y-0) w l-1 y-1))
    (y-3 (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) y-3))
    (y-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec l) (rec y-0) w l-1 y-1))
    (mul (rec l) (rec y-0) w l-1 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) (rec y-0) w l-1 y-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) (rec y-0) w l-1 y-1 (rec l-2) (rec y-2) y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l) (rec y-0) w l-1 y-1)))
      (send (cat (exp (gen) y-3) (mul (rec l) (rec y-0) w l-1 y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1335)
  (parent 1016)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l y-0 rndx)
    (w expt) (l-0 l-1 y-1 l-2 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec y-1) y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) (rec y-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec l) (rec y-0) w l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) y-3))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec y-1) y-3)) (y ltxb)
    (y-2 alpha) (y-2 chi-0)
    (y-2 (mul (rec l) (rec y-0) w l-1 (rec y-1))) (y-2 l-0)
    (y-3 alpha-0) (y-3 chi-1)
    (y-3
      (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) (rec y-2) y-3))
    (y-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec y-1) y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec l) (rec y-0) w l-1 (rec y-1)))
    (mul (rec l) (rec y-0) w l-1 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec y-0) w l-1 (rec y-1) y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) (rec y-2)
           y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) (rec y-0) w l-1 (rec y-1) (rec l-2) (rec y-2)
            y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec l) (rec y-0) w l-1 (rec y-1))))
      (send
        (cat (exp (gen) y-3) (mul (rec l) (rec y-0) w l-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1336)
  (parent 1016)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l y-0 rndx)
    (w expt) (l-0 y-1 y-2 l-1 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) (rec y-3) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec l) (rec y-0) w y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) y-4))
    (x l-1) (y chi)
    (y (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec y-2) y-4)) (y ltxb)
    (l-1 (mul (rec l) (rec y-0) w y-1 (rec y-2))) (y-3 alpha)
    (y-3 chi-0) (y-3 l-0) (y-4 alpha-0) (y-4 chi-1)
    (y-4
      (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) (rec y-3) y-4))
    (y-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) (rec y-0) w y-1 (rec y-2)))
    (mul (rec l) (rec y-0) w y-1 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l) (rec y-0) w y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) (rec y-3)
           y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec l) (rec y-0) w y-1 (rec y-2) (rec l-1) (rec y-3)
            y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) (rec y-0) w y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-4) (mul (rec l) (rec y-0) w y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-4) (mul (rec l) (rec y-0) w y-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1337)
  (parent 1016)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 l-1 y-1 l-2 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l) w y-0 l-1 y-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 y-1 (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) w y-0 l-1 y-1 (rec l-2) (rec y-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 y-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l) w y-0 l-1 y-1 (rec l-2) y-3)) (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l) w y-0 l-1 y-1 y-3)) (y ltxb) (y-2 alpha)
    (y-2 chi-0)
    (y-2 (mul (rec l) w y-0 l-1 y-1 (rec l-2) (rec y-2) y-3)) (y-2 l-0)
    (y-3 alpha-0) (y-3 chi-1) (y-3 (mul (rec l) w y-0 l-1 y-1))
    (y-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 y-1 (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 y-1 y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence y-3 (mul (rec l) w y-0 l-1 y-1))
    (mul (rec l) w y-0 l-1 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 y-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 y-1 (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) w y-0 l-1 y-1 (rec l-2) (rec y-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) w y-0 l-1 y-1 (rec l-2) (rec y-2) y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 y-1)))
      (send (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1338)
  (parent 1017)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 l-1 y-1 l-2 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec y-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-2)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0)
    (y-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (y-2 (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec y-2) y-3))
    (y-2 l-0) (y-3 alpha-0) (y-3 chi-1) (y-3 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec l) w y-0 l-1 (rec y-1)))
    (mul (rec l) w y-0 l-1 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 l-1 (rec y-1) y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec y-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l) w y-0 l-1 (rec y-1) (rec l-2) (rec y-2) y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 l-1 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 (rec y-1))))
      (send (cat (exp (gen) y-3) (mul (rec l) w y-0 l-1 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-3))))))))
  (label 1339)
  (parent 1017)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (l rndx)
    (w expt) (y-0 l-0 y-1 y-2 l-1 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) (rec y-3) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener
    (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec l) w y-0 y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l-0 l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4))
    (y ltxb) (l-1 (mul (rec l) w y-0 y-1 (rec y-2))) (y-3 alpha)
    (y-3 chi-0)
    (y-3 (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) (rec y-3) y-4))
    (y-3 l-0) (y-4 alpha-0) (y-4 chi-1) (y-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l-0))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec l) w y-0 y-1 (rec y-2)))
    (mul (rec l) w y-0 y-1 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l) w y-0 y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) (rec y-3) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec l) w y-0 y-1 (rec y-2) (rec l-1) (rec y-3) y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-0))))
    ((recv
       (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l) w y-0 y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec l) w y-0 y-1 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul (rec l) w y-0 y-1 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1340)
  (parent 1017)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l l-0 y-2 l-1 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2 y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) (rec y-3) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 y-2)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) y-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2 y-4)) (y ltxb)
    (l-1 (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) (rec y-3) y-4))
    (y-3 alpha) (y-3 chi-0) (y-3 l) (y-4 alpha-0) (y-4 chi-1)
    (y-4 (mul (rec y-0) w y-1 l-0 y-2)) (y-4 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2 y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-4 (mul (rec y-0) w y-1 l-0 y-2))
    (mul (rec y-0) w y-1 l-0 y-2) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 l-0 y-2 y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) (rec y-3) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 l-0 y-2 (rec l-1) (rec y-3) y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l-0 y-2 y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 y-2)))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 y-2))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1341)
  (parent 1018)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt)
    (l y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta y-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) l-0))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-1) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((5 1) (9 0)) ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0))
    ((9 3) (0 1)) ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-0 y-1)
  (absent (x y-1) (x l-0) (y chi) (y (mul (rec ltxb) y-1 l-0)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l)
    (l-0 (mul (rec y-0) y-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed y-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-1 l-0)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 2 ltx-gen 2) l-1 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig (body b-0 (exp (gen) y-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) y-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-1 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) l-0)) (send (cat (exp (gen) y-1) l-0)))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-1))))))))
  (label 1342)
  (parent 1018)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l l-0 y-2 l-1 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) (rec y-3) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-4) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4))
    (y ltxb)
    (l-1 (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) (rec y-3) y-4))
    (y-3 alpha) (y-3 chi-0) (y-3 (mul (rec y-0) w y-1 l-0 (rec y-2)))
    (y-3 l) (y-4 alpha-0) (y-4 chi-1) (y-4 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) w y-1 l-0 (rec y-2)))
    (mul (rec y-0) w y-1 l-0 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 l-0 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) (rec y-3) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 l-0 (rec y-2) (rec l-1) (rec y-3) y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l-0 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-0 (rec y-2)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-4))))))))
  (label 1343)
  (parent 1018)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l y-2 y-3 l-0 y-4 y-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x)
    (beta (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener
    (cat (exp (gen) y-4)
      (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) (rec y-4) y-5)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-4) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-5) (alpha alpha-0) (chi chi-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((5 1) (9 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0)
  (uniq-gen x y y-4 y-5)
  (absent (x (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5)) (x l-0)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (y ltxb) (l-0 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (l-0 (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) (rec y-4) y-5))
    (y-4 alpha) (y-4 chi-0) (y-4 l) (y-5 alpha-0) (y-5 chi-1) (y-5 l))
  (precur (3 0) (8 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv b-1 l))
  (facts (neq b-1 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-1) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))) (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((5 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-0 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (mul (rec y-0) w y-1 y-2 (rec y-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) y-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv
       (cat (exp (gen) y-4)
         (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) (rec y-4) y-5)))
      (send
        (cat (exp (gen) y-4)
          (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-0) (rec y-4) y-5))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-4)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-4)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
      (send (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-1 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-5)
          (enc na-2 nb-2 a-2 b-1
            (hash (exp (gen) (mul alpha-0 l))
              (exp (gen) (mul chi-1 y-5))))))))
  (label 1344)
  (parent 1018)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 rndx) (w expt) (l-1 l-2 y-1 l-3 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec l-0) (rec y-0) w l-2 y-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-3)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) y-3)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l) (y-3 alpha-0) (y-3 chi-1)
    (y-3 (mul (rec l-0) (rec y-0) w l-2 y-1))
    (y-3 (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) y-3))
    (y-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec l-0) (rec y-0) w l-2 y-1))
    (mul (rec l-0) (rec y-0) w l-2 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 y-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) (rec y-0) w l-2 y-1 (rec l-3) (rec y-2) y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l-0) (rec y-0) w l-2 y-1)))
      (send (cat (exp (gen) y-3) (mul (rec l-0) (rec y-0) w l-2 y-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1345)
  (parent 1022)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 rndx) (w expt) (l-1 l-2 y-1 l-3 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) (rec y-2)
        y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec l-0) (rec y-0) w l-2 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-3)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) y-3))
    (x l-3) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-2 (mul (rec l-0) (rec y-0) w l-2 (rec y-1))) (y-3 alpha-0)
    (y-3 chi-1)
    (y-3
      (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) (rec y-2) y-3))
    (y-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed
      (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) y-3))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec y-1) y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec l-0) (rec y-0) w l-2 (rec y-1)))
    (mul (rec l-0) (rec y-0) w l-2 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) (rec y-2)
           y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) (rec y-0) w l-2 (rec y-1) (rec l-3) (rec y-2)
            y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w l-2 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-3) (mul (rec l-0) (rec y-0) w l-2 (rec y-1))))
      (send
        (cat (exp (gen) y-3)
          (mul (rec l-0) (rec y-0) w l-2 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1346)
  (parent 1022)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 rndx) (w expt) (l-1 y-1 y-2 l-2 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) (rec y-3)
        y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec l-0) (rec y-0) w y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-2)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) y-4))
    (x l-2) (y chi)
    (y (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
    (y ltxb) (l-2 (mul (rec l-0) (rec y-0) w y-1 (rec y-2))) (y-3 alpha)
    (y-3 chi-0) (y-3 l) (y-4 alpha-0) (y-4 chi-1)
    (y-4
      (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) (rec y-3) y-4))
    (y-4 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed
      (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) y-4))
    (undisclosed ltxb)
    (undisclosed
      (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) (rec y-0) w y-1 (rec y-2)))
    (mul (rec l-0) (rec y-0) w y-1 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash
              (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) (rec y-3)
           y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec l-0) (rec y-0) w y-1 (rec y-2) (rec l-2) (rec y-3)
            y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) (rec y-0) w y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) y-4) (mul (rec l-0) (rec y-0) w y-1 (rec y-2))))
      (send
        (cat (exp (gen) y-4)
          (mul (rec l-0) (rec y-0) w y-1 (rec y-2)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1347)
  (parent 1022)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (l-0 rndx)
    (w expt) (y-0 l-1 l-2 y-1 l-3 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1 y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) (rec y-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-3) (mul (rec l-0) w y-0 l-2 y-1)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-3)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) y-3)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1 y-3)) (y ltxb)
    (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-2 (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) (rec y-2) y-3))
    (y-3 alpha-0) (y-3 chi-1) (y-3 (mul (rec l-0) w y-0 l-2 y-1))
    (y-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1 y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec l-0) w y-0 l-2 y-1))
    (mul (rec l-0) w y-0 l-2 y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec l-0) w y-0 l-2 y-1 y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) (rec y-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) w y-0 l-2 y-1 (rec l-3) (rec y-2) y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 l-2 y-1 y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l-0) w y-0 l-2 y-1)))
      (send (cat (exp (gen) y-3) (mul (rec l-0) w y-0 l-2 y-1))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1348)
  (parent 1023)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (l-0 rndx)
    (w expt) (y-0 l-1 l-2 y-1 l-3 y-2 y-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-3))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-3) (x x)
    (beta (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-3))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-3))
  (deflistener
    (cat (exp (gen) y-2)
      (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec y-2) y-3)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-2) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-3) (mul (rec l-0) w y-0 l-2 (rec y-1))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-3) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-3)
  (uniq-gen x y y-2 y-3)
  (absent (x (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-3)) (x l-3)
    (y chi) (y (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-3))
    (y ltxb) (y-2 alpha) (y-2 chi-0) (y-2 l)
    (y-2 (mul (rec l-0) w y-0 l-2 (rec y-1)))
    (y-2 (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec y-2) y-3))
    (y-3 alpha-0) (y-3 chi-1) (y-3 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-3) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
        (exp (gen) (mul y chi)))) (neq l-3 ltxb) (undisclosed l-3)
    (undisclosed (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-3))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-3)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-2 (mul (rec l-0) w y-0 l-2 (rec y-1)))
    (mul (rec l-0) w y-0 l-2 (rec y-1)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w y-0 l-2 (rec y-1) y-3))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-3)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) y-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-3))))
    ((recv
       (cat (exp (gen) y-2)
         (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec y-2) y-3)))
      (send
        (cat (exp (gen) y-2)
          (mul (rec l-0) w y-0 l-2 (rec y-1) (rec l-3) (rec y-2) y-3))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-2)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-2)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 l-2 (rec y-1) y-3))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-3) (mul (rec l-0) w y-0 l-2 (rec y-1))))
      (send (cat (exp (gen) y-3) (mul (rec l-0) w y-0 l-2 (rec y-1)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-3)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-3)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1349)
  (parent 1023)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (l-0 rndx)
    (w expt) (y-0 l-1 y-1 y-2 l-2 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec l-0) w y-0 y-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) (rec y-3) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec l-0) w y-0 y-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-1) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-1 l-2)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) y-4)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec l-0) w y-0 y-1 (rec y-2) y-4))
    (y ltxb) (l-2 (mul (rec l-0) w y-0 y-1 (rec y-2))) (y-3 alpha)
    (y-3 chi-0) (y-3 l)
    (y-3 (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) (rec y-3) y-4))
    (y-4 alpha-0) (y-4 chi-1) (y-4 l-1))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv b-2 l-1))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec l-0) w y-0 y-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-2 (mul (rec l-0) w y-0 y-1 (rec y-2)))
    (mul (rec l-0) w y-0 y-1 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec l-0) w y-0 y-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) (rec y-3) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec l-0) w y-0 y-1 (rec y-2) (rec l-2) (rec y-3) y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec l-0) w y-0 y-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec l-0) w y-0 y-1 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul (rec l-0) w y-0 y-1 (rec y-2)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-1)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-1)))))
  (label 1350)
  (parent 1023)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l-0 l-1 y-2 l-2 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2 y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) (rec y-3) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
      (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-1 y-2)))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-2)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) y-4)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2 y-4)) (y ltxb)
    (l-2 (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) (rec y-3) y-4))
    (y-3 alpha) (y-3 chi-0) (y-3 l) (y-4 alpha-0) (y-4 chi-1)
    (y-4 (mul (rec y-0) w y-1 l-1 y-2)) (y-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2 y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-4 (mul (rec y-0) w y-1 l-1 y-2))
    (mul (rec y-0) w y-1 l-1 y-2) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen) (mul (rec ltxb) (rec y-0) w y-1 l-1 y-2 y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) (rec y-3) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 l-1 y-2 (rec l-2) (rec y-3) y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l-1 y-2 y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-1 y-2)))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-1 y-2))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1351)
  (parent 1024)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt)
    (l-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-1 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta y-1)
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) y-1)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener (hash (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-1) l-1))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-1) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 3) (0 1)) ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0))
    ((6 1) (1 3)) ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1))
    ((9 3) (3 0)) ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-0 y-1)
  (absent (x y-1) (x l-1) (y chi) (y (mul (rec ltxb) y-1 l-1)) (y ltxb)
    (y-0 alpha) (y-0 chi-0) (y-0 l) (y-1 alpha-0) (y-1 chi-1) (y-1 l-0)
    (l-1 (mul (rec y-0) y-1)))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed y-1)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-1 l-1)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 2 ltx-gen 2) l-2 (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-1 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig (body b-0 (exp (gen) y-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv (cat (exp (gen) y-0) (mul (rec y-0) y-1)))
      (send (cat (exp (gen) y-0) (mul (rec y-0) y-1))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv (hash (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-1 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-1) l-1)) (send (cat (exp (gen) y-1) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-1)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-1)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1352)
  (parent 1024)
  (unrealized (0 0) (0 1) (1 3) (3 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l-0 l-1 y-2 l-2 y-3 y-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 l-1 (rec y-2) y-4))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x)
    (beta (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) y-4))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-2))
  (deflistener
    (cat (exp (gen) y-3)
      (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) (rec y-3) y-4)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-3) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-1 (rec y-2))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-4) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-2)
  (uniq-gen x y y-3 y-4)
  (absent (x (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) y-4)) (x l-2)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 l-1 (rec y-2) y-4))
    (y ltxb)
    (l-2 (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) (rec y-3) y-4))
    (y-3 alpha) (y-3 chi-0) (y-3 l)
    (y-3 (mul (rec y-0) w y-1 l-1 (rec y-2))) (y-4 alpha-0) (y-4 chi-1)
    (y-4 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-2) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
        (exp (gen) (mul y chi)))) (neq l-2 ltxb) (undisclosed l-2)
    (undisclosed (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) y-4))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 l-1 (rec y-2) y-4)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence y-3 (mul (rec y-0) w y-1 l-1 (rec y-2)))
    (mul (rec y-0) w y-1 l-1 (rec y-2)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 l-1 (rec y-2) y-4))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-2)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) y-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-2))))
    ((recv
       (cat (exp (gen) y-3)
         (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) (rec y-3) y-4)))
      (send
        (cat (exp (gen) y-3)
          (mul (rec y-0) w y-1 l-1 (rec y-2) (rec l-2) (rec y-3) y-4))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-3)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-3)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 l-1 (rec y-2) y-4))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-1 (rec y-2))))
      (send (cat (exp (gen) y-4) (mul (rec y-0) w y-1 l-1 (rec y-2)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-4)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-4)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1353)
  (parent 1024)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg)
    (na nb na-0 nb-0 na-1 nb-1 na-2 nb-2 data)
    (a b a-0 b-0 a-1 b-1 a-2 b-2 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi alpha chi-0 expt) (ltxb l rndx) (alpha-0 chi-1 expt) (y-0 rndx)
    (w expt) (y-1 l-0 y-2 y-3 l-1 y-4 y-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y)
    (alpha (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x)
    (beta (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) y-5))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-1))
  (deflistener
    (cat (exp (gen) y-4)
      (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) (rec y-4) y-5)))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-1) (l l) (y y-4) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l))
  (deflistener
    (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
      (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
  (defstrand resp 4 (na na-2) (nb nb-2) (a a-2) (b b-2)
    (priv-stor priv-stor-2) (l l-0) (y y-5) (alpha alpha-0) (chi chi-1))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-2)
    (priv-stor priv-stor-2) (l l-0))
  (precedes ((0 3) (7 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 3) (0 1))
    ((4 3) (3 0)) ((4 3) (8 0)) ((5 1) (4 0)) ((6 1) (1 3))
    ((7 1) (6 0)) ((8 1) (7 0)) ((9 3) (0 1)) ((9 3) (3 0))
    ((9 3) (8 0)) ((10 1) (9 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 nb-2 l l-0 l-1)
  (uniq-gen x y y-4 y-5)
  (absent (x (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) y-5)) (x l-1)
    (y chi) (y (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
    (y ltxb) (l-1 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (l-1 (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) (rec y-4) y-5))
    (y-4 alpha) (y-4 chi-0) (y-4 l) (y-5 alpha-0) (y-5 chi-1) (y-5 l-0))
  (precur (3 0) (8 0))
  (gen-st (pv a l-1) (pv b ltxb) (pv b-1 l) (pv b-2 l-0))
  (facts (neq b-2 a-2) (neq b-1 a-1) (neq a b-0) (neq b a-0)
    (neq a-2 b-2) (neq a-1 b-1) (neq b-0 a) (neq a-0 b)
    (eq
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
        (exp (gen) (mul y chi)))) (neq l-1 ltxb) (undisclosed l-1)
    (undisclosed (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) y-5))
    (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5)))
  (leads-to ((2 1) (1 0)) ((5 1) (4 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-absence l-1 (mul (rec y-0) w y-1 y-2 (rec y-3)))
    (mul (rec y-0) w y-1 y-2 (rec y-3)) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0
            (exp (gen)
              (mul (rec ltxb) (rec y-0) w y-1 y-2 (rec y-3) y-5))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-1)))
      (recv
        (sig
          (body b-0
            (exp (gen)
              (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) y-5))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-1))))
    ((recv
       (cat (exp (gen) y-4)
         (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) (rec y-4) y-5)))
      (send
        (cat (exp (gen) y-4)
          (mul (rec y-0) w y-1 y-2 (rec y-3) (rec l-1) (rec y-4) y-5))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-4)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-4)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l))))
    ((recv
       (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (hash (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv
       (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
         (exp (gen) (mul y chi))))
      (send
        (cat (exp (gen) (mul (rec y-0) w y-1 y-2 (rec y-3) y-5))
          (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3))))
      (send (cat (exp (gen) y-5) (mul (rec y-0) w y-1 y-2 (rec y-3)))))
    ((load priv-stor-2 (cat pt-4 (pv b-2 l-0)))
      (recv
        (sig (body a-2 (exp (gen) alpha-0) (pubk "sig" a-2))
          (privk "sig" a-2)))
      (recv (cat na-2 a-2 b-2 (exp (gen) chi-1)))
      (send
        (cat (exp (gen) y-5)
          (enc na-2 nb-2 a-2 b-2
            (hash (exp (gen) (mul alpha-0 l-0))
              (exp (gen) (mul chi-1 y-5)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-2 l-0)))))
  (label 1354)
  (parent 1024)
  (unrealized (0 0) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (exp (gen) y)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (one)) (y (mul l-0 (rec l-1))) (y l-1))
  (precur (2 0) (9 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) y))
      (hash (exp (gen) l-0) (exp (gen) y))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l-0) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) y))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) y)))
      (send (hash (exp (gen) l-0) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (exp (gen) y)))
      (send (cat (exp (gen) l-0) (exp (gen) y))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 1355)
  (parent 1069)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul x w)))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 1356)
  (parent 1069)
  (unrealized (0 0) (0 1) (10 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 1) (10 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 2) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((3 1) (10 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 11 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1357)
  (parent 1070)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 1) (10 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 2) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l-0) (y (mul (rec ltxb) l-0)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w x-0 y)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((6 1) (10 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 11 6 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-2)))))
  (label 1358)
  (parent 1070)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (one))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 2) (9 0)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (one)) (x-1 l) (y (mul (rec ltxb) l)) (y ltxb)
    (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((11 1) (10 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-1)))))
  (label 1359)
  (parent 1070)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 1) (10 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 3) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((3 1) (10 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 11 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1360)
  (parent 1074)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l-0)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 1) (10 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 3) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l-0) (y-0 (mul (rec ltxb) l-0)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w y y-0)))) (neq l-0 ltxb)
    (undisclosed l-0) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((6 1) (10 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 11 6 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1361)
  (parent 1074)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (one))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) (rec l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (9 0)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 3) (9 0)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (one)) (x-0 l) (y-0 (mul (rec ltxb) l)) (y-0 ltxb)
    (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (9 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))) (neq l ltxb)
    (undisclosed l) (undisclosed (one)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((11 1) (10 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l-0) (rec l-0)))
      (send (cat (exp (gen) l-0) (rec l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul x w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul x w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-1)))))
  (label 1362)
  (parent 1074)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (beta expt) (x-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul x-0 (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul x-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-0))
  (defstrand init 3 (na na-1) (a a) (b b-1) (priv-stor priv-stor-0)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 1) (9 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0))
    ((9 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-0)
  (absent (x (mul x-0 (rec l) l-0)) (x l) (y chi)
    (y (mul (rec ltxb) x-0 l-0)) (y ltxb) (x-0 beta) (x-0 l)
    (l-0 (mul x-0 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq a b-1) (neq a b-0) (neq b a-0) (neq b-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul x-0 (rec l) l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) x-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)) ((4 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-0 (7 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul x-0 (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul x-0 (rec l))))
      (send (cat (exp (gen) l-0) (mul x-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-0)) (send (cat (exp (gen) x-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a b-1 (exp (gen) x-0))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-0)))
  (label 1363)
  (parent 1084)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (beta expt) (l l-0 x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) x-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) x-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) x-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) x-0) l-1))
  (defstrand init 3 (na na-1) (a a-1) (b b-1) (priv-stor priv-stor-2)
    (l l) (x x-0) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-1)
    (priv-stor priv-stor-2) (l l))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (10 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 2) (0 1)) ((8 2) (3 0)) ((8 2) (7 0)) ((9 1) (8 0))
    ((10 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x y x-0)
  (absent (x (mul (rec l-0) x-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) x-0 l-1)) (y ltxb) (x-0 beta) (x-0 l)
    (l-1 (mul (rec l-0) x-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1) (pv a-1 l))
  (facts (neq a-1 b-1) (neq a b-0) (neq b a-0) (neq b-1 a-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l-0) x-0 l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) x-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (10 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-1 (7 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) x-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) x-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) x-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) x-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul x-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) x-0) l-1)) (send (cat (exp (gen) x-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv a-1 l)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-1 b-1 (exp (gen) x-0))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv a-1 l))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (stor priv-stor-1 (cat pt-6 "nil")) (send l-1)))
  (label 1364)
  (parent 1101)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (a b a-0 b-0 self name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
  (deflistener (cat (gen) l-0))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (9 0)) ((3 1) (1 1))
    ((4 1) (8 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 2) (7 0)) ((9 1) (3 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l) l-0)) (x l) (y chi) (y (mul (rec ltxb) l-0))
    (y ltxb) (l-0 (rec l)))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq a b-0) (neq b a-0) (neq b-0 a) (neq a-0 b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y chi)))
      (hash (exp (gen) l-0) (exp (gen) (mul y chi)))) (neq l ltxb)
    (undisclosed l) (undisclosed (mul (rec l) l-0)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) l-0)))
  (leads-to ((2 1) (1 0)) ((4 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l) (rec l) (3 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) l-0)) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body b-0 (exp (gen) (mul (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (rec l)))
      (send (cat (exp (gen) l-0) (rec l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y chi)))))
    ((recv (cat (gen) l-0)) (send (cat (gen) l-0)))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-0))
    ((recv l) (send l)))
  (label 1365)
  (parent 1108)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (5 0)) ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0))
    ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0))
    ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (2 0) (6 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 9 ltx-disclose 3) l-0 (2 0)
    (ch-msg priv-stor-0 (cat pt-1 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0)))
  (label 1366)
  (parent 1109)
  (unrealized (0 0) (0 1) (1 3))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta y))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y x) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2)))
  (label 1367)
  (parent 1110)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (w expt) (l l-0 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul w l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul w l-0)) (x l) (y chi) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (l-0 w))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w-0))) w-0))))
  (label 1368)
  (parent 1110)
  (unrealized (0 0) (0 1) (10 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-1 l-1)) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta l-1) (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x l-1) (y x) (y (mul (rec l-0) l-1 l-1)) (y l-0))
  (precur (2 0) (6 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 7 ltx-gen 2) l-2 (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) l-1)))
      (send (cat (exp (gen) l) (mul (rec l) l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l)))
  (label 1369)
  (parent 1111)
  (unrealized (0 0) (0 1) (1 1) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta y))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y x) (y (mul l-0 (rec l-1))) (y l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (alpha (mul l-0 (rec l-1))) (l-3 l-1)) (one)
    (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l)))
  (label 1370)
  (parent 1111)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l x y l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1) l-2)) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta l-2) (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) l-2))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0))
    ((10 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen x y)
  (absent (x l-0) (x l-2) (y x) (y (mul l-0 (rec l-1) l-2)) (y l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed l-2) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1) l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-2) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) l-2)))
      (send (cat (exp (gen) l) (mul (rec l) l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) l-2)) (send (cat (exp (gen) l-0) l-2)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))))
  (label 1371)
  (parent 1111)
  (unrealized (0 0) (0 1) (1 1) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (mul alpha l-0 l-1 (rec l-2)))
    (y x) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul alpha l-0))
    (mul alpha l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l)))
  (label 1372)
  (parent 1111)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (alpha expt)
    (l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha alpha) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x)
    (beta (mul (rec l-0) alpha l-1)) (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener l-0)
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 1) (10 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l-0) alpha l-1)) (x l-0) (y alpha) (y l-1) (y x))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
    (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) alpha l-1)) (undisclosed l-1)
    (undisclosed alpha))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul (rec l-0) alpha l-1)
    (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) alpha l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv l-0) (send l-0)))
  (label 1373)
  (parent 1111)
  (unrealized (0 0) (1 1) (2 0) (5 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (alpha expt)
    (l-1 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha alpha) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x)
    (beta (mul (rec l-0) alpha l-1)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l-0) alpha l-1)) (x l-0) (y alpha) (y l-1)
    (y (mul x w)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
    (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) alpha l-1)) (undisclosed l-1)
    (undisclosed alpha))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) alpha l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1374)
  (parent 1112)
  (unrealized (0 0) (1 1) (2 0) (5 0) (6 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 l-1 rndx) (beta expt) (x rndx) (w-0 expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta w)
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 w) (x-1 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 x-0)) (x-2 l-1) (x-2 beta))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 1375)
  (parent 1112)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l l-0 x rndx) (w-0 expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta w)
    (eta (mul x w-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
  (deflistener (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (gen) (mul x w-0 (rec x-0) y)))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x-0 y)
  (absent (x-0 w) (x-0 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w-0))
      (w-1 (mul x w-0 (rec x-0) y)) (x x-0) (y-1 y)
      (w-0 (mul x w-0 (rec x-0) y))) (gen) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (gen) (mul x w-0 (rec x-0) y)))
      (send (cat (gen) (mul x w-0 (rec x-0) y)))))
  (label 1376)
  (parent 1112)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (w expt)
    (l-0 rndx) (beta expt) (x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l-0 beta)) (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta beta)
    (eta (mul w x x y (rec x-0))))
  (deflistener (cat (exp (gen) l) (mul (rec l) beta)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y))))
  (deflistener
    (cat (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l-0) beta))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x-0)
  (absent (y (mul (rec ltxb) l-0 beta)) (y ltxb) (y (mul w x x))
    (x-0 l-0) (x-0 beta))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed beta)
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l-0 beta)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 1 init 3) (exp (gen) x-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l-0 beta)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 beta))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-0 beta))
              (exp (gen) (mul w x x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) beta)))
      (send (cat (exp (gen) l) (mul (rec l) beta))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y))))
      (send
        (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y))))
      (send (cat (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l-0) beta))
      (send (cat (exp (gen) l-0) beta)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 1377)
  (parent 1112)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l x rndx) (w-0 expt) (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta w)
    (eta (mul x w-0 l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-1) (mul w (rec l-1))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 w) (x-0 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 3 ltx-gen 3) (exp (gen) l-2)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((recv (cat (exp (gen) l-1) (mul w (rec l-1))))
      (send (cat (exp (gen) l-1) (mul w (rec l-1)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))))
  (label 1378)
  (parent 1112)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta w)
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 w) (x-0 l) (y-0 (mul (rec ltxb) w l)) (y-0 ltxb)
    (y-0 (mul x w-0 y)) (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1379)
  (parent 1112)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l x rndx) (w-0 expt) (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-1)) (chi (mul x w-0 l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x-0) (beta w)
    (eta (mul x w-0 l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l) (mul w (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener (cat (exp (gen) l-1) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((7 2) (10 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 w) (x-0 l-1) (y (mul (rec ltxb) w l-1)) (y ltxb)
    (y (mul x w-0 l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y)))
      (hash (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 7 ltx-gen 3) (exp (gen) l-2)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-1))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l-1))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((recv (cat (exp (gen) l) (mul w (rec l))))
      (send (cat (exp (gen) l) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y))))
      (send
        (hash (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y))))
      (send
        (cat (exp (gen) (mul w l-1)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) l-1) w)) (send (cat (exp (gen) l-1) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))))
  (label 1380)
  (parent 1112)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 x rndx) (w-0 expt) (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta w)
    (eta (mul x w-0 l-1 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w-0 l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen x-0 y)
  (absent (x-0 w) (x-0 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 l-1)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l-1 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 l-1 y)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 l-1 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) l-2) (mul x w-0 l-1 (rec x-0) y (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul x w-0 l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))
      (send
        (sig (body self-1 (exp (gen) l-2) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1381)
  (parent 1112)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb rndx) (alpha chi-0 expt) (y-0 l l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (mul y-0 (rec l) l-0))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l))
  (deflistener (cat (exp (gen) l-0) (mul y-0 (rec l))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-0))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b a)
    (priv-stor priv-stor-0) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-0))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((2 1) (8 0)) ((3 1) (1 1))
    ((4 1) (9 0)) ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0))
    ((7 1) (6 0)) ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0))
    ((9 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y y-0)
  (absent (x (mul y-0 (rec l) l-0)) (x l) (y chi)
    (y (mul (rec ltxb) y-0 l-0)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (l-0 (mul y-0 (rec l))))
  (precur (3 0) (7 0))
  (gen-st (pv a l) (pv b ltxb) (pv self l-0))
  (facts (neq a a-1) (neq a b-0) (neq b a-0) (neq a-1 a) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul y-0 (rec l) l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) y-0 l-0)))
  (leads-to ((2 1) (1 0)) ((2 1) (8 0)) ((4 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-0 (7 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-0))))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-0))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul y-0 (rec l) l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l))))
    ((recv (cat (exp (gen) l-0) (mul y-0 (rec l))))
      (send (cat (exp (gen) l-0) (mul y-0 (rec l)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-0)) (send (cat (exp (gen) y-0) l-0)))
    ((load priv-stor-0 (cat pt-0 (pv a l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1))) (recv (cat na-1 a-1 a (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 a
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self l-0)))
      (stor priv-stor-1 (cat pt-4 "nil")) (send l-0)))
  (label 1382)
  (parent 1120)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (a b a-0 b-0 self a-1 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (x y rndx)
    (chi expt) (ltxb rndx) (alpha chi-0 expt) (l l-0 y-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a-0) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) y-0 l-1)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a a) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul (rec l-0) y-0 l-1))
    (eta (mul (rec x) y chi)))
  (defstrand ltx-gen 2 (ignore ignore) (self a) (priv-stor priv-stor-0)
    (l l-0))
  (deflistener (cat (exp (gen) l-1) (mul (rec l-0) y-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) y-0) l-1))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-1) (b b-1)
    (priv-stor priv-stor-2) (l l) (y y-0) (alpha alpha) (chi chi-0))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l))
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (6 0)) ((2 1) (1 0)) ((3 1) (1 1)) ((4 1) (10 0))
    ((4 2) (3 0)) ((5 1) (1 3)) ((6 1) (5 0)) ((7 1) (6 0))
    ((8 3) (0 1)) ((8 3) (3 0)) ((8 3) (7 0)) ((9 1) (8 0))
    ((10 2) (7 0)))
  (non-orig (privk "sig" a) (privk "sig" b))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x y y-0)
  (absent (x (mul (rec l-0) y-0 l-1)) (x l-0) (y chi)
    (y (mul (rec ltxb) y-0 l-1)) (y ltxb) (y-0 alpha) (y-0 chi-0)
    (y-0 l) (l-1 (mul (rec l-0) y-0)))
  (precur (3 0) (7 0))
  (gen-st (pv a l-0) (pv b ltxb) (pv self l-1) (pv b-1 l))
  (facts (neq b-1 a-1) (neq a b-0) (neq b a-0) (neq a-1 b-1) (neq b-0 a)
    (neq a-0 b)
    (eq (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
    (neq l-0 ltxb) (undisclosed l-0)
    (undisclosed (mul (rec l-0) y-0 l-1)) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) y-0 l-1)))
  (leads-to ((2 1) (1 0)) ((4 1) (10 0)) ((9 1) (8 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-disclose 3) l-1 (7 0)
    (ch-msg priv-stor-1 (cat pt-3 (pv self l-1))))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a-0 (exp (gen) (mul (rec ltxb) y-0 l-1))
            (pubk "sig" a-0)) (privk "sig" a-0)))
      (recv (cat na a-0 b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a-0 b
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-0 (pv a l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) y-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 a b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 a b-0
            (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))))
    ((load priv-stor-0 (cat pt-1 ignore))
      (stor priv-stor-0 (cat pt-0 (pv a l-0))))
    ((recv (cat (exp (gen) l-1) (mul (rec l-0) y-0)))
      (send (cat (exp (gen) l-1) (mul (rec l-0) y-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul y-0 l-1)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) y-0) l-1)) (send (cat (exp (gen) y-0) l-1)))
    ((load priv-stor-2 (cat pt-4 (pv b-1 l)))
      (recv
        (sig (body a-1 (exp (gen) alpha) (pubk "sig" a-1))
          (privk "sig" a-1)))
      (recv (cat na-1 a-1 b-1 (exp (gen) chi-0)))
      (send
        (cat (exp (gen) y-0)
          (enc na-1 nb-1 a-1 b-1
            (hash (exp (gen) (mul alpha l))
              (exp (gen) (mul chi-0 y-0)))))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-4 (pv b-1 l))))
    ((load priv-stor-1 (cat pt-3 (pv self l-1)))
      (stor priv-stor-1 (cat pt-6 "nil")) (send l-1)))
  (label 1383)
  (parent 1137)
  (unrealized (0 0) (0 1) (1 1) (1 3) (3 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul w y (rec x))))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 3))
    ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (3 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y w) (x (one)) (x l) (x w)
    (x (mul w (rec x))))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1384)
  (parent 1153)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((1 2) (8 0))
    ((2 1) (1 3)) ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (1 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (3 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (4 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1385)
  (parent 1153)
  (unrealized (0 0) (0 1) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul w y (rec x))))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0)) ((5 2) (4 0))
    ((6 1) (1 3)) ((7 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y w) (x (one)) (x l) (x w)
    (x (mul w (rec x))))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1386)
  (parent 1255)
  (unrealized (0 0) (0 1) (1 3) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (6 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((1 2) (8 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (1 0))
    ((5 2) (4 0)) ((6 1) (1 3)) ((7 1) (4 0)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (2 0) (6 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((5 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1387)
  (parent 1255)
  (unrealized (0 0) (0 1) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((1 2) (8 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (one)) (y (mul l (rec l-0))) (y l-0))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) y))
      (hash (exp (gen) l) (exp (gen) y))) (neq l l-0) (undisclosed l)
    (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0 (hash (exp (gen) l) (exp (gen) y))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) y)))
      (send (hash (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (exp (gen) y)))
      (send (cat (exp (gen) l) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 1388)
  (parent 1257)
  (unrealized (0 0) (0 1) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 l-1) (x-1 beta))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 1389)
  (parent 1258)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0) (9 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx) (w expt)
    (l-0 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta (one))
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0)) (y l) (y (mul w x)) (x-0 (one))
    (x-0 l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 1 init 3) (exp (gen) x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 1390)
  (parent 1258)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 1391)
  (parent 1258)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1392)
  (parent 1258)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0) (9 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 0 resp 4) (exp (gen) y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1393)
  (parent 1258)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l x rndx) (w expt)
    (l-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-1)) (chi (mul w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w l-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-0)))
  (deflistener (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((6 2) (8 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-1)
  (uniq-gen x y)
  (absent (x (one)) (x l-1) (y (mul (rec l) l-1)) (y l) (y (mul w l-0)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l) (pv self l-1))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))) (neq l-1 l)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-1)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 6 ltx-gen 3) (exp (gen) l-2) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-0)))
      (send (cat (exp (gen) y) (mul (rec x) w l-0))))
    ((recv (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul w l-0 y (rec l-1))))))
  (label 1394)
  (parent 1258)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 1395)
  (parent 1258)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha expt) (l y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (4 0)) ((0 3) (7 0)) ((1 2) (0 2)) ((1 2) (8 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (one))
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0) (7 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (mul alpha l)) (undisclosed l-1)
    (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (7 0))
  (strand-map 0 1 2 3 4 5 6 7)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) y)))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 1396)
  (parent 1259)
  (unrealized (0 0) (0 1) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul w x-0)) (x-1 l-2)
    (x-1 beta))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 1397)
  (parent 1260)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0) (9 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l rndx) (w expt)
    (l-0 rndx) (beta expt) (x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 beta)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x-0) (beta beta)
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (gen) beta))
  (deflistener
    (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) beta))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x-0)
  (absent (l-0 beta) (y (mul (rec l) l-0 beta)) (y l) (y (mul w x))
    (x-0 l-0) (x-0 beta))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y)))
      (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed beta) (undisclosed l)
    (undisclosed (mul (rec l) l-0 beta)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 1 init 3) (exp (gen) x-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0 beta)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 beta))
              (exp (gen) (mul w x y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul l-0 beta))
              (exp (gen) (mul w x y)))))))
    ((recv (cat (gen) beta)) (send (cat (gen) beta)))
    ((recv (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) (mul l-0 beta)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) beta))
      (send (cat (exp (gen) l-0) beta)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 1398)
  (parent 1260)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l l-0 l-1 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 1399)
  (parent 1260)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 l-2 rndx) (alpha-0 chi expt) (x rndx) (w expt)
    (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-2) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 3) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y-0 y-1)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y-0 (mul alpha l l-0 (rec l-1))) (y-0 l-1) (y-0 (mul w y))
    (y-1 l-2) (y-1 alpha-0) (y-1 chi))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-2 alpha-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1400)
  (parent 1260)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0) (9 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha expt) (l rndx) (w expt) (y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y w) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 0 resp 4) (exp (gen) y-0) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1401)
  (parent 1260)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l l-0 x rndx) (w expt) (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul alpha l (rec l-0) l-2)) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-2) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l-2) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((6 2) (8 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-2)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-2) (y (mul alpha l (rec l-0) l-2))
    (y l-0) (y (mul w l-1)) (l-2 (mul alpha l)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l-2))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y))))
    (neq l-2 l-0) (undisclosed l-2) (undisclosed (mul alpha l))
    (undisclosed l-0) (undisclosed (mul alpha l (rec l-0) l-2)))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 9 6 ltx-gen 3) (exp (gen) l-3) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l (rec l-0) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y))))
      (send
        (hash (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y))))
      (send
        (cat (exp (gen) (mul alpha l l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l-2) (mul alpha l)))
      (send (cat (exp (gen) l-2) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))))
  (label 1402)
  (parent 1260)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 x rndx) (w expt) (l-2 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w l-2 y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-2)))
  (deflistener (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-3))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0 l-3)
  (uniq-gen x y)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul w l-2)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-2 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-2)))
      (send (cat (exp (gen) y) (mul (rec x) w l-2))))
    ((recv (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul w l-2 y (rec l-3)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))))
  (label 1403)
  (parent 1260)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (exp (gen) y)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (5 0)) ((0 3) (9 0)) ((1 2) (0 2)) ((1 2) (10 0))
    ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (one)) (y (mul l-0 (rec l-1))) (y l-1))
  (precur (2 0) (9 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) y))
      (hash (exp (gen) l-0) (exp (gen) y))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l-0) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) y))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) y)))
      (send (hash (exp (gen) l-0) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (exp (gen) y)))
      (send (cat (exp (gen) l-0) (exp (gen) y))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 1404)
  (parent 1355)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1405)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul w x-0)) (x-1 l-2) (x-1 beta))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 1406)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 1407)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (w expt)
    (l-1 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-1)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x-0) (beta (one))
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w x y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x-0)
  (absent (y (mul (rec l-0) l-1)) (y l-0) (y (mul w x)) (x-0 (one))
    (x-0 l-1))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w x y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w x y)))) (neq l-1 l-0)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 1 init 3) (exp (gen) x-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w x y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 1408)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l-2) (rec l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l-2) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 3 ltx-gen 3) (exp (gen) l-3)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l-2) (rec l-2)))
      (send (cat (exp (gen) l-2) (rec l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))))
  (label 1409)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (alpha chi expt) (x rndx) (w expt)
    (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul l-0 (rec l-1))) (y-0 l-1)
    (y-0 (mul w y)) (y-1 l-2) (y-1 alpha) (y-1 chi))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-2 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1410)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-2)) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-2) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (10 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l-2) (y (mul (rec l-0) l-2)) (y l-0)
    (y (mul w l-1)))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-2))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))) (neq l-2 l-0)
    (undisclosed l-2) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-2)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 6 ltx-gen 3) (exp (gen) l-3)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))))
  (label 1411)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 x rndx) (w expt) (l-2 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w l-2 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-2)))
  (deflistener (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-3)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul w l-2)))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-2 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-2)))
      (send (cat (exp (gen) y) (mul (rec x) w l-2))))
    ((recv (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul w l-2 y (rec l-3)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-3)))
      (send
        (sig (body self-1 (exp (gen) l-3) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1412)
  (parent 1356)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0)) (eta y))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (precedes ((0 3) (5 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (2 0))
    ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y x))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 10 0 resp 4) (exp (gen) y-0) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0)))
  (label 1413)
  (parent 1366)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x y rndx) (chi expt)
    (ltxb l l-0 rndx) (w expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi chi))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y chi)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y chi) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
    (exp (gen) (mul (rec x) y chi)) (1 3))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) chi)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y chi))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y chi)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y chi)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) (mul (rec x) y chi (rec w))) w))
      (send (cat (exp (gen) (mul (rec x) y chi (rec w))) w))))
  (label 1414)
  (parent 1366)
  (unrealized (0 0) (0 1) (10 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta y))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (8 0))
    ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y x) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 1415)
  (parent 1367)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta y))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (8 0))
    ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y x) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1416)
  (parent 1367)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x rndx) (w expt) (y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y (mul x w)) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x w y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x w y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x w y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1417)
  (parent 1368)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 l-1 rndx) (beta expt) (x rndx) (w-0 expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (mul w l-0))
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (l-0 w) (x-1 (mul w l-0)) (x-1 l) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (y (mul x w-0 x-0)) (x-2 l-1) (x-2 beta))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 1418)
  (parent 1368)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l l-0 x rndx) (w-0 expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0)) (chi (mul x w-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul w l-0))
    (eta (mul x w-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (gen) (mul x w-0 (rec x-0) y)))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x-0 y)
  (absent (l-0 w) (x-0 (mul w l-0)) (x-0 l) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (y (mul x w-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w-0))
      (w-1 (mul x w-0 (rec x-0) y)) (x x-0) (y-1 y)
      (w-0 (mul x w-0 (rec x-0) y))) (gen) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y))))
      (send (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y)))))
    ((recv (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y))))
      (send (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (gen) (mul x w-0 (rec x-0) y)))
      (send (cat (gen) (mul x w-0 (rec x-0) y)))))
  (label 1419)
  (parent 1368)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (beta expt) (x l-0 y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l beta l-0))
    (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul beta l-0))
    (eta (mul w x x y (rec x-0))))
  (deflistener (cat (exp (gen) l-0) beta))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y))))
  (deflistener
    (cat (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l) (mul beta l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x-0)
  (absent (l-0 beta) (y (mul (rec ltxb) l beta l-0)) (y ltxb)
    (y (mul w x x)) (x-0 l) (x-0 (mul beta l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul beta l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l beta l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 1 init 3) (exp (gen) x-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l beta l-0))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l beta l-0))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul beta l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l beta l-0))
              (exp (gen) (mul w x x y)))))))
    ((recv (cat (exp (gen) l-0) beta))
      (send (cat (exp (gen) l-0) beta)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y))))
      (send
        (hash (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y))))
      (send
        (cat (exp (gen) (mul l beta l-0)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l) (mul beta l-0)))
      (send (cat (exp (gen) l) (mul beta l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 1420)
  (parent 1368)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l x rndx) (w-0 expt) (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-1))
    (chi (mul x w-0 l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul w l-1))
    (eta (mul x w-0 l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-1) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener (cat (exp (gen) l) (mul w l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 (mul w l-1)) (x-0 l) (y (mul (rec ltxb) w l l-1))
    (y ltxb) (y (mul x w-0 l-0)) (l-1 w))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y)))
      (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 3 ltx-gen 3) (exp (gen) l-2)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-1))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-1)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-1))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((recv (cat (exp (gen) l-1) w)) (send (cat (exp (gen) l-1) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
      (send
        (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv
       (cat (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
      (send
        (cat (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) l) (mul w l-1)))
      (send (cat (exp (gen) l) (mul w l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))))
  (label 1421)
  (parent 1368)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul w l-0))
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (l-0 w) (x-0 (mul w l-0)) (x-0 l)
    (y-0 (mul (rec ltxb) w l l-0)) (y-0 ltxb) (y-0 (mul x w-0 y))
    (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1422)
  (parent 1368)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l x rndx) (w-0 expt) (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-1))
    (chi (mul x w-0 l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x-0) (beta (mul w l))
    (eta (mul x w-0 l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul w l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((7 2) (10 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (l w) (x-0 (mul w l)) (x-0 l-1) (y (mul (rec ltxb) w l l-1))
    (y ltxb) (y (mul x w-0 l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y)))
      (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 7 ltx-gen 3) (exp (gen) l-2)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-1))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-1))
              (exp (gen) (mul x w-0 l-0 y)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
      (send
        (hash (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv
       (cat (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y))))
      (send
        (cat (exp (gen) (mul w l l-1)) (exp (gen) (mul x w-0 l-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul w l)))
      (send (cat (exp (gen) l-1) (mul w l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))
      (send
        (cat (exp (gen) l-1) (mul x w-0 l-0 (rec x-0) y (rec l-1))))))
  (label 1423)
  (parent 1368)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 x rndx) (w-0 expt) (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul w l-0))
    (eta (mul x w-0 l-1 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w-0 l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen x-0 y)
  (absent (l-0 w) (x-0 (mul w l-0)) (x-0 l) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (y (mul x w-0 l-1)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 l-1 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 l-1 y)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 l-1 y)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) l-2) (mul x w-0 l-1 (rec x-0) y (rec l-2))))
      (send
        (cat (exp (gen) l-2) (mul x w-0 l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))
      (send
        (sig (body self-1 (exp (gen) l-2) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1424)
  (parent 1368)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta y))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0))
    ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y x) (y (mul l-0 (rec l-1))) (y l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 1425)
  (parent 1370)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta y))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0))
    ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y x) (y (mul l-0 (rec l-1))) (y l-1))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1426)
  (parent 1370)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0))
    ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (mul alpha l-0 l-1 (rec l-2)))
    (y x) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 1427)
  (parent 1372)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0)) ((9 2) (8 0))
    ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (mul alpha l-0 l-1 (rec l-2)))
    (y x) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1428)
  (parent 1372)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x rndx) (w expt)
    (y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-1 l-1)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta l-1) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x l-1) (y (mul x w)) (y (mul (rec l-0) l-1 l-1)) (y l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 7 ltx-gen 2) l-2 (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) l-1) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) l-1)))
      (send (cat (exp (gen) l) (mul (rec l) l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul l-1 l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1429)
  (parent 1374)
  (unrealized (0 0) (0 1) (1 1) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x rndx) (w expt)
    (y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul x w)) (y (mul l-0 (rec l-1)))
    (y l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (l-2 l-0) (alpha (mul l-0 (rec l-1))) (l-3 l-1)) (one)
    (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1430)
  (parent 1374)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l x rndx)
    (w expt) (y l-0 l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1) l-2)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta l-2) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) l-2))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen x y)
  (absent (x l-0) (x l-2) (y (mul x w)) (y (mul l-0 (rec l-1) l-2))
    (y l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed l-2) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1) l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) l-2) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) l-2)))
      (send (cat (exp (gen) l) (mul (rec l) l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul l-0 l-2)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) l-2)) (send (cat (exp (gen) l-0) l-2)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))))
  (label 1431)
  (parent 1374)
  (unrealized (0 0) (0 1) (1 1) (2 0) (5 0) (6 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x rndx) (w expt) (y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (mul alpha l-0 l-1 (rec l-2)))
    (y (mul x w)) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence l-1 (mul alpha l-0))
    (mul alpha l-0) (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1432)
  (parent 1374)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (alpha expt)
    (l-1 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha alpha) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x)
    (beta (mul (rec l-0) alpha l-1)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener l-0)
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (11 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (6 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (mul (rec l-0) alpha l-1)) (x l-0) (y alpha) (y l-1)
    (y (mul x w)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
    (neq l-0 l-1) (undisclosed l-0)
    (undisclosed (mul (rec l-0) alpha l-1)) (undisclosed l-1)
    (undisclosed alpha))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener l-0) (mul (rec l-0) alpha l-1)
    (6 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) alpha) (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l-0) alpha l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l) (mul (rec l) (rec l-0) alpha l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul alpha l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1)))
      (send (cat (exp (gen) l-0) (mul (rec l-0) alpha l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv l-0) (send l-0)))
  (label 1433)
  (parent 1374)
  (unrealized (0 0) (1 1) (2 0) (5 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (beta expt) (x rndx) (w-0 expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta w)
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 w) (x-1 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((3 1) (11 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1434)
  (parent 1375)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (beta expt) (x rndx) (w-0 expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l-0)) (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-1) (beta w)
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l) (mul w (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (11 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 w) (x-1 l-0) (y (mul (rec ltxb) w l-0)) (y ltxb)
    (y (mul x w-0 x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l) (mul w (rec l))))
      (send (cat (exp (gen) l) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-2)))))
  (label 1435)
  (parent 1375)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 rndx) (beta expt) (x rndx) (w-0 expt)
    (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta w)
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 w) (x-1 l) (y (mul (rec ltxb) w l)) (y ltxb)
    (y (mul x w-0 x-0)) (x-2 beta) (x-2 l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-1)))))
  (label 1436)
  (parent 1375)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta w)
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 w) (x-0 l) (y-0 (mul (rec ltxb) w l)) (y-0 ltxb)
    (y-0 (mul x w-0 y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((3 1) (11 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1437)
  (parent 1379)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l-0)) (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta w)
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l) (mul w (rec l))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (11 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 w) (x-0 l-0) (y-0 (mul (rec ltxb) w l-0)) (y-0 ltxb)
    (y-0 (mul x w-0 y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l) (mul w (rec l))))
      (send (cat (exp (gen) l) (mul w (rec l)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (hash (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (cat (exp (gen) (mul w l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1438)
  (parent 1379)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l)) (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta w)
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) (mul w (rec l-0))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 w) (x-0 l) (y-0 (mul (rec ltxb) w l)) (y-0 ltxb)
    (y-0 (mul x w-0 y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed w) (undisclosed ltxb)
    (undisclosed (mul (rec ltxb) w l)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig (body a (exp (gen) (mul (rec ltxb) w l)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) w) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l-0) (mul w (rec l-0))))
      (send (cat (exp (gen) l-0) (mul w (rec l-0)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (hash (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0))))
      (send (cat (exp (gen) (mul w l)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-1)))))
  (label 1439)
  (parent 1379)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (9 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul (rec l) l-0)) (y l) (y (mul w x-0))
    (x-1 beta) (x-1 l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((6 1) (1 0)) ((6 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 6 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1440)
  (parent 1389)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 2) (8 0))
    ((10 1) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 beta) (x-1 l-1))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-1)))))
  (label 1441)
  (parent 1389)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 x rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (7 0)) ((0 3) (9 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1442)
  (parent 1391)
  (unrealized (0 0) (0 1) (1 3) (7 0) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (l rndx) (alpha chi expt) (x rndx)
    (w expt) (y y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y-0) (alpha (mul (rec l) l-0)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (9 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 3) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul (rec l) l-0)) (y-0 l)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l) (pv self l-0))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l)
    (undisclosed (mul (rec l) l-0)))
  (leads-to ((6 1) (1 0)) ((6 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 6 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig (body a (exp (gen) (mul (rec l) l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1443)
  (parent 1392)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 3) (8 0))
    ((10 1) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-1))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-1)))))
  (label 1444)
  (parent 1392)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-1 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))))
  (label 1445)
  (parent 1393)
  (unrealized (0 0) (0 1) (0 2) (4 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1446)
  (parent 1393)
  (unrealized (0 0) (0 1) (4 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x l l-0 rndx)
    (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((1 2) (9 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1447)
  (parent 1393)
  (unrealized (0 0) (0 1) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self b-1 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (alpha expt) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul alpha l (rec l-0) l-1)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (9 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 2) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-1)
  (uniq-gen x y x-1)
  (absent (x (mul alpha l)) (x l-1) (y (mul alpha l (rec l-0) l-1))
    (y l-0) (y (mul w x-0)) (x-1 beta) (x-1 l-1) (l-1 (mul alpha l)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l-1))
  (facts (neq self b-1) (neq self b-0) (neq b a) (neq b-1 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed (mul alpha l))
    (undisclosed l-0) (undisclosed (mul alpha l (rec l-0) l-1)))
  (leads-to ((6 1) (1 0)) ((6 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 6 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-2))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l (rec l-0) l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l)))
      (send (cat (exp (gen) l-1) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1448)
  (parent 1397)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-0) (self a-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 2) (8 0))
    ((10 1) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 na-1 l-0 l-2)
  (uniq-gen x y x-1)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul w x-0)) (x-1 beta)
    (x-1 l-2))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv a-0 l-2))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-2 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv a-0 l-2)))))
  (label 1449)
  (parent 1397)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l l-0 l-1 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (7 0)) ((0 3) (9 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1450)
  (parent 1399)
  (unrealized (0 0) (0 1) (1 3) (7 0) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 name) (pt pt-0 pt-1 pval)
    (priv-stor priv-stor-0 locn) (alpha expt) (l l-0 rndx)
    (alpha-0 chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul alpha l (rec l-0) l-1)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-1) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 1) (9 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 3) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (mul alpha l)) (x l-1) (y-0 (mul alpha l (rec l-0) l-1))
    (y-0 l-0) (y-0 (mul w y)) (y-1 alpha-0) (y-1 chi) (y-1 l-1)
    (l-1 (mul alpha l)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l-1))
  (facts (neq self a-0) (neq self b-0) (neq b a) (neq a-0 self)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed (mul alpha l))
    (undisclosed l-0) (undisclosed (mul alpha l (rec l-0) l-1)))
  (leads-to ((6 1) (1 0)) ((6 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (displaced 10 6 ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-2))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l (rec l-0) l-1))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-1))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-1))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul alpha l l-1)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l)))
      (send (cat (exp (gen) l-1) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha-0 l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 1451)
  (parent 1400)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self a-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 rndx) (alpha-0 chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-1) (l l-2) (y y-1) (alpha alpha-0) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-0) (self b-1)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 3) (8 0))
    ((10 1) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 nb-1 l-0 l-2)
  (uniq-gen x y-0 y-1)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y-0 (mul alpha l l-0 (rec l-1))) (y-0 l-1) (y-0 (mul w y))
    (y-1 alpha-0) (y-1 chi) (y-1 l-2))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)) ((10 1) (9 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-1 (cat pt-2 (pv b-1 l-2))) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-2 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha-0 l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-1 (cat pt-3 ignore-0))
      (stor priv-stor-1 (cat pt-2 (pv b-1 l-2)))))
  (label 1452)
  (parent 1400)
  (unrealized (0 0) (0 1) (1 3) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l y l-0 l-1 x l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul x l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul y l-2)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) l-2))
  (deflistener (cat (exp (gen) y) (mul x l-2)))
  (defstrand ltx-gen 2 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)) ((9 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0 l-2)
  (uniq-gen y x)
  (absent (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul x l-2))
    (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x l-2)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-2))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x l-2)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) l-2)) (send (cat (exp (gen) y) l-2)))
    ((recv (cat (exp (gen) y) (mul x l-2)))
      (send (cat (exp (gen) y) (mul x l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))))
  (label 1453)
  (parent 1401)
  (unrealized (0 0) (0 1) (0 2) (4 0) (7 0) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l y l-0 l-1 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l)) (eta y))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (one)))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x)
  (absent (y (mul alpha l l-0 (rec l-1))) (y l-1) (y x)
    (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (x-0 x) (w x)) (one) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1454)
  (parent 1401)
  (unrealized (0 0) (0 1) (8 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l rndx) (w expt) (y l-0 l-1 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x)
  (absent (y (mul alpha l l-0 (rec l-1))) (y (mul w x)) (y l-1)
    (l-0 (mul alpha l)) (x (mul alpha l)) (x w) (x l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1455)
  (parent 1401)
  (unrealized (0 0) (0 1) (4 0) (8 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (x rndx)
    (alpha expt) (l rndx) (w expt) (y l-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((1 2) (9 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 1) (7 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen x y)
  (absent (x (mul alpha l)) (x l-0) (y (mul alpha l l-0 (rec l-1)))
    (y w) (y l-1) (l-0 (mul alpha l)))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (7 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1456)
  (parent 1401)
  (unrealized (0 0) (0 1) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 y x l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul x l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul y l-2)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y x l-2))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y x l-2))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) l-2))
  (deflistener (cat (exp (gen) y) (mul x l-2)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 1) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y (mul x l-2)) (x (one))
    (x l-0))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))
      (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-2))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y x l-2))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y x l-2))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y x l-2)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) l-2)) (send (cat (exp (gen) y) l-2)))
    ((recv (cat (exp (gen) y) (mul x l-2)))
      (send (cat (exp (gen) y) (mul x l-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))))
  (label 1457)
  (parent 1405)
  (unrealized (0 0) (0 1) (0 2) (5 0) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 3 ltx-gen 2) l-2 (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1)))))
  (label 1458)
  (parent 1405)
  (unrealized (0 0) (0 1) (5 0) (10 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y (mul w x)) (x (one))
    (x l-0) (x w))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y x)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y x)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1459)
  (parent 1405)
  (unrealized (0 0) (0 1) (5 0) (10 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((1 2) (11 0))
    ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (5 0)) ((11 1) (9 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (9 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1460)
  (parent 1405)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (5 0)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 beta) (x-1 l-1))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (8 0)) ((3 1) (11 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1461)
  (parent 1406)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-1)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 1) (11 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (5 0)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-1) (y (mul (rec l-0) l-1)) (y l-0)
    (y (mul w x-0)) (x-1 beta) (x-1 l-1))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))) (neq l-1 l-0)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((6 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 6 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-1)))))
  (label 1462)
  (parent 1406)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-2) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 2) (10 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0 l-2)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul w x-0)) (x-1 beta) (x-1 l-2))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-2)))))
  (label 1463)
  (parent 1406)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (9 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1464)
  (parent 1407)
  (unrealized (0 0) (0 1) (1 3) (9 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l-2) (rec l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (deflistener y)
  (precedes ((0 3) (9 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l-2) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w l-1 y (rec l-2))
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l-2) (rec l-2)))
      (send (cat (exp (gen) l-2) (rec l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2)))))
    ((recv y) (send y)))
  (label 1465)
  (parent 1409)
  (unrealized (0 0) (0 1) (1 3) (9 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (5 0)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (8 0)) ((3 1) (11 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 1466)
  (parent 1410)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul (rec l-0) l-1)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 1) (11 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (5 0)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-1) (y-0 (mul (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))) (neq l-1 l-0)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1)))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((6 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 6 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 1467)
  (parent 1410)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)) ((11 3) (10 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0 l-2)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul l-0 (rec l-1))) (y-0 l-1)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-2))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-2)))))
  (label 1468)
  (parent 1410)
  (unrealized (0 0) (0 1) (1 3) (9 0) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0)) (eta y))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) x) y))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (2 0))
    ((9 2) (8 0)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y x))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) x) y))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
  (label 1469)
  (parent 1413)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0)) (eta y))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1)) ((3 1) (9 0))
    ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0)) ((6 1) (5 0))
    ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0)) ((9 2) (2 0))
    ((9 2) (8 0)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y x))
  (precur (2 0) (6 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener (cat (exp (gen) y) x))
    (exp (gen) (mul x y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1470)
  (parent 1413)
  (unrealized (0 0) (0 1) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y (mul x w)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1471)
  (parent 1414)
  (unrealized (0 0) (0 1) (5 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 l-1 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0))
    (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (mul l-0 l-0))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 (mul l-0 l-0)) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (y (mul x w x-0)) (x-2 l-1) (x-2 beta))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-2) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-2)))))
  (label 1472)
  (parent 1414)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l l-0 x rndx)
    (w expt) (x-0 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul l-0 l-0))
    (eta (mul x w (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (gen) (mul x w (rec x-0) y)))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 (mul l-0 l-0)) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (y (mul x w)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-1 x-0) (y-0 y) (chi (mul x w))
      (w-0 (mul x w (rec x-0) y)) (x x-0) (y-1 y)
      (w (mul x w (rec x-0) y))) (gen) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (gen) (mul x w (rec x-0) y)))
      (send (cat (gen) (mul x w (rec x-0) y)))))
  (label 1473)
  (parent 1414)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l l-0 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0)) (chi (mul w x x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul l-0 l-0))
    (eta (mul w x x y (rec x-0))))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x-0)
  (absent (y (mul (rec ltxb) l l-0 l-0)) (y ltxb) (y (mul w x x))
    (x-0 l) (x-0 (mul l-0 l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 1 init 3) (exp (gen) x-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w x x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w x x y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x x y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x x y (rec x-0) (rec x-0))))))
  (label 1474)
  (parent 1414)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l x rndx) (w expt)
    (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-1 l-1))
    (chi (mul x w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul l-1 l-1))
    (eta (mul x w l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l) (mul l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 (mul l-1 l-1)) (y (mul (rec ltxb) l l-1 l-1))
    (y ltxb) (y (mul x w l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 3 ltx-gen 3) (exp (gen) l-2)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-1 l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul x w l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul x w l-0 y)))))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y))))
      (send
        (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y)))))
    ((recv
       (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y))))
      (send
        (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l) (mul l-1 l-1)))
      (send (cat (exp (gen) l) (mul l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))))
  (label 1475)
  (parent 1414)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l l-0 l-0))
    (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul l-0 l-0))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 (mul l-0 l-0)) (y-0 (mul (rec ltxb) l l-0 l-0))
    (y-0 ltxb) (y-0 (mul x w y)) (y-1 l-1) (y-1 alpha) (y-1 chi))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv
       (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-1 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1476)
  (parent 1414)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l x rndx) (w expt)
    (l-0 x-0 y l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-1)) (chi (mul x w l-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x-0) (beta (mul l l))
    (eta (mul x w l-0 (rec x-0) y)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((7 2) (10 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x-0 y)
  (absent (x-0 (mul l l)) (x-0 l-1) (y (mul (rec ltxb) l l l-1))
    (y ltxb) (y (mul x w l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y)))
      (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y))))
    (neq l-1 ltxb) (undisclosed l-1) (undisclosed (mul l l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 7 ltx-gen 3) (exp (gen) l-2)
    (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-1)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1))
              (exp (gen) (mul x w l-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-0 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l l-1))
              (exp (gen) (mul x w l-0 y)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y))))
      (send
        (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y))))
      (send
        (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul x w l-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul l l)))
      (send (cat (exp (gen) l-1) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))
      (send (cat (exp (gen) l-1) (mul x w l-0 (rec x-0) y (rec l-1))))))
  (label 1477)
  (parent 1414)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 x rndx) (w expt) (l-1 x-0 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0))
    (chi (mul x w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul l-0 l-0))
    (eta (mul x w l-1 (rec x-0) y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen x-0 y)
  (absent (x-0 l) (x-0 (mul l-0 l-0)) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (y (mul x w l-1)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-2) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w l-1 (rec x-0) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w l-1 y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y)))))
    ((recv
       (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w l-1 y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul x w l-1 (rec x-0) y (rec l-2)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))
      (send
        (sig (body self-1 (exp (gen) l-2) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1478)
  (parent 1414)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (alpha expt)
    (l-0 y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1) (y (one))
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
    (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) y))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) y))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) y))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 1479)
  (parent 1417)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x rndx) (w expt) (y l-1 l-2 l-3 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y (mul x w)) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul x w y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x w y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x w y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 1480)
  (parent 1417)
  (unrealized (0 0) (0 1) (11 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (beta expt) (x rndx) (w-0 expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (mul w l-0))
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (mul w l-0)) (x-1 l) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (y (mul x w-0 x-0)) (x-2 beta) (x-2 l-0) (l-0 w))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((3 1) (11 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1481)
  (parent 1418)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (beta expt) (x rndx) (w-0 expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-1) (beta (mul w l))
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l-0) (mul w l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (11 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (l w) (x-1 (mul w l)) (x-1 l-0) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (y (mul x w-0 x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l-0) (mul w l)))
      (send (cat (exp (gen) l-0) (mul w l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-2)))))
  (label 1482)
  (parent 1418)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 rndx) (beta expt) (x rndx) (w-0 expt)
    (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (mul w l-0))
    (eta (mul x w-0 x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (l-0 w) (x-1 (mul w l-0)) (x-1 l) (y (mul (rec ltxb) w l l-0))
    (y ltxb) (y (mul x w-0 x-0)) (x-2 beta) (x-2 l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w-0 x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 x-0 y)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 x-0 y)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2))))
      (send
        (cat (exp (gen) x-2) (mul x w-0 x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-1)))))
  (label 1483)
  (parent 1418)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul w l-0))
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (mul w l-0)) (x-0 l) (y-0 (mul (rec ltxb) w l l-0))
    (y-0 ltxb) (y-0 (mul x w-0 y)) (y-1 alpha) (y-1 chi) (y-1 l-0)
    (l-0 w))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((3 1) (11 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1484)
  (parent 1422)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb rndx) (w expt)
    (l rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta (mul w l))
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l-0) (mul w l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (11 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (l w) (x-0 (mul w l)) (x-0 l-0) (y-0 (mul (rec ltxb) w l l-0))
    (y-0 ltxb) (y-0 (mul x w-0 y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul w l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l) w)) (send (cat (exp (gen) l) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l-0) (mul w l)))
      (send (cat (exp (gen) l-0) (mul w l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1485)
  (parent 1422)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (ltxb rndx)
    (w expt) (l l-0 rndx) (alpha chi expt) (x rndx) (w-0 expt)
    (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) w l l-0))
    (chi (mul x w-0 y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul w l-0))
    (eta (mul x w-0 y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) w))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener
    (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
  (deflistener (cat (exp (gen) l) (mul w l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (l-0 w) (x-0 (mul w l-0)) (x-0 l)
    (y-0 (mul (rec ltxb) w l l-0)) (y-0 ltxb) (y-0 (mul x w-0 y))
    (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))
      (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul w l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) w l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) w l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w-0 y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul w l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w-0 y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul w l l-0))
              (exp (gen) (mul x w-0 y y-0)))))))
    ((recv (cat (exp (gen) l-0) w)) (send (cat (exp (gen) l-0) w)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (hash (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv
       (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0))))
      (send
        (cat (exp (gen) (mul w l l-0)) (exp (gen) (mul x w-0 y y-0)))))
    ((recv (cat (exp (gen) l) (mul w l-0)))
      (send (cat (exp (gen) l) (mul w l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1))))
      (send
        (cat (exp (gen) y-1) (mul x w-0 y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-1)))))
  (label 1486)
  (parent 1422)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (one)) (y (mul l-0 (rec l-1))) (y l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) y))
      (hash (exp (gen) l-0) (exp (gen) y))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l-0) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) y))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) y)))
      (send (hash (exp (gen) l-0) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (exp (gen) y)))
      (send (cat (exp (gen) l-0) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 1487)
  (parent 1430)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x rndx) (w expt)
    (y l-0 l-1 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul x w)) (y (mul l-0 (rec l-1)))
    (y l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul x w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul x w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 1488)
  (parent 1430)
  (unrealized (0 0) (0 1) (11 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x rndx) (alpha expt)
    (l-0 y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
  (deflistener (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (one))
    (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
      (send (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
      (send (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 1489)
  (parent 1432)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 x rndx) (w expt) (y l-1 l-2 rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (mul alpha l-0 l-1 (rec l-2)))
    (y (mul x w)) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 1490)
  (parent 1432)
  (unrealized (0 0) (0 1) (11 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one))
    (eta (mul w y (rec x))))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y w) (x (one)) (x l) (x w)
    (x (mul w (rec x))))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y)))
      (hash (exp (gen) l) (exp (gen) (mul w y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1491)
  (parent 1446)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (l l-0 rndx)
    (w expt) (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (gen) (one)))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((1 2) (9 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul w x)) (x (one)) (x l)
    (x w))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-0) (pv self l))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y x)))
      (hash (exp (gen) l) (exp (gen) (mul w y x)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) l) (exp (gen) (mul w y x)))))))
    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1492)
  (parent 1446)
  (unrealized (0 0) (0 1) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l rndx) (w expt) (y l-0 l-1 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul w y (rec x))))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0)) ((6 1) (1 0))
    ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x)
  (absent (y (mul alpha l l-0 (rec l-1))) (y w) (y l-1)
    (l-0 (mul alpha l)) (x (mul alpha l)) (x w) (x (mul w (rec x)))
    (x l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1493)
  (parent 1455)
  (unrealized (0 0) (0 1) (1 3) (7 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore mesg) (na nb na-0 nb-0 data) (b a b-0 self name)
    (pt pt-0 pt-1 pval) (priv-stor priv-stor-0 locn) (alpha expt)
    (l rndx) (w expt) (y l-0 l-1 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self) (b b-0)
    (priv-stor priv-stor-0) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul w y)))
  (deflistener (cat (gen) (mul alpha l)))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (7 0)) ((0 3) (8 0)) ((1 2) (0 2)) ((1 2) (9 0))
    ((2 1) (1 1)) ((3 1) (1 3)) ((4 1) (3 0)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (1 3)) ((8 1) (4 0))
    ((9 1) (8 0)))
  (non-orig (privk "sig" b) (privk "sig" self))
  (uniq-orig nb na-0 l-0)
  (uniq-gen y x)
  (absent (y (mul alpha l l-0 (rec l-1))) (y (mul w x)) (y l-1)
    (l-0 (mul alpha l)) (x (mul alpha l)) (x w) (x l-0))
  (precur (2 0) (5 0) (7 0) (8 0))
  (gen-st (pv b l-1) (pv self l-0))
  (facts (neq self b-0) (neq b a) (neq b-0 self) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (8 0))
  (strand-map 0 1 2 3 4 5 6 7 8)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (gen) (mul alpha l))) (send (cat (gen) (mul alpha l))))
    ((recv (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1494)
  (parent 1455)
  (unrealized (0 0) (0 1) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (deflistener x)
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((1 2) (11 0))
    ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (5 0)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul x l-1) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1)))) ((recv x) (send x)))
  (label 1495)
  (parent 1458)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul w y (rec x))))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0)) ((8 2) (7 0))
    ((9 1) (1 3)) ((10 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y w) (x (one)) (x l-0) (x w)
    (x (mul w (rec x))))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1496)
  (parent 1459)
  (unrealized (0 0) (0 1) (1 3) (9 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (9 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((1 2) (11 0))
    ((2 1) (1 1)) ((3 1) (8 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (1 0)) ((6 2) (5 0)) ((7 1) (2 0))
    ((8 2) (7 0)) ((9 1) (1 3)) ((10 1) (5 0)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y (mul w x)) (x (one))
    (x l-0) (x w))
  (precur (2 0) (9 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y x)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y x)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (8 0)) ((6 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1497)
  (parent 1459)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (rec x)))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (one))
    (y (mul l l-0 l-0 (rec l-1))) (y l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))) (neq l l-1)
    (undisclosed l) (undisclosed (mul l-0 l-0)) (undisclosed l-1)
    (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 11 0 resp 4) (exp (gen) y-0) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))))
  (label 1498)
  (parent 1471)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx) (w-0 expt))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul x w)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y (mul x w)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (added-listener (cat (exp (gen) (mul x w y (rec w-0))) w-0))
    (exp (gen) (mul x w y)) (5 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) (mul x w y (rec w-0))) w-0))
      (send (cat (exp (gen) (mul x w y (rec w-0))) w-0))))
  (label 1499)
  (parent 1471)
  (unrealized (0 0) (0 1) (11 0))
  (comment "8 in cohort - 8 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0))
    (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (mul l-0 l-0))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 (mul l-0 l-0)) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (y (mul x w x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((3 1) (11 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-2)))))
  (label 1500)
  (parent 1472)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx) (beta expt)
    (x rndx) (w expt) (x-0 x-1 y x-2 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l l-0)) (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-1) (beta (mul l l))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-0) (x x-2) (beta beta))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (11 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 2) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x-1 y x-2)
  (absent (x-1 (mul l l)) (x-1 l-0) (y (mul (rec ltxb) l l l-0))
    (y ltxb) (y (mul x w x-0)) (x-2 beta) (x-2 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (mul l l)))
      (send (cat (exp (gen) l-0) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-2)))))
  (label 1501)
  (parent 1472)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 rndx) (beta expt) (x rndx) (w expt)
    (x-0 x-1 y x-2 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y) (alpha (mul (rec ltxb) l l-0 l-0))
    (chi (mul x w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-1) (beta (mul l-0 l-0))
    (eta (mul x w x-0 (rec x-1) y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-1) (x x-2) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 2) (10 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0 l-1)
  (uniq-gen x-1 y x-2)
  (absent (x-1 l) (x-1 (mul l-0 l-0)) (y (mul (rec ltxb) l l-0 l-0))
    (y ltxb) (y (mul x w x-0)) (x-2 beta) (x-2 l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv a-0 l-1))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-1)))
      (recv
        (cat (exp (gen) (mul x w x-0 (rec x-1) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w x-0 y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2))))
      (send (cat (exp (gen) x-2) (mul x w x-0 (rec x-1) y (rec x-2)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-2))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-1)))))
  (label 1502)
  (parent 1472)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l l-0 l-0))
    (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul l-0 l-0))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (11 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 (mul l-0 l-0)) (y-0 (mul (rec ltxb) l l-0 l-0))
    (y-0 ltxb) (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((3 1) (11 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv
       (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1503)
  (parent 1476)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (ltxb l rndx)
    (alpha chi expt) (x rndx) (w expt) (y x-0 y-0 y-1 l-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l l l-0)) (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta (mul l l))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l-0) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-0) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (11 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 3) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 (mul l l)) (x-0 l-0) (y-0 (mul (rec ltxb) l l l-0))
    (y-0 ltxb) (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-0))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0))))
    (neq l-0 ltxb) (undisclosed l-0) (undisclosed (mul l l))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 12 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (hash (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (cat (exp (gen) (mul l l l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l-0) (mul l l)))
      (send (cat (exp (gen) l-0) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha l-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1504)
  (parent 1476)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (ltxb l l-0 rndx) (alpha chi expt) (x rndx) (w expt)
    (y x-0 y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l ltxb) (y y-0) (alpha (mul (rec ltxb) l l-0 l-0))
    (chi (mul x w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x-0) (beta (mul l-0 l-0))
    (eta (mul x w y (rec x-0) y-0)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-1))
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (10 0)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 3) (10 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0 l-1)
  (uniq-gen x-0 y-0 y-1)
  (absent (x-0 l) (x-0 (mul l-0 l-0)) (y-0 (mul (rec ltxb) l l-0 l-0))
    (y-0 ltxb) (y-0 (mul x w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b ltxb) (pv self l-0) (pv self-0 l) (pv b-1 l-1))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
    (neq l ltxb) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed ltxb) (undisclosed (mul (rec ltxb) l l-0 l-0)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((12 1) (11 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-1))) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b ltxb)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec ltxb) l l-0 l-0)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul x w y (rec x-0) y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul x w y y-0)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv
       (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul x w y y-0)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul x w y (rec x-0) y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-1)))))
  (label 1505)
  (parent 1476)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (alpha expt)
    (l-0 y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((1 2) (11 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1) (y (one))
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
    (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) y))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) y))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2)) (exp (gen) y)))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) y))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 1506)
  (parent 1479)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y w) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 0 resp 4) (exp (gen) y-0) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1507)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 l-3 l-4 rndx) (beta expt) (x rndx)
    (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-4) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l-1 l-2)
  (uniq-gen x y x-1)
  (absent (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1) (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3)
    (y (mul w x-0)) (x-1 l-4) (x-1 beta))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1) (pv a-0 l-4))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w x-0 y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-4)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 1508)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 l-3 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1) (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 1509)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (w expt)
    (l-0 rndx) (beta expt) (x y x-0 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 beta l-1)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta (mul beta l-1))
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (exp (gen) l-1) beta))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y))))
  (deflistener
    (cat (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (mul beta l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0 beta l-1)) (y l) (y (mul w x)) (x-0 l-0)
    (x-0 (mul beta l-1)) (l-1 beta))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l) (pv self l-1) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y)))
      (hash (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed (mul beta l-1))
    (undisclosed l) (undisclosed (mul (rec l) l-0 beta l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 1 init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) l-0 beta l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 beta l-1))
              (exp (gen) (mul w x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul beta l-1)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-0 beta l-1))
              (exp (gen) (mul w x y)))))))
    ((recv (cat (exp (gen) l-1) beta))
      (send (cat (exp (gen) l-1) beta)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y))))
      (send
        (hash (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y))))
      (send
        (cat (exp (gen) (mul l-0 beta l-1)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (mul beta l-1)))
      (send (cat (exp (gen) l-0) (mul beta l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 1510)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 x rndx) (w expt) (l-3 y l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec l) alpha l-0 l-1 (rec l-2) l-4))
    (chi (mul w l-3)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-4)) (eta (mul (rec x) w l-3 y)))
  (deflistener (cat (exp (gen) l-4) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-4))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
      (exp (gen) (mul w l-3 y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
      (exp (gen) (mul w l-3 y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-4)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-4)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-4))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-3)))
  (deflistener (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-4)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-4)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 (rec l-2) l-4)) (y l-2)
    (y (mul w l-3)) (l-4 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l-4) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
        (exp (gen) (mul w l-3 y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
        (exp (gen) (mul w l-3 y)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-4)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 l-1 (rec l-2) l-4)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 3) (exp (gen) l-5)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-3))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
              (exp (gen) (mul w l-3 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-4))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-3 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
              (exp (gen) (mul w l-3 y)))))))
    ((recv (cat (exp (gen) l-4) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-4) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-4)))
      (send
        (sig (body self (exp (gen) l-4) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
         (exp (gen) (mul w l-3 y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
          (exp (gen) (mul w l-3 y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
         (exp (gen) (mul w l-3 y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
          (exp (gen) (mul w l-3 y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-4)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-4))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-4) (send l-4))
    ((load priv-stor-0 (cat pt-1 (pv self l-4)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-4))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-3)))
      (send (cat (exp (gen) y) (mul (rec x) w l-3))))
    ((recv (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))
      (send (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))))
  (label 1511)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 l-3 l-4 rndx) (alpha-0 chi expt) (x rndx)
    (w expt) (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y-0) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-4) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l-1 l-2)
  (uniq-gen x y-0 y-1)
  (absent (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1) (y-0 (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y-0 l-3)
    (y-0 (mul w y)) (y-1 l-4) (y-1 alpha-0) (y-1 chi))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1) (pv b-1 l-4))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y y-0)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-4)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-4 alpha-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1512)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 x rndx) (w expt) (l-3 y l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec l) alpha l-0 l-1 (rec l-2) l-4))
    (chi (mul w l-3)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-4) (x x)
    (beta (mul (rec l) alpha l-0 l-1)) (eta (mul (rec x) w l-3 y)))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
      (exp (gen) (mul w l-3 y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
      (exp (gen) (mul w l-3 y))))
  (deflistener (cat (exp (gen) l-4) (mul (rec l) alpha l-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-4))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-3)))
  (deflistener (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((7 2) (11 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-4)
  (uniq-gen x y)
  (absent (l-1 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-1))
    (x l-4) (y (mul (rec l) alpha l-0 l-1 (rec l-2) l-4)) (y l-2)
    (y (mul w l-3)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l-1) (pv self-0 l-4))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
        (exp (gen) (mul w l-3 y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
        (exp (gen) (mul w l-3 y)))) (neq l-4 l-2) (undisclosed l-4)
    (undisclosed (mul (rec l) alpha l-0 l-1)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 l-1 (rec l-2) l-4)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 7 ltx-gen 3) (exp (gen) l-5)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 (rec l-2) l-4))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-3))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
              (exp (gen) (mul w l-3 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-4)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-3 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
              (exp (gen) (mul w l-3 y)))))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
         (exp (gen) (mul w l-3 y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
          (exp (gen) (mul w l-3 y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
         (exp (gen) (mul w l-3 y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-4))
          (exp (gen) (mul w l-3 y)))))
    ((recv (cat (exp (gen) l-4) (mul (rec l) alpha l-0 l-1)))
      (send (cat (exp (gen) l-4) (mul (rec l) alpha l-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-4)))
      (send
        (sig (body self-0 (exp (gen) l-4) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-3)))
      (send (cat (exp (gen) y) (mul (rec x) w l-3))))
    ((recv (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))
      (send (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))))
  (label 1513)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 l-3 x rndx) (w expt) (l-4 y l-5 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul w l-4)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w l-4 y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w l-4 y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w l-4 y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-4)))
  (deflistener (cat (exp (gen) l-5) (mul w l-4 y (rec l-5))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-5))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2 l-5)
  (uniq-gen x y)
  (absent (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1) (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3)
    (y (mul w l-4)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w l-4 y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w l-4 y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-5) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-4))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w l-4 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-4 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w l-4 y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w l-4 y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w l-4 y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w l-4 y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w l-4 y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-4)))
      (send (cat (exp (gen) y) (mul (rec x) w l-4))))
    ((recv (cat (exp (gen) l-5) (mul w l-4 y (rec l-5))))
      (send (cat (exp (gen) l-5) (mul w l-4 y (rec l-5)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-5)))
      (send
        (sig (body self-1 (exp (gen) l-5) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1514)
  (parent 1480)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((1 2) (11 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (one)) (y (mul l-0 (rec l-1))) (y l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) y))
      (hash (exp (gen) l-0) (exp (gen) y))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b (hash (exp (gen) l-0) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) y))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) y)))
      (send (hash (exp (gen) l-0) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (exp (gen) y)))
      (send (cat (exp (gen) l-0) (exp (gen) y))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 1515)
  (parent 1487)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 0 resp 4) (exp (gen) y-0) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1516)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "4 in cohort - 4 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul w x-0)) (x-1 l-2) (x-1 beta))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 1517)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 1518)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (w expt)
    (l-1 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-1)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x-0) (beta (one))
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x-0)
  (absent (y (mul (rec l-0) l-1)) (y l-0) (y (mul w x)) (x-0 (one))
    (x-0 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w x y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w x y)))) (neq l-1 l-0)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 1 init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w x y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 1519)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l-2) (rec l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-2) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 3) (exp (gen) l-3)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l-2) (rec l-2)))
      (send (cat (exp (gen) l-2) (rec l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))))
  (label 1520)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (alpha chi expt) (x rndx) (w expt)
    (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul l-0 (rec l-1))) (y-0 l-1)
    (y-0 (mul w y)) (y-1 l-2) (y-1 alpha) (y-1 chi))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-2 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1521)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-2)) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-2) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l-2) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((7 2) (11 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l-2) (y (mul (rec l-0) l-2)) (y l-0)
    (y (mul w l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-2))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))) (neq l-2 l-0)
    (undisclosed l-2) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 7 ltx-gen 3) (exp (gen) l-3)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l-2) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l-2) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l-2) (one)))
      (send (cat (exp (gen) l-2) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))))
  (label 1522)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 x rndx) (w expt) (l-2 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w l-2 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-2)))
  (deflistener (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-3)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul w l-2)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-2 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w l-2 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-2)))
      (send (cat (exp (gen) y) (mul (rec x) w l-2))))
    ((recv (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul w l-2 y (rec l-3)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-3)))
      (send
        (sig (body self-1 (exp (gen) l-3) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1523)
  (parent 1488)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x rndx) (alpha expt)
    (l-0 y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
  (deflistener (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((1 2) (11 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (one))
    (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
      (send (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y)))
      (send (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) y))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 1524)
  (parent 1489)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (mul alpha l-0 l-1 (rec l-2)))
    (y w) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 0 resp 4) (exp (gen) y-0) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1525)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 l-3 rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2)))
    (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1)
    (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (y (mul w x-0)) (x-1 l-3)
    (x-1 beta))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1) (pv a-0 l-3))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 1526)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1)
    (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 1527)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (w expt)
    (l-1 rndx) (beta expt) (x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-1 beta)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x-0) (beta beta)
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (exp (gen) l) (mul (rec l) beta)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-1) beta))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x-0)
  (absent (l-1 beta) (y (mul (rec l-0) l-1 beta)) (y l-0) (y (mul w x))
    (x-0 l-1) (x-0 beta))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y)))
      (hash (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed beta) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1 beta)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 1 init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l-0) l-1 beta)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-1 beta))
              (exp (gen) (mul w x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) beta) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-1 beta))
              (exp (gen) (mul w x y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) beta)))
      (send (cat (exp (gen) l) (mul (rec l) beta))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y))))
      (send (hash (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y))))
      (send (cat (exp (gen) (mul l-1 beta)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-1) beta))
      (send (cat (exp (gen) l-1) beta)))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 1528)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 x rndx) (w expt) (l-2 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w l-2 y)))
  (deflistener (cat (exp (gen) l-3) (mul alpha l (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-3))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-3)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-3))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-2)))
  (deflistener (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-0 l-3)
  (uniq-gen x y)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul w l-2)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-3) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 3) (exp (gen) l-4)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-2 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((recv (cat (exp (gen) l-3) (mul alpha l (rec l-3))))
      (send (cat (exp (gen) l-3) (mul alpha l (rec l-3)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-3) (send l-3))
    ((load priv-stor-0 (cat pt-1 (pv self l-3)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-3))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-2)))
      (send (cat (exp (gen) y) (mul (rec x) w l-2))))
    ((recv (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))))
  (label 1529)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 l-3 rndx) (alpha-0 chi expt) (x rndx)
    (w expt) (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y-0) (alpha (mul alpha l-0 l-1 (rec l-2)))
    (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-3) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1)
    (y-0 (mul alpha l-0 l-1 (rec l-2))) (y-0 l-2) (y-0 (mul w y))
    (y-1 l-3) (y-1 alpha-0) (y-1 chi))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1) (pv b-1 l-3))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-3)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-3 alpha-0))
              (exp (gen) (mul chi y-1))))))))
  (label 1530)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 x rndx) (w expt) (l-2 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l-0 (rec l-1) l-3))
    (chi (mul w l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-3) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w l-2 y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-3)) (exp (gen) (mul w l-2 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-3)) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l-3) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-2)))
  (deflistener (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((7 2) (11 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-3)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-3) (y (mul alpha l-0 (rec l-1) l-3))
    (y l-1) (y (mul w l-2)) (l-3 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-3))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-3)) (exp (gen) (mul w l-2 y)))
      (hash (exp (gen) (mul alpha l-0 l-3)) (exp (gen) (mul w l-2 y))))
    (neq l-3 l-1) (undisclosed l-3) (undisclosed (mul alpha l-0))
    (undisclosed l-1) (undisclosed (mul alpha l-0 (rec l-1) l-3)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 7 ltx-gen 3) (exp (gen) l-4)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 (rec l-1) l-3))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-3))
              (exp (gen) (mul w l-2 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-2 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-3))
              (exp (gen) (mul w l-2 y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-3)) (exp (gen) (mul w l-2 y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-3))
          (exp (gen) (mul w l-2 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-3)) (exp (gen) (mul w l-2 y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-3))
          (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l-3) (mul alpha l-0)))
      (send (cat (exp (gen) l-3) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-2)))
      (send (cat (exp (gen) y) (mul (rec x) w l-2))))
    ((recv (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))))
  (label 1531)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 x rndx) (w expt) (l-3 y l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2)))
    (chi (mul w l-3)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w l-3 y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w l-3 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w l-3 y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-3)))
  (deflistener (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1 l-4)
  (uniq-gen x y)
  (absent (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1)
    (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (y (mul w l-3)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w l-3 y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w l-3 y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-4) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-3))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w l-3 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-3 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w l-3 y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w l-3 y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w l-3 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w l-3 y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w l-3 y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-3)))
      (send (cat (exp (gen) y) (mul (rec x) w l-3))))
    ((recv (cat (exp (gen) l-4) (mul w l-3 y (rec l-4))))
      (send (cat (exp (gen) l-4) (mul w l-3 y (rec l-4)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-4)))
      (send
        (sig (body self-1 (exp (gen) l-4) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1532)
  (parent 1490)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 l-1 y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (one)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (rec x)))
  (deflistener x)
  (precedes ((0 3) (5 0)) ((0 3) (10 0)) ((1 2) (0 2)) ((1 2) (11 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (one))
    (y (mul l l-0 l-0 (rec l-1))) (y l-1))
  (precur (2 0) (6 0) (10 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))) (neq l l-1)
    (undisclosed l) (undisclosed (mul l-0 l-0)) (undisclosed l-1)
    (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (rec x) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (gen)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) y)))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) y))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (rec x)))
      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
  (label 1533)
  (parent 1498)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 l-1 rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 0 resp 4) (exp (gen) y-0) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1534)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (comment "5 in cohort - 5 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0)
  (uniq-gen x y x-1)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y (mul w x-0)) (x-1 l-2) (x-1 beta))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 a-0 b-1 (exp (gen) x-1)))))
  (label 1535)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test
    (contracted (x-0 x) (w-0 (mul (rec x) w)) (y-0 y) (w-1 (mul w y))
      (y-1 y) (w (mul w y))) (gen) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
  (label 1536)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (w expt)
    (l-0 l-1 x y x-0 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l) (y y) (alpha (mul (rec l) l-0 l-1 l-1)) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x-0) (beta (mul l-1 l-1))
    (eta (mul w x y (rec x-0))))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y))))
  (deflistener
    (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y))))
  (deflistener (cat (exp (gen) l-0) (mul l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul w x (rec x-0))))
  (deflistener (cat (exp (gen) x-0) (mul w x y (rec x-0))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-0 l-1)
  (uniq-gen y x-0)
  (absent (y (mul (rec l) l-0 l-1 l-1)) (y l) (y (mul w x)) (x-0 l-0)
    (x-0 (mul l-1 l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l) (pv self l-1) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y)))
      (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y))))
    (neq l-0 l) (undisclosed l-0) (undisclosed (mul l-1 l-1))
    (undisclosed l) (undisclosed (mul (rec l) l-0 l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 1 init 3) (exp (gen) x-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) l-0 l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul w x y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x-0)))
      (recv
        (cat (exp (gen) (mul w x y (rec x-0)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l-0 l-1 l-1))
              (exp (gen) (mul w x y)))))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y))))
      (send
        (hash (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y))))
      (send
        (cat (exp (gen) (mul l-0 l-1 l-1)) (exp (gen) (mul w x y)))))
    ((recv (cat (exp (gen) l-0) (mul l-1 l-1)))
      (send (cat (exp (gen) l-0) (mul l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) (mul w x (rec x-0))))
      (send (cat (exp (gen) y) (mul w x (rec x-0)))))
    ((recv (cat (exp (gen) x-0) (mul w x y (rec x-0))))
      (send (cat (exp (gen) x-0) (mul w x y (rec x-0))))))
  (label 1537)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-2 l-2)) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-2 l-2))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l-2) l-2))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener
    (cat (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (mul l-2 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x l) (x (mul l-2 l-2)) (y (mul l (rec l-0) l-2 l-2)) (y l-0)
    (y (mul w l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-2) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-2 l-2))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-2 l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 3) (exp (gen) l-3)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-2 l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-2 l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-2 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-2 l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l-2) l-2)) (send (cat (exp (gen) l-2) l-2)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
      (send
        (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
      (send
        (cat (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (mul l-2 l-2)))
      (send (cat (exp (gen) l) (mul l-2 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))))
  (label 1538)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 l-2 rndx) (alpha chi expt) (x rndx) (w expt)
    (y y-0 y-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0)
  (uniq-gen x y-0 y-1)
  (absent (x l) (x (mul l-0 l-0)) (y-0 (mul l l-0 l-0 (rec l-1)))
    (y-0 l-1) (y-0 (mul w y)) (y-1 l-2) (y-1 alpha) (y-1 chi))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 gen-st-ltx-disclose-0
    trRl_ltx-disclose-at-0 trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0
    trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand resp 4) (exp (gen) y-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul l-2 alpha))
              (exp (gen) (mul chi y-1))))))))
  (label 1539)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0) (12 0))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l l (rec l-0) l-2)) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-2) (x x) (beta (mul l l))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener
    (cat (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l-2) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((7 2) (11 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (mul l l)) (x l-2) (y (mul l l (rec l-0) l-2)) (y l-0)
    (y (mul w l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-2))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y))))
    (neq l-2 l-0) (undisclosed l-2) (undisclosed (mul l l))
    (undisclosed l-0) (undisclosed (mul l l (rec l-0) l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 7 ltx-gen 3) (exp (gen) l-3)
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0) l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) (mul l l l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l-2) (mul l l)))
      (send (cat (exp (gen) l-2) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))))
  (label 1540)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 x rndx) (w expt) (l-2 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul w l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w l-2 y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-2)))
  (deflistener (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-3)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y (mul w l-2)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 3) (exp (gen) l-3) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-2 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-2)))
      (send (cat (exp (gen) y) (mul (rec x) w l-2))))
    ((recv (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul w l-2 y (rec l-3)))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-3)))
      (send
        (sig (body self-1 (exp (gen) l-3) (pubk "sig" self-1))
          (privk "sig" self-1)))))
  (label 1541)
  (parent 1499)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 y l-1 l-2 x l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
    (chi (mul x l-3)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-3)) (eta (mul y l-3)))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul y x l-3))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul y x l-3))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-3)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-3))
  (deflistener (cat (exp (gen) y) l-3))
  (deflistener (cat (exp (gen) y) (mul x l-3)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-3)
  (uniq-gen y x)
  (absent (y (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)) (y l-2)
    (y (mul x l-3)) (x (mul (rec l) alpha l-0 l-3)) (x l-1)
    (l-3 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l-3) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul y x l-3)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul y x l-3)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-3)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 2) l-4 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x l-3))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul y x l-3)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-3))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul y x l-3)))))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-3) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul y x l-3))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul y x l-3)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul y x l-3))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul y x l-3)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-3) (send l-3))
    ((load priv-stor-0 (cat pt-1 (pv self l-3)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-3))
    ((recv (cat (exp (gen) y) l-3)) (send (cat (exp (gen) y) l-3)))
    ((recv (cat (exp (gen) y) (mul x l-3)))
      (send (cat (exp (gen) y) (mul x l-3)))))
  (label 1542)
  (parent 1507)
  (unrealized (0 0) (0 1) (0 2) (5 0) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 y l-1 l-2 l-3 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta y))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul y x))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul y x))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (one)))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen y x)
  (absent (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3) (y x)
    (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul y x)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul y x)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (x-0 x) (w x)) (one) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul y x)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul y x))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul y x)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul y x))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul y x)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1543)
  (parent 1507)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 y l-1 l-2 l-3 x l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul x l-4)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul y l-4)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul y x l-4))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul y x l-4))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) l-4))
  (deflistener (cat (exp (gen) y) (mul x l-4)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2 l-4)
  (uniq-gen y x)
  (absent (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3)
    (y (mul x l-4)) (l-2 (mul (rec l) alpha l-0))
    (x (mul (rec l) alpha l-0 l-2)) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul y x l-4)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul y x l-4)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-4 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x l-4))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul y x l-4)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-4))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul y x l-4)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul y x l-4))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul y x l-4)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul y x l-4))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul y x l-4)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) l-4)) (send (cat (exp (gen) y) l-4)))
    ((recv (cat (exp (gen) y) (mul x l-4)))
      (send (cat (exp (gen) y) (mul x l-4))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-4)))))
  (label 1544)
  (parent 1507)
  (unrealized (0 0) (0 1) (0 2) (5 0) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 l-3 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen y x)
  (absent (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y (mul w x))
    (y l-3) (l-2 (mul (rec l) alpha l-0))
    (x (mul (rec l) alpha l-0 l-2)) (x w) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y x)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y x))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y x)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y x))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1545)
  (parent 1507)
  (unrealized (0 0) (0 1) (5 0) (11 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (x (mul (rec l) alpha l-0 l-2)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y w) (y l-3)
    (l-2 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1546)
  (parent 1507)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
    (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-3)) (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-3)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-3))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l-1 l-3)
  (uniq-gen x y x-1)
  (absent (x (mul (rec l) alpha l-0 l-3)) (x l-1)
    (y (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)) (y l-2)
    (y (mul w x-0)) (x-1 beta) (x-1 l-3) (l-3 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l-3) (pv self-0 l-1))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w x-0 y)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-3)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-4))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-3) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-3) (send l-3))
    ((load priv-stor-0 (cat pt-1 (pv self l-3)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-3))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1547)
  (parent 1508)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
    (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-3) (x x)
    (beta (mul (rec l) alpha l-0 l-1)) (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) alpha l-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-3) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l-1 l-3)
  (uniq-gen x y x-1)
  (absent (l-1 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-1))
    (x l-3) (y (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)) (y l-2)
    (y (mul w x-0)) (x-1 beta) (x-1 l-3))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l-1) (pv self-0 l-3))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w x-0 y)))) (neq l-3 l-2) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-4))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) alpha l-0 l-1)))
      (send (cat (exp (gen) l-3) (mul (rec l) alpha l-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-1)))))
  (label 1548)
  (parent 1508)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 l-3 rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-4) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0))
    ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l-1 l-2 l-4)
  (uniq-gen x y x-1)
  (absent (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1) (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3)
    (y (mul w x-0)) (x-1 beta) (x-1 l-4))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1) (pv a-0 l-4))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w x-0 y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-4))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-4)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-4)))))
  (label 1549)
  (parent 1508)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 l-3 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (10 0)) ((0 3) (12 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen x y)
  (absent (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1) (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y l-3) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1550)
  (parent 1509)
  (unrealized (0 0) (0 1) (1 3) (10 0) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 rndx) (alpha-0 chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y-0) (alpha (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
    (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-3)) (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-3))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-3)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-3))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-3) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l-1 l-3)
  (uniq-gen x y-0 y-1)
  (absent (x (mul (rec l) alpha l-0 l-3)) (x l-1)
    (y-0 (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)) (y-0 l-2)
    (y-0 (mul w y)) (y-1 alpha-0) (y-1 chi) (y-1 l-3)
    (l-3 (mul (rec l) alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l-3) (pv self-0 l-1))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w y y-0)))) (neq l-1 l-2) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-3)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-4))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-3))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-3) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-3))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-3) (send l-3))
    ((load priv-stor-0 (cat pt-1 (pv self l-3)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-3))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-3)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha-0 l-3))
              (exp (gen) (mul chi y-1))))))))
  (label 1551)
  (parent 1512)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 rndx) (alpha-0 chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y-0) (alpha (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
    (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-3) (x x)
    (beta (mul (rec l) alpha l-0 l-1)) (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
      (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-3) (mul (rec l) alpha l-0 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-3))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-3) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l-1 l-3)
  (uniq-gen x y-0 y-1)
  (absent (l-1 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-1))
    (x l-3) (y-0 (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)) (y-0 l-2)
    (y-0 (mul w y)) (y-1 alpha-0) (y-1 chi) (y-1 l-3))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l-1) (pv self-0 l-3))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
        (exp (gen) (mul w y y-0)))) (neq l-3 l-2) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1)) (undisclosed l-2)
    (undisclosed (mul (rec l) alpha l-0 l-1 (rec l-2) l-3)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-4))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 (rec l-2) l-3))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-1))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
         (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-3))
          (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-3) (mul (rec l) alpha l-0 l-1)))
      (send (cat (exp (gen) l-3) (mul (rec l) alpha l-0 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (send
        (sig (body self-0 (exp (gen) l-3) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-3)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha-0 l-3))
              (exp (gen) (mul chi y-1))))))))
  (label 1552)
  (parent 1512)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 l-3 rndx) (alpha-0 chi expt) (x rndx)
    (w expt) (y y-0 y-1 l-4 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y-0) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-4) (y y-1) (alpha alpha-0) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-4))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 3) (11 0))
    ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l-1 l-2 l-4)
  (uniq-gen x y-0 y-1)
  (absent (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2))
    (x l-1) (y-0 (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y-0 l-3)
    (y-0 (mul w y)) (y-1 alpha-0) (y-1 chi) (y-1 l-4))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1) (pv b-1 l-4))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y y-0)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-4))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-4)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha-0 l-4))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-4)))))
  (label 1553)
  (parent 1512)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 y x l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul x l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul y l-2)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul y x l-2))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul y x l-2))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) l-2))
  (deflistener (cat (exp (gen) y) (mul x l-2)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y (mul x l-2)) (x (one))
    (x l-0))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))
      (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-2))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul y x l-2))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul y x l-2))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) l-2)) (send (cat (exp (gen) y) l-2)))
    ((recv (cat (exp (gen) y) (mul x l-2)))
      (send (cat (exp (gen) y) (mul x l-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))))
  (label 1554)
  (parent 1516)
  (unrealized (0 0) (0 1) (0 2) (5 0) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 2) l-2 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1)))))
  (label 1555)
  (parent 1516)
  (unrealized (0 0) (0 1) (5 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y (mul w x)) (x (one))
    (x l-0) (x w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y x)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y x)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1556)
  (parent 1516)
  (unrealized (0 0) (0 1) (5 0) (11 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x l-0 l-1 rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1557)
  (parent 1516)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w x-0))
    (x-1 beta) (x-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1558)
  (parent 1517)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul (rec l-0) l-1)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-1) (y (mul (rec l-0) l-1)) (y l-0)
    (y (mul w x-0)) (x-1 beta) (x-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))) (neq l-1 l-0)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-1)))))
  (label 1559)
  (parent 1517)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-2) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0))
    ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0 l-2)
  (uniq-gen x y x-1)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1)
    (y (mul w x-0)) (x-1 beta) (x-1 l-2))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-2)))))
  (label 1560)
  (parent 1517)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (10 0)) ((0 3) (12 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x (one)) (x l-0) (y (mul l-0 (rec l-1))) (y l-1) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1561)
  (parent 1518)
  (unrealized (0 0) (0 1) (1 3) (10 0) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l-2) (rec l-2)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (deflistener y)
  (precedes ((0 3) (10 0)) ((0 3) (12 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x (one)) (x l) (y (mul l (rec l-0))) (y l-0) (y (mul w l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-2) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w l-1 y (rec l-2))
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l-2) (rec l-2)))
      (send (cat (exp (gen) l-2) (rec l-2))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (hash (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w l-1 y))))
      (send (cat (exp (gen) l) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2)))))
    ((recv y) (send y)))
  (label 1562)
  (parent 1520)
  (unrealized (0 0) (0 1) (1 3) (10 0) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l) (y-0 (mul l (rec l-0))) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l) (exp (gen) (mul w y y-0)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 1563)
  (parent 1521)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul (rec l-0) l-1)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-1) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-1) (y-0 (mul (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))) (neq l-1 l-0)
    (undisclosed l-1) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul (rec l-0) l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-1) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-1) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-1) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (one)))
      (send (cat (exp (gen) l-1) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 1564)
  (parent 1521)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 3) (11 0))
    ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0 l-2)
  (uniq-gen x y-0 y-1)
  (absent (x (one)) (x l-0) (y-0 (mul l-0 (rec l-1))) (y-0 l-1)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-2))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-2)))))
  (label 1565)
  (parent 1521)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l y l-0 l-1 x l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul x l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul y l-2)))
  (deflistener (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) l-2))
  (deflistener (cat (exp (gen) y) (mul x l-2)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-0 l-2)
  (uniq-gen y x)
  (absent (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul x l-2))
    (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-2) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 2) l-3 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x l-2)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-2))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x l-2)))))))
    ((recv (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
      (send (cat (exp (gen) l-2) (mul alpha l (rec l-2)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) l-2)) (send (cat (exp (gen) y) l-2)))
    ((recv (cat (exp (gen) y) (mul x l-2)))
      (send (cat (exp (gen) y) (mul x l-2)))))
  (label 1566)
  (parent 1525)
  (unrealized (0 0) (0 1) (5 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 y l-1 l-2 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta y))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (one)))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (y x)
    (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (x-0 x) (w x)) (one) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul y x)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1567)
  (parent 1525)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 y l-1 l-2 x l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2)))
    (chi (mul x l-3)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul y l-3)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x l-3))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x l-3))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) l-3))
  (deflistener (cat (exp (gen) y) (mul x l-3)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1 l-3)
  (uniq-gen y x)
  (absent (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (y (mul x l-3))
    (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x l-3)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x l-3))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-3 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x l-3))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul y x l-3)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-3))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul y x l-3)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x l-3))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul y x l-3)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul y x l-3))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul y x l-3)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) l-3)) (send (cat (exp (gen) y) l-3)))
    ((recv (cat (exp (gen) y) (mul x l-3)))
      (send (cat (exp (gen) y) (mul x l-3))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-3)))))
  (label 1568)
  (parent 1525)
  (unrealized (0 0) (0 1) (0 2) (5 0) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul alpha l-0 l-1 (rec l-2))) (y (mul w x)) (y l-2)
    (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x w) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1569)
  (parent 1525)
  (unrealized (0 0) (0 1) (5 0) (11 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l x rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (x (mul alpha l-0)) (x l-1) (y (mul alpha l-0 l-1 (rec l-2)))
    (y w) (y l-2) (l-1 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1570)
  (parent 1525)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l-0 l-2)
  (uniq-gen x y x-1)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul w x-0)) (x-1 beta)
    (x-1 l-2))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-2) (pv self-0 l-0))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-3))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
      (send (cat (exp (gen) l-2) (mul alpha l (rec l-2)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1571)
  (parent 1526)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l-0 (rec l-1) l-2))
    (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-2) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-2) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-2) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-2)
  (uniq-gen x y x-1)
  (absent (x (mul alpha l-0)) (x l-2) (y (mul alpha l-0 (rec l-1) l-2))
    (y l-1) (y (mul w x-0)) (x-1 beta) (x-1 l-2) (l-2 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-2))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w x-0 y))))
    (neq l-2 l-1) (undisclosed l-2) (undisclosed (mul alpha l-0))
    (undisclosed l-1) (undisclosed (mul alpha l-0 (rec l-1) l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-3))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 (rec l-1) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-2))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-2))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-2))
          (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-2))
          (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-2) (mul alpha l-0)))
      (send (cat (exp (gen) l-2) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-1)))))
  (label 1572)
  (parent 1526)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 rndx) (beta expt) (x rndx) (w expt)
    (x-0 y x-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2)))
    (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-3) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 2) (11 0))
    ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1 l-3)
  (uniq-gen x y x-1)
  (absent (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1)
    (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (y (mul w x-0)) (x-1 beta)
    (x-1 l-3))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1) (pv a-0 l-3))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-3))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w x-0 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-3)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-3)))))
  (label 1573)
  (parent 1526)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 l-2 x rndx) (w expt) (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (10 0)) ((0 3) (12 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen x y)
  (absent (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1)
    (y (mul alpha l-0 l-1 (rec l-2))) (y l-2) (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1574)
  (parent 1527)
  (unrealized (0 0) (0 1) (1 3) (10 0) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 x rndx) (w expt) (l-2 y l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w l-2 y)))
  (deflistener (cat (exp (gen) l-3) (mul alpha l (rec l-3))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-3))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-3)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-3))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-2)))
  (deflistener (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
  (deflistener y)
  (precedes ((0 3) (10 0)) ((0 3) (12 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-0 l-3)
  (uniq-gen x y)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul w l-2)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-3) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w l-2 y (rec l-3))
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-2 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w l-2 y)))))))
    ((recv (cat (exp (gen) l-3) (mul alpha l (rec l-3))))
      (send (cat (exp (gen) l-3) (mul alpha l (rec l-3)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-3)))
      (send
        (sig (body self (exp (gen) l-3) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w l-2 y)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-3) (send l-3))
    ((load priv-stor-0 (cat pt-1 (pv self l-3)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-3))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-2)))
      (send (cat (exp (gen) y) (mul (rec x) w l-2))))
    ((recv (cat (exp (gen) l-3) (mul w l-2 y (rec l-3))))
      (send (cat (exp (gen) l-3) (mul w l-2 y (rec l-3)))))
    ((recv y) (send y)))
  (label 1575)
  (parent 1529)
  (unrealized (0 0) (0 1) (1 3) (10 0) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l l-0 l-1 rndx) (alpha-0 chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-2) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l-0 l-2)
  (uniq-gen x y-0 y-1)
  (absent (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0)
    (y-0 (mul alpha l l-0 (rec l-1))) (y-0 l-1) (y-0 (mul w y))
    (y-1 alpha-0) (y-1 chi) (y-1 l-2))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-2) (pv self-0 l-0))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-3))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
      (send (cat (exp (gen) l-2) (mul alpha l (rec l-2)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha-0 l-2))
              (exp (gen) (mul chi y-1))))))))
  (label 1576)
  (parent 1530)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 l-1 rndx) (alpha-0 chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul alpha l-0 (rec l-1) l-2))
    (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-2) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-2) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-2))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-2) (y y-1) (alpha alpha-0) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-2)
  (uniq-gen x y-0 y-1)
  (absent (x (mul alpha l-0)) (x l-2)
    (y-0 (mul alpha l-0 (rec l-1) l-2)) (y-0 l-1) (y-0 (mul w y))
    (y-1 alpha-0) (y-1 chi) (y-1 l-2) (l-2 (mul alpha l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-2))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w y y-0))))
    (neq l-2 l-1) (undisclosed l-2) (undisclosed (mul alpha l-0))
    (undisclosed l-1) (undisclosed (mul alpha l-0 (rec l-1) l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-3))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 (rec l-1) l-2))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-2))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-2))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-2))
          (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-2)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-2))
          (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-2) (mul alpha l-0)))
      (send (cat (exp (gen) l-2) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (send
        (sig (body self-0 (exp (gen) l-2) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha-0 l-2))
              (exp (gen) (mul chi y-1))))))))
  (label 1577)
  (parent 1530)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn) (l rndx)
    (alpha expt) (l-0 l-1 l-2 rndx) (alpha-0 chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-3 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y-0) (alpha (mul alpha l-0 l-1 (rec l-2)))
    (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-3) (y y-1) (alpha alpha-0) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-3))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)) ((12 3) (11 0))
    ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1 l-3)
  (uniq-gen x y-0 y-1)
  (absent (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x l-1)
    (y-0 (mul alpha l-0 l-1 (rec l-2))) (y-0 l-2) (y-0 (mul w y))
    (y-1 alpha-0) (y-1 chi) (y-1 l-3))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1) (pv b-1 l-3))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-3))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w y y-0)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1))
          (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-3)))
      (recv
        (sig (body a-0 (exp (gen) alpha-0) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha-0 l-3))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-3)))))
  (label 1578)
  (parent 1530)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1 l-1)) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-1 l-1))
    (eta (mul y l-1)))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
  (deflistener
    (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (mul l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0) l-1 l-1)) (y l-0) (y (mul x l-1)) (x l)
    (x (mul l-1 l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (displaced 12 3 ltx-gen 2) l-2 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y x l-1)))))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
      (send
        (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
      (send
        (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (mul l-1 l-1)))
      (send (cat (exp (gen) l) (mul l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1)))))
  (label 1579)
  (parent 1534)
  (unrealized (0 0) (0 1) (5 0) (11 0))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi x))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0)) (eta y))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (one)))
  (deflistener (cat (exp (gen) y) x))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l l-0 l-0 (rec l-1))) (y l-1) (y x) (x l)
    (x (mul l-0 l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (contracted (x-0 x) (w x)) (one) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) x)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) y)
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
  (label 1580)
  (parent 1534)
  (unrealized (0 0) (0 1) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 self-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 y x l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul x l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul y l-2)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) l-2))
  (deflistener (cat (exp (gen) y) (mul x l-2)))
  (defstrand ltx-gen 2 (ignore ignore-1) (self self-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0 l-2)
  (uniq-gen y x)
  (absent (y (mul l l-0 l-0 (rec l-1))) (y l-1) (y (mul x l-2)) (x l)
    (x (mul l-0 l-0)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-strand ltx-gen 2) l-2 (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y x l-2)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-2))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul y x l-2)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) l-2)) (send (cat (exp (gen) y) l-2)))
    ((recv (cat (exp (gen) y) (mul x l-2)))
      (send (cat (exp (gen) y) (mul x l-2))))
    ((load priv-stor-2 (cat pt-5 ignore-1))
      (stor priv-stor-2 (cat pt-6 (pv self-1 l-2)))))
  (label 1581)
  (parent 1534)
  (unrealized (0 0) (0 1) (0 2) (5 0) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l l-0 l-0 (rec l-1))) (y l-1) (y (mul w x)) (x l)
    (x (mul l-0 l-0)) (x w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))))
  (label 1582)
  (parent 1534)
  (unrealized (0 0) (0 1) (5 0) (11 0))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (x l l-0 l-1 rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (exp (gen) y) w))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)) ((12 1) (10 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul (rec x) w) (10 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv x) (send x)))
  (label 1583)
  (parent 1534)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1 l-1)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-1 l-1))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (mul l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self) (b b-1) (priv-stor priv-stor-0)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x l) (x (mul l-1 l-1)) (y (mul l (rec l-0) l-1 l-1)) (y l-0)
    (y (mul w x-0)) (x-1 beta) (x-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self b-1) (neq self-0 b-0) (neq b a) (neq b-1 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (mul l-1 l-1)))
      (send (cat (exp (gen) l) (mul l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self b-1 (exp (gen) x-1)))))
  (label 1584)
  (parent 1535)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 b-1 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx) (beta expt)
    (x rndx) (w expt) (x-0 y x-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l l (rec l-0) l-1)) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul l l))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l-1) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a self-0) (b b-1) (priv-stor priv-stor-1)
    (l l-1) (x x-1) (beta beta))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)) ((12 2) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-1)
  (uniq-gen x y x-1)
  (absent (x (mul l l)) (x l-1) (y (mul l l (rec l-0) l-1)) (y l-0)
    (y (mul w x-0)) (x-1 beta) (x-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed (mul l l))
    (undisclosed l-0) (undisclosed (mul l l (rec l-0) l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l l-1))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y))))
      (send (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y))))
      (send (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l-1) (mul l l)))
      (send (cat (exp (gen) l-1) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1)))
      (send (cat na-1 self-0 b-1 (exp (gen) x-1)))))
  (label 1585)
  (parent 1535)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (beta expt) (x rndx) (w expt) (x-0 y x-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul w x-0)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w x-0 y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w x-0)))
  (deflistener (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
  (defstrand init 3 (na na-1) (a a-0) (b b-1) (priv-stor priv-stor-2)
    (l l-2) (x x-1) (beta beta))
  (defstrand ltx-gen 2 (ignore ignore-1) (self a-0)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 2) (11 0)) ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 na-1 l l-0 l-2)
  (uniq-gen x y x-1)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y (mul w x-0)) (x-1 beta) (x-1 l-2))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l) (pv a-0 l-2))
  (facts (neq a-0 b-1) (neq self-0 b-0) (neq b a) (neq b-1 a-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv a-0 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x-0))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w x-0 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w x-0 y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w x-0 y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul (rec x) w x-0)))
      (send (cat (exp (gen) y) (mul (rec x) w x-0))))
    ((recv (cat (exp (gen) x-1) (mul w x-0 y (rec x-1))))
      (send (cat (exp (gen) x-1) (mul w x-0 y (rec x-1)))))
    ((load priv-stor-2 (cat pt-5 (pv a-0 l-2)))
      (recv
        (sig (body b-1 (exp (gen) beta) (pubk "sig" b-1))
          (privk "sig" b-1))) (send (cat na-1 a-0 b-1 (exp (gen) x-1))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv a-0 l-2)))))
  (label 1586)
  (parent 1535)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 x rndx) (w expt)
    (y rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul (rec x) w)))
  (deflistener (cat (gen) (mul w y)))
  (deflistener y)
  (precedes ((0 3) (10 0)) ((0 3) (12 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen x y)
  (absent (x l) (x (mul l-0 l-0)) (y (mul l l-0 l-0 (rec l-1))) (y l-1)
    (y w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w y) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul (rec x) w)))
      (send (cat (exp (gen) y) (mul (rec x) w))))
    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
    ((recv y) (send y)))
  (label 1587)
  (parent 1536)
  (unrealized (0 0) (0 1) (1 3) (10 0) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 x rndx) (w expt)
    (l-1 y l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-2 l-2)) (chi (mul w l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-2 l-2))
    (eta (mul (rec x) w l-1 y)))
  (deflistener (cat (exp (gen) l-2) l-2))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener
    (cat (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
  (deflistener (cat (exp (gen) l) (mul l-2 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul (rec x) w l-1)))
  (deflistener (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
  (deflistener y)
  (precedes ((0 3) (10 0)) ((0 3) (12 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-2)
  (uniq-gen x y)
  (absent (x l) (x (mul l-2 l-2)) (y (mul l (rec l-0) l-2 l-2)) (y l-0)
    (y (mul w l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-2) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y)))
      (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-2 l-2))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-2 l-2)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener y) (mul w l-1 y (rec l-2))
    (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-2 l-2)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-2 l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-2 l-2)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w l-1 y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-2 l-2))
              (exp (gen) (mul w l-1 y)))))))
    ((recv (cat (exp (gen) l-2) l-2)) (send (cat (exp (gen) l-2) l-2)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
      (send
        (hash (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y))))
      (send
        (cat (exp (gen) (mul l l-2 l-2)) (exp (gen) (mul w l-1 y)))))
    ((recv (cat (exp (gen) l) (mul l-2 l-2)))
      (send (cat (exp (gen) l) (mul l-2 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul (rec x) w l-1)))
      (send (cat (exp (gen) y) (mul (rec x) w l-1))))
    ((recv (cat (exp (gen) l-2) (mul w l-1 y (rec l-2))))
      (send (cat (exp (gen) l-2) (mul w l-1 y (rec l-2)))))
    ((recv y) (send y)))
  (label 1588)
  (parent 1538)
  (unrealized (0 0) (0 1) (1 3) (10 0) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l (rec l-0) l-1 l-1)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-1 l-1))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (mul l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self)
    (priv-stor priv-stor-0) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 1) (12 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)) ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x l) (x (mul l-1 l-1)) (y-0 (mul l (rec l-0) l-1 l-1))
    (y-0 l-0) (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self a-0) (neq self-0 b-0) (neq b a) (neq a-0 self)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((3 1) (12 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 3 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (mul l-1 l-1)))
      (send (cat (exp (gen) l) (mul l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 self (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 1589)
  (parent 1539)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 rndx)
    (alpha chi expt) (x rndx) (w expt) (y y-0 y-1 l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y-0) (alpha (mul l l (rec l-0) l-1)) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul l l))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l) l))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l-1) (mul l l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b self-0)
    (priv-stor priv-stor-1) (l l-1) (y y-1) (alpha alpha) (chi chi))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 1) (12 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)) ((12 3) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-1)
  (uniq-gen x y-0 y-1)
  (absent (x (mul l l)) (x l-1) (y-0 (mul l l (rec l-0) l-1)) (y-0 l-0)
    (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 a-0) (neq self-0 b-0) (neq b a) (neq a-0 self-0)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0))))
    (neq l-1 l-0) (undisclosed l-1) (undisclosed (mul l l))
    (undisclosed l-0) (undisclosed (mul l l (rec l-0) l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((7 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (displaced 13 7 ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l l (rec l-0) l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l l-1))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul l l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l l-1))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l) l)) (send (cat (exp (gen) l) l)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0))))
      (send (hash (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0))))
      (send (cat (exp (gen) (mul l l l-1)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l-1) (mul l l)))
      (send (cat (exp (gen) l-1) (mul l l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0)))
      (recv (cat na-1 a-0 self-0 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 self-0
            (hash (exp (gen) (mul alpha l-1))
              (exp (gen) (mul chi y-1))))))))
  (label 1590)
  (parent 1539)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 ignore-1 mesg) (na nb na-0 nb-0 na-1 nb-1 data)
    (b a b-0 self self-0 a-0 b-1 name)
    (pt pt-0 pt-1 pt-2 pt-3 pt-4 pt-5 pt-6 pval)
    (priv-stor priv-stor-0 priv-stor-1 priv-stor-2 locn)
    (l l-0 l-1 rndx) (alpha chi expt) (x rndx) (w expt)
    (y y-0 y-1 l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y-0) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul w y)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul (rec x) w y y-0)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y-0) (mul (rec x) w y)))
  (deflistener (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
  (defstrand resp 4 (na na-1) (nb nb-1) (a a-0) (b b-1)
    (priv-stor priv-stor-2) (l l-2) (y y-1) (alpha alpha) (chi chi))
  (defstrand ltx-gen 2 (ignore ignore-1) (self b-1)
    (priv-stor priv-stor-2) (l l-2))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 3) (11 0)) ((13 1) (12 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 nb-1 l l-0 l-2)
  (uniq-gen x y-0 y-1)
  (absent (x l) (x (mul l-0 l-0)) (y-0 (mul l l-0 l-0 (rec l-1)))
    (y-0 l-1) (y-0 (mul w y)) (y-1 alpha) (y-1 chi) (y-1 l-2))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l) (pv b-1 l-2))
  (facts (neq b-1 a-0) (neq self-0 b-0) (neq b a) (neq a-0 b-1)
    (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)) ((13 1) (12 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation channel-test (added-strand ltx-gen 2)
    (ch-msg priv-stor-2 (cat pt-5 (pv b-1 l-2))) (12 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11 12)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) y-0)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y y-0)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul (rec x) w y y-0))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y y-0)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
      (send
        (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0))))
      (send
        (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y y-0)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y-0) (mul (rec x) w y)))
      (send (cat (exp (gen) y-0) (mul (rec x) w y))))
    ((recv (cat (exp (gen) y-1) (mul w y y-0 (rec y-1))))
      (send (cat (exp (gen) y-1) (mul w y y-0 (rec y-1)))))
    ((load priv-stor-2 (cat pt-5 (pv b-1 l-2)))
      (recv
        (sig (body a-0 (exp (gen) alpha) (pubk "sig" a-0))
          (privk "sig" a-0))) (recv (cat na-1 a-0 b-1 (exp (gen) chi)))
      (send
        (cat (exp (gen) y-1)
          (enc na-1 nb-1 a-0 b-1
            (hash (exp (gen) (mul alpha l-2))
              (exp (gen) (mul chi y-1)))))))
    ((load priv-stor-2 (cat pt-6 ignore-1))
      (stor priv-stor-2 (cat pt-5 (pv b-1 l-2)))))
  (label 1591)
  (parent 1539)
  (unrealized (0 0) (0 1) (1 3) (10 0) (11 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 l-3 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul w y (rec x))))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen y x)
  (absent (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y w) (y l-3)
    (l-2 (mul (rec l) alpha l-0)) (x (mul (rec l) alpha l-0 l-2)) (x w)
    (x (mul w (rec x))) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1592)
  (parent 1545)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 l-3 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-3) (y y) (alpha (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
    (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x)
    (beta (mul (rec l) alpha l-0 l-2)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
      (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-1 l-2)
  (uniq-gen y x)
  (absent (y (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))) (y (mul w x))
    (y l-3) (l-2 (mul (rec l) alpha l-0))
    (x (mul (rec l) alpha l-0 l-2)) (x w) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-3) (pv self l-2) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
        (exp (gen) (mul w y x)))) (neq l-1 l-3) (undisclosed l-1)
    (undisclosed (mul (rec l) alpha l-0 l-2)) (undisclosed l-3)
    (undisclosed (mul (rec l) alpha l-0 l-1 l-2 (rec l-3))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-3)))
      (recv
        (sig
          (body a (exp (gen) (mul (rec l) alpha l-0 l-1 l-2 (rec l-3)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig
          (body b-0 (exp (gen) (mul (rec l) alpha l-0 l-2))
            (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l-2) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l-2) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y x))))
      (send
        (hash (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y x)))))
    ((recv
       (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
         (exp (gen) (mul w y x))))
      (send
        (cat (exp (gen) (mul (rec l) alpha l-0 l-1 l-2))
          (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2)))
      (send (cat (exp (gen) l-1) (mul (rec l) alpha l-0 l-2))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1593)
  (parent 1545)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0))) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (one)) (eta (mul y l-1)))
  (deflistener (cat (exp (gen) l-1) (rec l-1)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0))) (y l-0) (y (mul x l-1)) (x (one)) (x l))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) l) (exp (gen) (mul y x l-1)))) (neq l l-0)
    (undisclosed l) (undisclosed (one)) (undisclosed l-0)
    (undisclosed (mul l (rec l-0))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul x l-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig (body a (exp (gen) (mul l (rec l-0))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))))
    ((recv (cat (exp (gen) l-1) (rec l-1)))
      (send (cat (exp (gen) l-1) (rec l-1))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (hash (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (exp (gen) (mul y x l-1))))
      (send (cat (exp (gen) l) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (one))) (send (cat (exp (gen) l) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1)))) ((recv x) (send x)))
  (label 1594)
  (parent 1555)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one))
    (eta (mul w y (rec x))))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y w) (x (one)) (x l-0) (x w)
    (x (mul w (rec x))))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1595)
  (parent 1556)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (one)) (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (rec l)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-0) (one)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l-0 (rec l-1))) (y l-1) (y (mul w x)) (x (one))
    (x l-0) (x w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) l-0) (exp (gen) (mul w y x)))
      (hash (exp (gen) l-0) (exp (gen) (mul w y x)))) (neq l-0 l-1)
    (undisclosed l-0) (undisclosed (one)) (undisclosed l-1)
    (undisclosed (mul l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig (body a (exp (gen) (mul l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv (sig (body b-0 (gen) (pubk "sig" b-0)) (privk "sig" b-0)))
      (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l) (rec l)))
      (send (cat (exp (gen) l) (rec l))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) l-0) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-0) (one)))
      (send (cat (exp (gen) l-0) (one))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1596)
  (parent 1556)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (alpha expt)
    (l y l-0 l-1 x l-2 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul alpha l l-0 (rec l-1))) (chi (mul x l-2)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-0) (x x) (beta (mul alpha l))
    (eta (mul y l-2)))
  (deflistener (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-2))
  (deflistener
    (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
  (deflistener
    (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
  (deflistener (cat (exp (gen) l-0) (mul alpha l)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-0))
  (deflistener l-2)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-2))
  (deflistener (cat (exp (gen) y) l-2))
  (deflistener (cat (exp (gen) y) (mul x l-2)))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l-0 l-2)
  (uniq-gen y x)
  (absent (y (mul alpha l l-0 (rec l-1))) (y l-1) (y (mul x l-2))
    (l-0 (mul alpha l)) (x (mul alpha l)) (x l-0))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-2) (pv self-0 l-0))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))
      (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
    (neq l-0 l-1) (undisclosed l-0) (undisclosed (mul alpha l))
    (undisclosed l-1) (undisclosed (mul alpha l l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul x l-2) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l l-0 (rec l-1)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul x l-2))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x l-2)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-2))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l l-0))
              (exp (gen) (mul y x l-2)))))))
    ((recv (cat (exp (gen) l-2) (mul alpha l (rec l-2))))
      (send (cat (exp (gen) l-2) (mul alpha l (rec l-2)))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-2)))
      (send
        (sig (body self (exp (gen) l-2) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
      (send
        (hash (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))))
    ((recv
       (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2))))
      (send
        (cat (exp (gen) (mul alpha l l-0)) (exp (gen) (mul y x l-2)))))
    ((recv (cat (exp (gen) l-0) (mul alpha l)))
      (send (cat (exp (gen) l-0) (mul alpha l))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-0)))
      (send
        (sig (body self-0 (exp (gen) l-0) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-2) (send l-2))
    ((load priv-stor-0 (cat pt-1 (pv self l-2)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-2))
    ((recv (cat (exp (gen) y) l-2)) (send (cat (exp (gen) y) l-2)))
    ((recv (cat (exp (gen) y) (mul x l-2)))
      (send (cat (exp (gen) y) (mul x l-2)))) ((recv x) (send x)))
  (label 1597)
  (parent 1566)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul w y (rec x))))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (2 0))
    ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul alpha l-0 l-1 (rec l-2))) (y w) (y l-2)
    (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x w) (x (mul w (rec x)))
    (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1598)
  (parent 1569)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l rndx) (alpha expt)
    (l-0 rndx) (w expt) (y l-1 l-2 x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-2) (y y) (alpha (mul alpha l-0 l-1 (rec l-2))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l-1) (x x) (beta (mul alpha l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l) (mul (rec l) alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l))
  (deflistener
    (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l-1) (mul alpha l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l-1))
  (deflistener l)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0))
    ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul alpha l-0 l-1 (rec l-2))) (y (mul w x)) (y l-2)
    (l-1 (mul alpha l-0)) (x (mul alpha l-0)) (x w) (x l-1))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-2) (pv self l) (pv self-0 l-1))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
    (neq l-1 l-2) (undisclosed l-1) (undisclosed (mul alpha l-0))
    (undisclosed l-2) (undisclosed (mul alpha l-0 l-1 (rec l-2))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-2)))
      (recv
        (sig
          (body a (exp (gen) (mul alpha l-0 l-1 (rec l-2)))
            (pubk "sig" a)) (privk "sig" a)))
      (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (recv
        (sig (body b-0 (exp (gen) (mul alpha l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul alpha l-0 l-1))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l) (mul (rec l) alpha l-0)))
      (send (cat (exp (gen) l) (mul (rec l) alpha l-0))))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l)))
      (send
        (sig (body self (exp (gen) l) (pubk "sig" self))
          (privk "sig" self))))
    ((recv
       (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
      (send
        (hash (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x)))))
    ((recv
       (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x))))
      (send
        (cat (exp (gen) (mul alpha l-0 l-1)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l-1) (mul alpha l-0)))
      (send (cat (exp (gen) l-1) (mul alpha l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l-1)))
      (send
        (sig (body self-0 (exp (gen) l-1) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l) (send l))
    ((load priv-stor-0 (cat pt-1 (pv self l)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1599)
  (parent 1569)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 y x l-1 rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-0) (y y) (alpha (mul l (rec l-0) l-1 l-1)) (chi (mul x l-1)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-1 l-1))
    (eta (mul y l-1)))
  (deflistener (cat (exp (gen) l-1) l-1))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-1))
  (deflistener
    (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
  (deflistener
    (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
  (deflistener (cat (exp (gen) l) (mul l-1 l-1)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-1)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-1))
  (deflistener (cat (exp (gen) y) l-1))
  (deflistener (cat (exp (gen) y) (mul x l-1)))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-1)
  (uniq-gen y x)
  (absent (y (mul l (rec l-0) l-1 l-1)) (y l-0) (y (mul x l-1)) (x l)
    (x (mul l-1 l-1)))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-0) (pv self l-1) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1)))
      (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
    (neq l l-0) (undisclosed l) (undisclosed (mul l-1 l-1))
    (undisclosed l-0) (undisclosed (mul l (rec l-0) l-1 l-1)))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul x l-1) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-0)))
      (recv
        (sig
          (body a (exp (gen) (mul l (rec l-0) l-1 l-1)) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul x l-1))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y x l-1)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-1 l-1)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul y l-1))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-1 l-1))
              (exp (gen) (mul y x l-1)))))))
    ((recv (cat (exp (gen) l-1) l-1)) (send (cat (exp (gen) l-1) l-1)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-1)))
      (send
        (sig (body self (exp (gen) l-1) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
      (send
        (hash (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1))))
      (send
        (cat (exp (gen) (mul l l-1 l-1)) (exp (gen) (mul y x l-1)))))
    ((recv (cat (exp (gen) l) (mul l-1 l-1)))
      (send (cat (exp (gen) l) (mul l-1 l-1))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-1) (send l-1))
    ((load priv-stor-0 (cat pt-1 (pv self l-1)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-1))
    ((recv (cat (exp (gen) y) l-1)) (send (cat (exp (gen) y) l-1)))
    ((recv (cat (exp (gen) y) (mul x l-1)))
      (send (cat (exp (gen) y) (mul x l-1)))) ((recv x) (send x)))
  (label 1600)
  (parent 1579)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi w))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul w y (rec x))))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) (mul w (rec x))))
  (deflistener (cat (exp (gen) y) w))
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((2 1) (1 1))
    ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3)) ((5 1) (4 0))
    ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0)) ((8 1) (6 0))
    ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3)) ((11 1) (5 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l l-0 l-0 (rec l-1))) (y l-1) (y w) (x l)
    (x (mul l-0 l-0)) (x w) (x (mul w (rec x))))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-absence x w) w (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) w)))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y (rec x)))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) (mul w (rec x))))
      (send (cat (exp (gen) y) (mul w (rec x)))))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
  (label 1601)
  (parent 1582)
  (unrealized (0 0) (0 1) (1 3) (10 0))
  (dead)
  (comment "empty cohort"))

(defskeleton dhcr-um
  (vars (ignore ignore-0 mesg) (na nb na-0 nb-0 data)
    (b a b-0 self self-0 name) (pt pt-0 pt-1 pt-2 pt-3 pt-4 pval)
    (priv-stor priv-stor-0 priv-stor-1 locn) (l l-0 l-1 rndx) (w expt)
    (y x rndx))
  (defstrand resp 4 (na na) (nb nb) (a a) (b b) (priv-stor priv-stor)
    (l l-1) (y y) (alpha (mul l l-0 l-0 (rec l-1))) (chi (mul w x)))
  (defstrand init 4 (na na-0) (nb nb-0) (a self-0) (b b-0)
    (priv-stor priv-stor-1) (l l) (x x) (beta (mul l-0 l-0))
    (eta (mul w y)))
  (deflistener (cat (exp (gen) l-0) l-0))
  (defstrand ltx-gen 3 (ignore ignore) (self self)
    (priv-stor priv-stor-0) (l l-0))
  (deflistener
    (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
  (deflistener
    (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
  (deflistener (cat (exp (gen) l) (mul l-0 l-0)))
  (defstrand ltx-gen 3 (ignore ignore-0) (self self-0)
    (priv-stor priv-stor-1) (l l))
  (deflistener l-0)
  (defstrand ltx-disclose 3 (self self) (priv-stor priv-stor-0) (l l-0))
  (deflistener (cat (exp (gen) y) w))
  (deflistener (cat (exp (gen) y) (mul w x)))
  (deflistener x)
  (precedes ((0 3) (10 0)) ((0 3) (11 0)) ((1 2) (0 2)) ((1 2) (12 0))
    ((2 1) (1 1)) ((3 1) (9 0)) ((3 2) (2 0)) ((4 1) (1 3))
    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (1 0)) ((7 2) (6 0))
    ((8 1) (6 0)) ((9 2) (2 0)) ((9 2) (8 0)) ((10 1) (1 3))
    ((11 1) (5 0)) ((12 1) (11 0)))
  (non-orig (privk "sig" b) (privk "sig" self-0))
  (uniq-orig nb na-0 l l-0)
  (uniq-gen y x)
  (absent (y (mul l l-0 l-0 (rec l-1))) (y l-1) (y (mul w x)) (x l)
    (x (mul l-0 l-0)) (x w))
  (precur (2 0) (6 0) (10 0) (11 0))
  (gen-st (pv b l-1) (pv self l-0) (pv self-0 l))
  (facts (neq self-0 b-0) (neq b a) (neq b-0 self-0) (neq a b)
    (eq (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x)))
      (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
    (neq l l-1) (undisclosed l) (undisclosed (mul l-0 l-0))
    (undisclosed l-1) (undisclosed (mul l l-0 l-0 (rec l-1))))
  (leads-to ((3 1) (9 0)) ((7 1) (1 0)))
  (rule fact-init-neq0 fact-resp-neq0 trRl_ltx-disclose-at-0
    trRl_ltx-disclose-at-1 trRl_ltx-gen-at-0 trRl_ltx-gen-at-1)
  (operation nonce-test (added-listener x) (mul w x) (11 0))
  (strand-map 0 1 2 3 4 5 6 7 8 9 10 11)
  (traces
    ((load priv-stor (cat pt (pv b l-1)))
      (recv
        (sig
          (body a (exp (gen) (mul l l-0 l-0 (rec l-1))) (pubk "sig" a))
          (privk "sig" a))) (recv (cat na a b (exp (gen) (mul w x))))
      (send
        (cat (exp (gen) y)
          (enc na nb a b
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y x)))))))
    ((load priv-stor-1 (cat pt-3 (pv self-0 l)))
      (recv
        (sig (body b-0 (exp (gen) (mul l-0 l-0)) (pubk "sig" b-0))
          (privk "sig" b-0))) (send (cat na-0 self-0 b-0 (exp (gen) x)))
      (recv
        (cat (exp (gen) (mul w y))
          (enc na-0 nb-0 self-0 b-0
            (hash (exp (gen) (mul l l-0 l-0))
              (exp (gen) (mul w y x)))))))
    ((recv (cat (exp (gen) l-0) l-0)) (send (cat (exp (gen) l-0) l-0)))
    ((load priv-stor-0 (cat pt-0 ignore))
      (stor priv-stor-0 (cat pt-1 (pv self l-0)))
      (send
        (sig (body self (exp (gen) l-0) (pubk "sig" self))
          (privk "sig" self))))
    ((recv (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
      (send (hash (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x))))
      (send (cat (exp (gen) (mul l l-0 l-0)) (exp (gen) (mul w y x)))))
    ((recv (cat (exp (gen) l) (mul l-0 l-0)))
      (send (cat (exp (gen) l) (mul l-0 l-0))))
    ((load priv-stor-1 (cat pt-2 ignore-0))
      (stor priv-stor-1 (cat pt-3 (pv self-0 l)))
      (send
        (sig (body self-0 (exp (gen) l) (pubk "sig" self-0))
          (privk "sig" self-0)))) ((recv l-0) (send l-0))
    ((load priv-stor-0 (cat pt-1 (pv self l-0)))
      (stor priv-stor-0 (cat pt-4 "nil")) (send l-0))
    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
    ((recv (cat (exp (gen) y) (mul w x)))
      (send (cat (exp (gen) y) (mul w x)))) ((recv x) (send x)))
  (label 1602)
  (parent 1582)
  (unrealized (0 0) (0 1) (12 0))
  (dead)
  (comment "empty cohort"))

(comment "Nothing left to do")