{ [Info:Type]. [es:EO+(Info)]. [Qa,Rb:E  E  ]. [A,B:Type].
  [Ia:EClass(A)]. [Ib:EClass(B)]. [f:E(Ia)  B]. [g:E(Ib)  E].
    (g glues Ia:Qa f Ib:Rb  ) }

{ Proof }



Definitions occuring in Statement :  Q-R-glues: g glues Ia:Qa f Ib:Rb,  es-E-interface: E(X),  eclass: EClass(A[eo; e]),  event-ordering+: EO+(Info),  es-E: E,  uall: [x:A]. B[x],  prop: ,  member: t  T,  function: x:A  B[x],  universe: Type
Definitions :  uall: [x:A]. B[x],  prop: ,  member: t  T,  Q-R-glues: g glues Ia:Qa f Ib:Rb,  and: P  Q,  all: x:A. B[x],  cand: A c B,  assert: b,  so_lambda: x y.t[x; y],  btrue: tt,  ifthenelse: if b then t else f fi ,  true: True,  es-E-interface: E(X),  so_apply: x[s1;s2],  uimplies: b supposing a,  sq_type: SQType(T),  implies: P  Q,  guard: {T},  weak-antecedent-surjection: Q = f== P,  es-interface-predicate: {I},  weak-antecedent-function: Q ==f== P,  subtype: S  T
Lemmas :  weak-antecedent-surjection_wf,  event-ordering+_inc,  es-interface-predicate_wf,  Q-R-pre-preserving_wf,  inject_wf,  es-E-interface_wf,  es-E_wf,  eclass-val_wf,  event-ordering+_wf,  subtype_base_sq,  bool_subtype_base,  es-interface-top,  eclass_wf,  assert_elim,  in-eclass_wf,  assert_wf,  bool_wf

\mforall{}[Info:Type].  \mforall{}[es:EO+(Info)].  \mforall{}[Qa,Rb:E  {}\mrightarrow{}  E  {}\mrightarrow{}  \mBbbP{}].  \mforall{}[A,B:Type].  \mforall{}[Ia:EClass(A)].  \mforall{}[Ib:EClass(B)].
\mforall{}[f:E(Ia)  {}\mrightarrow{}  B].  \mforall{}[g:E(Ib)  {}\mrightarrow{}  E].
    (g  glues  Ia:Qa  {}{}f{}\mrightarrow{}  Ib:Rb  \mmember{}  \mBbbP{})


Date html generated: 2011_08_16-PM-05_57_10
Last ObjectModification: 2011_06_20-AM-01_39_59

Home Index