Nuprl Lemma : Q-R-glues-trivial-split
∀[Info:Type]. ∀[P:es:EO+(Info) ─→ E ─→ ℙ].
  ∀p:∀es:EO+(Info). ∀e:E.  Dec(P[es;e])
    ∀[A,B:Type].
      ∀Ia:EClass(A). ∀Ib:EClass(B).
        (Singlevalued(Ib)
        ⇒ (∀g:es:EO+(Info) ─→ E(Ib) ─→ E. ∀q:∀es:EO+(Info). ∀e:E.  Dec((↑e ∈b Ib) c∧ P[es;g es e]).
              ((∀es:EO+(Info). ∀e:E.  P[es;g es e] supposing ↑e ∈b Ib)
              ⇒ (∀es:EO+(Info). ∀f:E(Ia) ─→ B.
                    ∀[Q,R:E ─→ E ─→ ℙ].  (g es glues (Ia|p):Q ──f─→ (Ib|q):R ⇒ g es glues (Ia|p):Q ──f─→ Ib:R)))))
Proof
Definitions occuring in Statement : 
Q-R-glues: g glues Ia:Qa ──f─→ Ib:Rb, 
es-interface-restrict: (I|p), 
es-E-interface: E(X), 
sv-class: Singlevalued(X), 
in-eclass: e ∈b X, 
eclass: EClass(A[eo; e]), 
event-ordering+: EO+(Info), 
es-E: E, 
assert: ↑b, 
decidable: Dec(P), 
uimplies: b supposing a, 
uall: ∀[x:A]. B[x], 
cand: A c∧ B, 
prop: ℙ, 
so_apply: x[s1;s2], 
all: ∀x:A. B[x], 
implies: P ⇒ Q, 
apply: f a, 
function: x:A ─→ B[x], 
universe: Type
Lemmas : 
Q-R-glues-trivial-restrict, 
assert_wf, 
in-eclass_wf, 
es-interface-subtype_rel2, 
es-E_wf, 
event-ordering+_subtype, 
event-ordering+_wf, 
top_wf, 
es-interface-restrict_wf, 
subtype_rel_dep_function, 
es-E-interface_wf, 
es-E-interface-restrict, 
not_wf, 
decidable__assert, 
bag_wf, 
le_wf, 
bag-size_wf, 
nat_wf, 
nequal_wf, 
neg_assert_of_eq_int, 
eq_int_wf, 
equal-wf-T-base, 
bag-size-zero, 
decidable__le, 
false_wf, 
not-le-2, 
not-equal-2, 
condition-implies-le, 
add-commutes, 
minus-add, 
minus-zero, 
zero-add, 
add_functionality_wrt_le, 
add-associates, 
le-add-cancel2, 
add-swap, 
empty-bag_wf
Latex:
\mforall{}[Info:Type].  \mforall{}[P:es:EO+(Info)  {}\mrightarrow{}  E  {}\mrightarrow{}  \mBbbP{}].
    \mforall{}p:\mforall{}es:EO+(Info).  \mforall{}e:E.    Dec(P[es;e])
        \mforall{}[A,B:Type].
            \mforall{}Ia:EClass(A).  \mforall{}Ib:EClass(B).
                (Singlevalued(Ib)
                {}\mRightarrow{}  (\mforall{}g:es:EO+(Info)  {}\mrightarrow{}  E(Ib)  {}\mrightarrow{}  E.  \mforall{}q:\mforall{}es:EO+(Info).  \mforall{}e:E.    Dec((\muparrow{}e  \mmember{}\msubb{}  Ib)  c\mwedge{}  P[es;g  es  e]).
                            ((\mforall{}es:EO+(Info).  \mforall{}e:E.    P[es;g  es  e]  supposing  \muparrow{}e  \mmember{}\msubb{}  Ib)
                            {}\mRightarrow{}  (\mforall{}es:EO+(Info).  \mforall{}f:E(Ia)  {}\mrightarrow{}  B.
                                        \mforall{}[Q,R:E  {}\mrightarrow{}  E  {}\mrightarrow{}  \mBbbP{}].
                                            (g  es  glues  (Ia|p):Q  {}{}f{}\mrightarrow{}  (Ib|q):R  {}\mRightarrow{}  g  es  glues  (Ia|p):Q  {}{}f{}\mrightarrow{}  Ib:R)))))
Date html generated:
2015_07_21-PM-04_11_26
Last ObjectModification:
2015_01_27-PM-05_42_31
Home
Index