Nuprl Lemma : do-chosen-command_wf
∀[M:Type ─→ Type]
  ∀[nat2msg:ℕ ─→ pMsg(P.M[P])]. ∀[loc2msg:Id ─→ pMsg(P.M[P])]. ∀[S:System(P.M[P])]. ∀[t,n,m:ℕ]. ∀[nm:Id].
    (do-chosen-command(nat2msg;loc2msg;t;S;n;m;nm) ∈ ℤ × Id × Id × pMsg(P.M[P])? × System(P.M[P])) 
  supposing Continuous+(P.M[P])
Proof
Definitions occuring in Statement : 
do-chosen-command: do-chosen-command(nat2msg;loc2msg;t;S;n;m;nm)
, 
System: System(P.M[P])
, 
pMsg: pMsg(P.M[P])
, 
Id: Id
, 
strong-type-continuous: Continuous+(T.F[T])
, 
nat: ℕ
, 
uimplies: b supposing a
, 
uall: ∀[x:A]. B[x]
, 
so_apply: x[s]
, 
unit: Unit
, 
member: t ∈ T
, 
function: x:A ─→ B[x]
, 
product: x:A × B[x]
, 
union: left + right
, 
int: ℤ
, 
universe: Type
Lemmas : 
lg-is-source_wf, 
pInTransit_wf, 
bool_wf, 
eqtt_to_assert, 
lg-label_wf, 
lelt_wf, 
lg-size_wf, 
nat_wf, 
eqff_to_assert, 
equal_wf, 
bool_cases_sqequal, 
subtype_base_sq, 
bool_subtype_base, 
assert-bnot, 
it_wf, 
pMsg_wf, 
list_wf, 
component_wf, 
ldag_wf, 
Id_wf, 
System_wf, 
strong-type-continuous_wf, 
lt_int_wf, 
assert_wf, 
bnot_wf, 
not_wf, 
less_than_wf, 
assert_elim, 
bfalse_wf, 
btrue_neq_bfalse, 
eq_atom_wf, 
com-kind_wf, 
equal-wf-T-base, 
comm-msg_wf, 
unit_wf2, 
deliver-msg_wf, 
lg-remove_wf_dag, 
is-dag_wf, 
assert_of_eq_atom, 
create-component_wf, 
comm-create_wf, 
neg_assert_of_eq_atom, 
bool_cases, 
assert_of_lt_int, 
iff_transitivity, 
iff_weakening_uiff, 
assert_of_bnot, 
uiff_transitivity
Latex:
\mforall{}[M:Type  {}\mrightarrow{}  Type]
    \mforall{}[nat2msg:\mBbbN{}  {}\mrightarrow{}  pMsg(P.M[P])].  \mforall{}[loc2msg:Id  {}\mrightarrow{}  pMsg(P.M[P])].  \mforall{}[S:System(P.M[P])].  \mforall{}[t,n,m:\mBbbN{}].
    \mforall{}[nm:Id].
        (do-chosen-command(nat2msg;loc2msg;t;S;n;m;nm)  \mmember{}  \mBbbZ{}  \mtimes{}  Id  \mtimes{}  Id  \mtimes{}  pMsg(P.M[P])?  \mtimes{}  System(P.M[P])) 
    supposing  Continuous+(P.M[P])
Date html generated:
2015_07_23-AM-11_09_15
Last ObjectModification:
2015_01_29-AM-00_09_43
Home
Index