Nuprl Lemma : consensus-refinement3
∀[V:Type]
  ((∀v1,v2:V.  Dec(v1 = v2 ∈ V))
  
⇒ {∃v,v':V. (¬(v = v' ∈ V))}
  
⇒ (∀L:V List. Dec(∃v:V. (¬(v ∈ L))))
  
⇒ (∀A:Id List. ∀W:{a:Id| (a ∈ A)}  List List.
        two-intersection(A;W)
        
⇒ (∀f:ConsensusState ─→ (consensus-state3(V) List)
              (cs-ref-map-constraints(V;A;W;f) 
⇒ ts-refinement(consensus-ts3(V);consensus-ts4(V;A;W);f))) 
        supposing ||W|| ≥ 1 ))
Proof
Definitions occuring in Statement : 
cs-ref-map-constraints: cs-ref-map-constraints(V;A;W;f)
, 
two-intersection: two-intersection(A;W)
, 
consensus-ts4: consensus-ts4(V;A;W)
, 
consensus-state4: ConsensusState
, 
consensus-ts3: consensus-ts3(T)
, 
consensus-state3: consensus-state3(T)
, 
Id: Id
, 
l_member: (x ∈ l)
, 
length: ||as||
, 
list: T List
, 
decidable: Dec(P)
, 
uimplies: b supposing a
, 
uall: ∀[x:A]. B[x]
, 
guard: {T}
, 
ge: i ≥ j 
, 
all: ∀x:A. B[x]
, 
exists: ∃x:A. B[x]
, 
not: ¬A
, 
implies: P 
⇒ Q
, 
set: {x:A| B[x]} 
, 
function: x:A ─→ B[x]
, 
natural_number: $n
, 
universe: Type
, 
equal: s = t ∈ T
, 
ts-refinement: ts-refinement(ts1;ts2;f)
Lemmas : 
less_than_wf, 
length_wf, 
list_wf, 
Id_wf, 
l_member_wf, 
list-cases, 
length_of_nil_lemma, 
product_subtype_list, 
length_of_cons_lemma, 
l_all_iff, 
cons_wf, 
l_all_wf2, 
exists_wf, 
all_wf, 
cs-ref-map-constraints_wf, 
consensus-state4_wf, 
consensus-state3_wf, 
two-intersection_wf, 
ge_wf, 
decidable_wf, 
not_wf, 
equal_wf, 
cons_member, 
sq_stable__l_member, 
decidable__equal_Id, 
infix_ap_wf, 
ts-reachable_wf, 
consensus-ts4_wf, 
subtype_rel_set, 
subtype_rel_wf, 
ts-type_wf, 
ts-rel_wf, 
subtype_rel_dep_function, 
subtype_rel_self, 
ts-final_wf, 
consensus-ts3_wf, 
ts-init_wf, 
rel_star_weakening, 
colist_wf, 
has-value_wf-partial, 
nat_wf, 
set-value-type, 
le_wf, 
int-value-type, 
colength_wf, 
decidable__lt, 
false_wf, 
non_neg_length, 
length_wf_nat, 
length_cons, 
cs-ref-map-unchanged, 
cs-ref-map-changed, 
cs-ref-map-step, 
decidable__le, 
decidable__cs-committed-change, 
two-intersection-one-intersection, 
less_than_transitivity1, 
rel_star_wf, 
rel_star_transitivity, 
firstn_wf, 
consensus-state3-cases, 
select_wf, 
rel_rel_star, 
length_firstn, 
less_than_transitivity2, 
le_weakening2, 
lelt_wf, 
select_firstn, 
sq_stable__le, 
iff_weakening_equal, 
equal-wf-T-base, 
int_subtype_base, 
int_seg_wf, 
le_weakening, 
or_wf, 
cs-considering_wf, 
cs-commited_wf, 
append_wf, 
nil_wf, 
or_functionality_wrt_iff, 
squash_wf, 
true_wf, 
list_extensionality, 
decidable__equal_int, 
le_transitivity, 
length_firstn_eq, 
member_wf, 
cs-inning-committable_wf, 
cs-inning-committed-committable, 
consensus-ts4-inning-committed-stable, 
cs-withdrawn_wf, 
decidable__equal_cs-withdrawn, 
mklist_wf, 
eq_int_wf, 
bool_wf, 
eqtt_to_assert, 
assert_of_eq_int, 
eqff_to_assert, 
bool_cases_sqequal, 
subtype_base_sq, 
bool_subtype_base, 
assert-bnot, 
neg_assert_of_eq_int, 
mklist_length, 
mklist_select, 
subtype_rel_list, 
top_wf, 
select-firstn, 
less_than_irreflexivity, 
set_subtype_base, 
add-associates, 
add-swap, 
add-commutes, 
zero-add, 
last-lemma-sq, 
assert_of_null, 
assert_wf, 
null_wf3, 
less-iff-le, 
le_antisymmetry_iff, 
condition-implies-le, 
minus-add, 
minus-one-mul, 
add_functionality_wrt_le, 
add-zero, 
le-add-cancel, 
not-equal-2, 
cs-initial_wf, 
decidable__cs-inning-committable, 
length-append, 
length-singleton, 
select_append_back, 
subtract_wf, 
select_append_front, 
le-add-cancel2, 
not-le-2, 
committed-inning0-reachable, 
fpf-single_wf, 
set_wf, 
equal-wf-base, 
fpf_wf, 
minus-zero, 
fpf_ap_single_lemma, 
hd_wf, 
hd_member, 
null_nil_lemma, 
null_cons_lemma
\mforall{}[V:Type]
    ((\mforall{}v1,v2:V.    Dec(v1  =  v2))
    {}\mRightarrow{}  \{\mexists{}v,v':V.  (\mneg{}(v  =  v'))\}
    {}\mRightarrow{}  (\mforall{}L:V  List.  Dec(\mexists{}v:V.  (\mneg{}(v  \mmember{}  L))))
    {}\mRightarrow{}  (\mforall{}A:Id  List.  \mforall{}W:\{a:Id|  (a  \mmember{}  A)\}    List  List.
                two-intersection(A;W)
                {}\mRightarrow{}  (\mforall{}f:ConsensusState  {}\mrightarrow{}  (consensus-state3(V)  List)
                            (cs-ref-map-constraints(V;A;W;f)
                            {}\mRightarrow{}  ts-refinement(consensus-ts3(V);consensus-ts4(V;A;W);f))) 
                supposing  ||W||  \mgeq{}  1  ))
Date html generated:
2015_07_17-AM-11_37_11
Last ObjectModification:
2015_07_16-AM-10_32_48
Home
Index