{ [A,B:Type]. [f:Id  A  B]. [loc:Id]. [b:bag(A)].
    (lifting1-loc(f;loc;b)  bag(B)) }

{ Proof }



Definitions occuring in Statement :  lifting1-loc: lifting1-loc(f;loc;b),  Id: Id,  uall: [x:A]. B[x],  member: t  T,  function: x:A  B[x],  universe: Type,  bag: bag(T)
Definitions :  natural_number: $n,  lambda: x.A[x],  Try: Error :Try,  Unfold: Error :Unfold,  CollapseTHENA: Error :CollapseTHENA,  CollapseTHEN: Error :CollapseTHEN,  Auto: Error :Auto,  equal: s = t,  member: t  T,  isect: x:A. B[x],  bag: bag(T),  uall: [x:A]. B[x],  Id: Id,  function: x:A  B[x],  universe: Type,  lifting1-loc: lifting1-loc(f;loc;b),  axiom: Ax,  all: x:A. B[x],  lifting-loc-gen-rev: lifting-loc-gen-rev(n;bags;loc;f),  funtype: funtype(n;A;T),  subtype_rel: A r B,  uiff: uiff(P;Q),  and: P  Q,  product: x:A  B[x],  uimplies: b supposing a,  less_than: a < b,  not: A,  ge: i  j ,  le: A  B,  strong-subtype: strong-subtype(A;B),  atom: Atom$n,  quotient: x,y:A//B[x; y],  fpf: a:A fp-> B[a],  eclass: EClass(A[eo; e]),  int: ,  nat: ,  subtype: S  T,  rationals: ,  real: ,  set: {x:A| B[x]} ,  false: False,  implies: P  Q,  void: Void,  prop: ,  p-outcome: Outcome,  int_seg: {i..j},  suptype: suptype(S; T),  primrec: primrec(n;b;c),  apply: f a,  ycomb: Y,  sqequal: s ~ t,  top: Top,  eq_int: (i = j)
Lemmas :  ycomb-unroll,  bag_wf,  lifting-loc-gen-rev_wf,  not_wf,  false_wf,  nat_wf,  le_wf,  int_seg_wf,  Id_wf,  funtype_wf,  member_wf

\mforall{}[A,B:Type].  \mforall{}[f:Id  {}\mrightarrow{}  A  {}\mrightarrow{}  B].  \mforall{}[loc:Id].  \mforall{}[b:bag(A)].    (lifting1-loc(f;loc;b)  \mmember{}  bag(B))


Date html generated: 2011_08_17-PM-06_05_31
Last ObjectModification: 2011_06_01-AM-00_32_33

Home Index