Thm* E:EventStruct, tr:|E| List, ls: ||tr||.
is-send(E)(tr[ls]) 
( j: ||tr||. ls < j  is-send(E)(tr[j])) 
( i,j: ||tr||. i j  is-send(E)(tr[j])  (i (switchR(tr)^*) ls)  (j (switchR(tr)^*) ls)) | [switch_inv_rel_closure_lemma1] |
Thm* E:TaggedEventStruct, tr:|E| List, ls: ||tr||.
switch_inv(E)(tr) 
( i,j: ||tr||. (i (switchR(tr)^*) ls)  (j (switchR(tr)^*) ls)  tag(E)(tr[i]) = tag(E)(tr[j])) | [switch_inv_rel_closure] |
Thm* E:TaggedEventStruct, tr:|E| List.
switch_inv(E)(tr)  ( i,j: ||tr||. (i switchR(tr) j)  tag(E)(tr[i]) = tag(E)(tr[j])) | [switch_inv_rel_same_tag] |
Thm* E:EventStruct, tr:|E| List, ls,i: ||tr||.
is-send(E)(tr[ls])  (i (switchR(tr)^*) ls)  is-send(E)(tr[i]) | [switch_inv_rel_closure_send] |
Thm* E:EventStruct, x:|E| List, j,z: ||x||. Dec(j switchR(x) z) | [decidable__switch_inv_rel] |
Thm* E:TaggedEventStruct, x:|E| List, i: (||x||-1).
switch_inv(E)(x) 
is-send(E)(x[(i+1)]) 
is-send(E)(x[i]) loc(E)(x[i]) = loc(E)(x[(i+1)])  switch_inv(E)(swap(x;i;i+1)) | [switch_inv_swap] |
Thm* E:EventStruct, a,b:|E|, tr:|E| List.
a somewhere delivered before b

( k: ||tr||.
a delivered at time k 
( k': ||tr||. k' < k & b delivered at time k' & loc(E)(tr[k']) = loc(E)(tr[k]))) | [not_delivered_before_somewhere] |
Thm* E:EventStruct, L:|E| List.
L = nil  Causal(E)(L)  ( i: ||L||. is-send(E)(L[i])) | [P_causal_non_nil] |
Def switch_inv(E)(tr)
== i,j,k: ||tr||.
i < j 
(is-send(E)(tr[i])) 
(is-send(E)(tr[j])) 
tag(E)(tr[i]) = tag(E)(tr[j]) 
tr[j] delivered at time k 
( k': ||tr||. k' < k & tr[i] delivered at time k' & loc(E)(tr[k']) = loc(E)(tr[k])) | [switch_inv] |
Def switch-decomposable(E)(L)
== L = nil |E| List
( Q:( ||L|| Prop).
( i: ||L||. Dec(Q(i)))
& ( i: ||L||. Q(i))
& ( i: ||L||. Q(i)  (is-send(E)(L[i])))
& ( i,j: ||L||. Q(i)  Q(j)  tag(E)(L[i]) = tag(E)(L[j]))
& ( i,j: ||L||. Q(i)  i j  C(Q)(j))) | [switch_decomposable] |
Def AD-normal(E)(tr)
== i: (||tr||-1).
( (is-send(E)(tr[i]))   (is-send(E)(tr[(i+1)]))  (tr[i] =msg=(E) tr[(i+1)]))
& (( x,y: ||tr||.
x < y
& (is-send(E)(tr[x]))
& (is-send(E)(tr[y]))
& tr[x] delivered at time i+1
& tr[y] delivered at time i)

loc(E)(tr[i]) = loc(E)(tr[(i+1)])) | [switch_normal] |
Def x somewhere delivered before y
== k: ||tr||.
x delivered at time k
& ( k': ||tr||. y delivered at time k'  loc(E)(tr[k']) = loc(E)(tr[k])  k k') | [delivered_before_somewhere] |
Def swap adjacent[P(x;y)](L1,L2)
== i: (||L1||-1). P(L1[i];L1[(i+1)]) & L2 = swap(L1;i;i+1) A List | [swap_adjacent] |
Def R_ad_normal(tr)(a,b)
== ( (is-send(E)(a))   (is-send(E)(b))  (a =msg=(E) b))
& ( (is-send(E)(a)) 
 (is-send(E)(b)) 
( x,y: ||tr||.
x < y
& (is-send(E)(tr[x]))
& (is-send(E)(tr[y]))
& (tr[x] =msg=(E) b)
& (tr[y] =msg=(E) a))

loc(E)(a) = loc(E)(b)) | [R_ad_normal] |
Def C(Q)(i) == k: ||L||. Q(k) & (L[k] =msg=(E) L[i]) | [message_closure] |
Def Causal(E)(tr)
== i: ||tr||. j: ||tr||. j i & (is-send(E)(tr[j])) & (tr[j] =msg=(E) tr[i]) | [P_causal] |
Def No-dup-deliver(E)(tr)
== i,j: ||tr||.
 (is-send(E)(tr[i])) 
 (is-send(E)(tr[j]))  (tr[j] =msg=(E) tr[i])  loc(E)(tr[i]) = loc(E)(tr[j])  i = j | [P_no_dup] |
Def Tag-by-msg(E)(tr)
== i,j: ||tr||. (tr[i] =msg=(E) tr[j])  tag(E)(tr[i]) = tag(E)(tr[j]) | [P_tag_by_msg] |
Def switch_inv(E; tr)
== i,j,k: ||tr||.
i < j 
(is-send(E)(tr[i])) 
(is-send(E)(tr[j])) 
tag(E)(tr[i]) = tag(E)(tr[j]) 
(tr[j] =msg=(E) tr[k]) 
 (is-send(E)(tr[k])) 
( k': ||tr||.
k' < k & loc(E)(tr[k']) = loc(E)(tr[k]) & (tr[i] =msg=(E) tr[k']) &  (is-send(E)(tr[k']))) | [switch_inv2001_03_15_DASH_PM_DASH_12_53_21] |