{ 
t:
. 
A:Id List.
    (
W:Id List List
      ((
ws:Id List
          ((ws 
 W)
          

 (||ws|| = (t + 1)) 
 no_repeats(Id;ws) 
 (
x
ws.(x 
 A))))
      
 (
ws1
W.(
ws2
W.
a:Id. ((a 
 ws1) 
 (a 
 ws2)))))) supposing 
       (no_repeats(Id;A) and 
       (||A|| = ((2 * t) + 1))) }
{ Proof }
Definitions occuring in Statement : 
Id: Id, 
length: ||as||, 
nat:
, 
uimplies: b supposing a, 
all:
x:A. B[x], 
exists:
x:A. B[x], 
iff: P 

 Q, 
and: P 
 Q, 
list: type List, 
multiply: n * m, 
add: n + m, 
natural_number: $n, 
int:
, 
equal: s = t, 
l_all: (
x
L.P[x]), 
no_repeats: no_repeats(T;l), 
l_member: (x 
 l)
Definitions : 
all:
x:A. B[x], 
iff: P 

 Q, 
and: P 
 Q, 
implies: P 
 Q, 
rev_implies: P 
 Q, 
member: t 
 T, 
prop:
, 
subtype: S 
 T, 
so_lambda: 
x.t[x], 
Id: Id, 
l_all: (
x
L.P[x]), 
le: A 
 B, 
not:
A, 
false: False, 
squash:
T, 
true: True, 
cand: A c
 B, 
l_member: (x 
 l), 
exists:
x:A. B[x], 
no_repeats: no_repeats(T;l), 
uall:
[x:A]. B[x], 
uimplies: b supposing a, 
int_seg: {i..j
}, 
lelt: i 
 j < k, 
nat:
, 
so_apply: x[s], 
sq_type: SQType(T), 
guard: {T}, 
sq_stable: SqStable(P), 
two-intersection: two-intersection(A;W)
Lemmas : 
l_member_wf, 
length_wf1, 
no_repeats_wf, 
l_all_wf2, 
Id_wf, 
subtype_base_sq, 
list_subtype_base, 
atom2_subtype_base, 
select_wf, 
sq_stable_from_decidable, 
decidable__l_member, 
decidable__equal_Id, 
list-set-type2, 
list-equal-set2, 
nat_wf, 
not_wf, 
select_member, 
le_wf, 
l_member-settype
\mforall{}t:\mBbbN{}.  \mforall{}A:Id  List.
    (\mexists{}W:Id  List  List
        ((\mforall{}ws:Id  List.  ((ws  \mmember{}  W)  \mLeftarrow{}{}\mRightarrow{}  (||ws||  =  (t  +  1))  \mwedge{}  no\_repeats(Id;ws)  \mwedge{}  (\mforall{}x\mmember{}ws.(x  \mmember{}  A))))
        \mwedge{}  (\mforall{}ws1\mmember{}W.(\mforall{}ws2\mmember{}W.\mexists{}a:Id.  ((a  \mmember{}  ws1)  \mwedge{}  (a  \mmember{}  ws2))))))  supposing 
          (no\_repeats(Id;A)  and 
          (||A||  =  ((2  *  t)  +  1)))
Date html generated:
2011_08_16-AM-10_00_44
Last ObjectModification:
2011_06_18-AM-08_58_35
Home
Index