{ [S,V:Type]. [M:Id  Type]. [s:S]. [v:V].
  [L:(t:Id  (S  V  (M[t] List))) List].
    (tagged-list-messages(s;v;L)  (t:Id  M[t]) List) }

{ Proof }



Definitions occuring in Statement :  tagged-list-messages: tagged-list-messages(s;v;L),  Id: Id,  uall: [x:A]. B[x],  so_apply: x[s],  member: t  T,  function: x:A  B[x],  product: x:A  B[x],  list: type List,  universe: Type
Definitions :  uall: [x:A]. B[x],  so_apply: x[s],  member: t  T,  tagged-list-messages: tagged-list-messages(s;v;L),  top: Top,  all: x:A. B[x],  subtype: S  T,  so_lambda: x.t[x]
Lemmas :  concat_wf,  Id_wf,  map_wf,  pi1_wf_top,  pi2_wf

\mforall{}[S,V:Type].  \mforall{}[M:Id  {}\mrightarrow{}  Type].  \mforall{}[s:S].  \mforall{}[v:V].  \mforall{}[L:(t:Id  \mtimes{}  (S  {}\mrightarrow{}  V  {}\mrightarrow{}  (M[t]  List)))  List].
    (tagged-list-messages(s;v;L)  \mmember{}  (t:Id  \mtimes{}  M[t])  List)


Date html generated: 2011_08_10-AM-07_47_12
Last ObjectModification: 2011_06_18-AM-08_12_39

Home Index