{ [B,A:Type]. [f:Id  A  bag(B)].
    (concat-lifting-loc-1(f)  Id  bag(A)  bag(B)) }

{ Proof }



Definitions occuring in Statement :  concat-lifting-loc-1: concat-lifting-loc-1(f) Id: Id uall: [x:A]. B[x] member: t  T function: x:A  B[x] universe: Type bag: bag(T)
Definitions :  member: t  T axiom: Ax equal: s = t universe: Type function: x:A  B[x] concat-lifting-loc-1: concat-lifting-loc-1(f) bag: bag(T) Id: Id isect: x:A. B[x] uall: [x:A]. B[x] all: x:A. B[x] lambda: x.A[x] concat-lifting1-loc: concat-lifting1-loc(f;bag;loc)
Lemmas :  bag_wf concat-lifting1-loc_wf Id_wf

\mforall{}[B,A:Type].  \mforall{}[f:Id  {}\mrightarrow{}  A  {}\mrightarrow{}  bag(B)].    (concat-lifting-loc-1(f)  \mmember{}  Id  {}\mrightarrow{}  bag(A)  {}\mrightarrow{}  bag(B))


Date html generated: 2011_08_17-PM-06_13_56
Last ObjectModification: 2011_06_02-PM-04_43_49

Home Index