Thm* E:EventStruct, P:((|E| List) Prop), A:Type, evt:(A |E|), tg:(A Label)
, tr:A List.
switchable(E)(P) 
No-dup-send(E)(map(evt;tr)) 
switch_inv( < A,evt,tg > (E))(tr)  ( m:Label. P(map(evt; < tr > _m)))  P(map(evt;tr)) | [switch_theorem] |
Thm* E:EventStruct, P:((|E| List) Prop), A:Type, f:(A |E|)
, t:(A Label). switchable(E)(P)  switchable( < A,f,t > (E))(P o f) | [switchable_induced_tagged] |
Thm* E:EventStruct, A:Type, f:(A |E|), P:((|E| List) Prop).
switchable(E)(P)  switchable(induced_event_str(E;A;f))(P o f) | [switchable_induced] |
Thm* E:EventStruct, P:((Label (|E| List)) Prop).
( f,g:(Label (|E| List)). ( p:Label. g(p) f(p))  P(f)  P(g)) 
( f,g:(Label (|E| List)).
( a:|E|. p:Label. g(p) = filter( b. (b =msg=(E) a);f(p)))  P(f)  P(g))

( f,g,h:(Label (|E| List)).
( p,q:Label. ( x f(p).( y g(q). (x =msg=(E) y)))) 
( p:Label. h(p) = ((f(p)) @ (g(p))))  P(f)  P(g)  P(h))

switchable0(E)(local_deliver_property(E;P)) | [local_deliver_switchable] |
Thm* E:TaggedEventStruct. switch_inv(E) (|E| List) Prop | [switch_inv_wf] |
Thm* E:TaggedEventStruct, P,I:((|E| List) Prop).
(P refines (Causal(E) No-dup-deliver(E))) 
((I No-dup-send(E) Tag-by-msg(E) Causal(E) No-dup-deliver(E)) fuses P) 
((I No-dup-send(E)) fuses P) | [no_DASH_dup_DASH_fusion] |
Thm* E:TaggedEventStruct, P,I:((|E| List) Prop).
(P refines Causal(E)) 
((I No-dup-send(E) Tag-by-msg(E)) fuses P)  ((I No-dup-send(E)) fuses P) | [tag_by_msg_fusion_lemma] |
Thm* E:TaggedEventStruct, P,I,J,K:TraceProperty(E)
, R:(Trace(E) Trace(E) Prop).
tag_splitable(E;R) 
( tr_1,tr_2:Trace(E). (tr_1 R tr_2)  (tr_2 R tr_1)) 
R preserves P 
R preserves K 
( tr:Trace(E). (I K)(tr)  ( tr':Trace(E). I(tr') & J(tr') & (tr R tr'))) 
(((I J) K) fuses P)  ((I K) fuses P) | [normal_form_fusion] |
Thm* E:Structure, P,Q_1,Q_2:((|E| List) Prop).
(P refines Q_1)  (P refines Q_2)  (P refines (Q_1 Q_2)) | [tr_refines_and] |
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 TraceProperty(E) == (|E| List) Prop | [trace_property] |