Nuprl Lemma : seteqweaken1_ext
∀s1,s2:coSet{i:l}.  ((s1 = s2 ∈ coSet{i:l}) 
⇒ seteq(s1;s2))
Proof
Definitions occuring in Statement : 
seteq: seteq(s1;s2)
, 
coSet: coSet{i:l}
, 
all: ∀x:A. B[x]
, 
implies: P 
⇒ Q
, 
equal: s = t ∈ T
Definitions unfolded in proof : 
uimplies: b supposing a
, 
so_apply: x[s]
, 
so_lambda: λ2x.t[x]
, 
so_apply: x[s1;s2;s3;s4]
, 
so_lambda: so_lambda(x,y,z,w.t[x; y; z; w])
, 
any: any x
, 
bool_cases_sqequal, 
implies-sg-win2, 
iff_weakening_equal, 
coW-equiv_weakening, 
coW-equiv-equiv_rel, 
seteq-equiv, 
seteqweaken1, 
top: Top
, 
uall: ∀[x:A]. B[x]
, 
ifthenelse: if b then t else f fi 
, 
bfalse: ff
, 
it: ⋅
, 
btrue: tt
, 
lt_int: i <z j
, 
subtract: n - m
, 
member: t ∈ T
Lemmas referenced : 
strict4-decide, 
lifting-strict-less, 
less-as-ifthenelse, 
seteqweaken1, 
bool_cases_sqequal, 
implies-sg-win2, 
iff_weakening_equal, 
coW-equiv_weakening, 
coW-equiv-equiv_rel, 
seteq-equiv
Rules used in proof : 
independent_isectElimination, 
baseClosed, 
voidEquality, 
voidElimination, 
isect_memberEquality, 
isectElimination, 
equalitySymmetry, 
equalityTransitivity, 
sqequalHypSubstitution, 
thin, 
sqequalRule, 
hypothesis, 
extract_by_obid, 
instantiate, 
cut, 
sqequalReflexivity, 
computationStep, 
sqequalTransitivity, 
sqequalSubstitution, 
introduction
Latex:
\mforall{}s1,s2:coSet\{i:l\}.    ((s1  =  s2)  {}\mRightarrow{}  seteq(s1;s2))
Date html generated:
2018_07_29-AM-09_50_54
Last ObjectModification:
2018_07_11-AM-11_59_33
Theory : constructive!set!theory
Home
Index