{ [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