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