{ [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:{tg:Id| M[tg]}   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 set: {x:A| B[x]}  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 so_lambda: x.t[x] uimplies: b supposing a
Lemmas :  tagged-list-messages_wf subtype_rel_list Id_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:\{tg:Id|  M[tg]\}    \mtimes{}  M[t])  List)


Date html generated: 2011_08_10-AM-07_47_15
Last ObjectModification: 2011_06_18-AM-08_12_41

Home Index