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