{ [Info,A,B,C,D:Type].
    F:bag(A)  bag(B)  bag(C)  bag(D)
      [X:EClass(A)]. [Y:EClass(B)]. [Z:EClass(C)].
        (F|X, Y, Y|  EClass(D)) }

{ Proof }



Definitions occuring in Statement :  simple-comb-3: F|X, Y, Y|,  eclass: EClass(A[eo; e]),  uall: [x:A]. B[x],  all: x:A. B[x],  member: t  T,  function: x:A  B[x],  universe: Type,  bag: bag(T)
Lemmas :  intensional-universe_wf,  int_seg_properties,  decidable__equal_int,  int_subtype_base,  not_wf,  le_wf,  false_wf,  member_wf,  nat_wf,  simple-comb_wf,  eclass_wf,  bag_wf,  event-ordering+_wf,  event-ordering+_inc,  es-E_wf,  int_seg_wf,  select_wf,  length_wf_nat,  length_nil,  length_cons,  non_neg_length,  length_wf1,  top_wf,  subtype_rel_wf,  es-interface-top,  subtype_base_sq

\mforall{}[Info,A,B,C,D:Type].
    \mforall{}F:bag(A)  {}\mrightarrow{}  bag(B)  {}\mrightarrow{}  bag(C)  {}\mrightarrow{}  bag(D)
        \mforall{}[X:EClass(A)].  \mforall{}[Y:EClass(B)].  \mforall{}[Z:EClass(C)].    (F|X,  Y,  Y|  \mmember{}  EClass(D))


Date html generated: 2011_08_16-PM-05_00_11
Last ObjectModification: 2011_07_23-AM-10_55_50

Home Index