Nuprl Lemma : in-simple-loc-comb-1-concat
∀[Info,A,B:Type]. ∀[f:Id ─→ A ─→ bag(B)]. ∀[X:EClass(A)]. ∀[es:EO+(Info)]. ∀[e:E].
  (Singlevalued(X) ⇒ (∀i:Id. ∀a:A.  (#(f i a) ≤ 1)) ⇒ e ∈b f@(Loc, X) = e ∈b X ∧b (¬bbag-null(f loc(e) X(e))))
Proof
Definitions occuring in Statement : 
concat-lifting-loc-1: f@, 
simple-loc-comb-1: F(Loc, X), 
sv-class: Singlevalued(X), 
eclass-val: X(e), 
in-eclass: e ∈b X, 
eclass: EClass(A[eo; e]), 
event-ordering+: EO+(Info), 
es-loc: loc(e), 
es-E: E, 
Id: Id, 
band: p ∧b q, 
bnot: ¬bb, 
bool: 𝔹, 
uall: ∀[x:A]. B[x], 
le: A ≤ B, 
all: ∀x:A. B[x], 
implies: P ⇒ Q, 
apply: f a, 
function: x:A ─→ B[x], 
natural_number: $n, 
universe: Type, 
equal: s = t ∈ T, 
bag-size: #(bs), 
bag-null: bag-null(bs), 
bag: bag(T)
Lemmas : 
all_wf, 
Id_wf, 
le_wf, 
bag-size_wf, 
nat_wf, 
sv-class_wf, 
es-E_wf, 
event-ordering+_subtype, 
event-ordering+_wf, 
eclass_wf, 
bag_wf, 
eq_int_wf, 
bool_wf, 
eqtt_to_assert, 
assert_of_eq_int, 
eqff_to_assert, 
equal_wf, 
bool_cases_sqequal, 
subtype_base_sq, 
bool_subtype_base, 
assert-bnot, 
neg_assert_of_eq_int, 
nequal-le-implies, 
equal-wf-base-T, 
bag-size-one, 
bag-combine-single-left, 
single-bag_wf, 
es-loc_wf, 
eclass-val_wf, 
bag-union-single, 
bag-subtype-list, 
null-bag-size, 
iff_imp_equal_bool, 
bnot_wf, 
equal-wf-T-base, 
not_wf, 
assert_wf, 
iff_wf, 
iff_transitivity, 
iff_weakening_uiff, 
assert_of_bnot, 
bag-size-zero, 
decidable__le, 
false_wf, 
not-le-2, 
condition-implies-le, 
minus-add, 
minus-one-mul, 
add-swap, 
add-associates, 
zero-add, 
add-commutes, 
minus-zero, 
add_functionality_wrt_le, 
le-add-cancel2, 
bag_combine_empty_lemma, 
bag_union_empty_lemma, 
bag_size_empty_lemma, 
bfalse_wf
Latex:
\mforall{}[Info,A,B:Type].  \mforall{}[f:Id  {}\mrightarrow{}  A  {}\mrightarrow{}  bag(B)].  \mforall{}[X:EClass(A)].  \mforall{}[es:EO+(Info)].  \mforall{}[e:E].
    (Singlevalued(X)
    {}\mRightarrow{}  (\mforall{}i:Id.  \mforall{}a:A.    (\#(f  i  a)  \mleq{}  1))
    {}\mRightarrow{}  e  \mmember{}\msubb{}  f@(Loc,  X)  =  e  \mmember{}\msubb{}  X  \mwedge{}\msubb{}  (\mneg{}\msubb{}bag-null(f  loc(e)  X(e))))
Date html generated:
2015_07_23-AM-11_29_39
Last ObjectModification:
2015_01_28-PM-11_16_55
Home
Index