Nuprl Lemma : system-strongly-realizes-and1
∀[M:Type ─→ Type]
  ∀[A:pEnvType(P.M[P]) ─→ pRunType(P.M[P]) ─→ ℙ]
    ∀n2m:ℕ ─→ pMsg(P.M[P]). ∀l2m:Id ─→ pMsg(P.M[P]). ∀S1,S2:InitialSystem(P.M[P]).
      ∀[B1,B2:EO+(pMsg(P.M[P])) ─→ ℙ].
        (assuming(env,r.A[env;r])
          S1 |= eo.B1[eo]
        
⇒ assuming(env,r.A[env;r])
            S2 |= eo.B2[eo]
        
⇒ (∀S:InitialSystem(P.M[P])
              (sub-system(P.M[P];S1;S)
              
⇒ sub-system(P.M[P];S2;S)
              
⇒ assuming(env,r.A[env;r])
                  S |= eo.B1[eo] ∧ B2[eo]))) 
  supposing Continuous+(P.M[P])
Proof
Definitions occuring in Statement : 
system-strongly-realizes: system-strongly-realizes, 
sub-system: sub-system(P.M[P];S1;S2)
, 
InitialSystem: InitialSystem(P.M[P])
, 
pEnvType: pEnvType(T.M[T])
, 
pRunType: pRunType(T.M[T])
, 
pMsg: pMsg(P.M[P])
, 
event-ordering+: EO+(Info)
, 
Id: Id
, 
strong-type-continuous: Continuous+(T.F[T])
, 
nat: ℕ
, 
uimplies: b supposing a
, 
uall: ∀[x:A]. B[x]
, 
prop: ℙ
, 
so_apply: x[s1;s2]
, 
so_apply: x[s]
, 
all: ∀x:A. B[x]
, 
implies: P 
⇒ Q
, 
and: P ∧ Q
, 
function: x:A ─→ B[x]
, 
universe: Type
Lemmas : 
nat_wf, 
sub-system_wf, 
InitialSystem_wf, 
system-strongly-realizes_wf, 
pRunType_wf, 
pEnvType_wf, 
event-ordering+_wf, 
pMsg_wf, 
Id_wf, 
strong-type-continuous_wf, 
sub-system_transitivity, 
pRun_wf2
Latex:
\mforall{}[M:Type  {}\mrightarrow{}  Type]
    \mforall{}[A:pEnvType(P.M[P])  {}\mrightarrow{}  pRunType(P.M[P])  {}\mrightarrow{}  \mBbbP{}]
        \mforall{}n2m:\mBbbN{}  {}\mrightarrow{}  pMsg(P.M[P]).  \mforall{}l2m:Id  {}\mrightarrow{}  pMsg(P.M[P]).  \mforall{}S1,S2:InitialSystem(P.M[P]).
            \mforall{}[B1,B2:EO+(pMsg(P.M[P]))  {}\mrightarrow{}  \mBbbP{}].
                (assuming(env,r.A[env;r])
                    S1  |=  eo.B1[eo]
                {}\mRightarrow{}  assuming(env,r.A[env;r])
                        S2  |=  eo.B2[eo]
                {}\mRightarrow{}  (\mforall{}S:InitialSystem(P.M[P])
                            (sub-system(P.M[P];S1;S)
                            {}\mRightarrow{}  sub-system(P.M[P];S2;S)
                            {}\mRightarrow{}  assuming(env,r.A[env;r])
                                    S  |=  eo.B1[eo]  \mwedge{}  B2[eo]))) 
    supposing  Continuous+(P.M[P])
Date html generated:
2015_07_23-AM-11_20_30
Last ObjectModification:
2015_01_28-PM-11_17_25
Home
Index