At:
Ramsey
2
1
2
2
2
1
2
3
1
1
1
1.
k:
2.
0 < k
3.
0 < k-1 
(
L:
List. 0 < ||L|| 
(
r:
. r- > L^k-1))
4.
k = 1
5.
0 < k
6.
d:
7.
d1:
. d1 < d 
(
L:
List. sum(L[i] | i < ||L||) = d1

0 < ||L|| 
(
r:
. r- > L^k))
8.
L:
List
9.
sum(L[i] | i < ||L||) = d
10.
0 < ||L||
11.
(
i:
||L||. L[i] < k)
12.
i:
||L||. 2
L[i]
13.
L:
List. sum(L[i] | i < ||L||) = d-1

0 < ||L|| 
(
r:
. r- > L^k)
14.
i:
||L||
15.
d:
. sum(L[x]-L[i--][x] | x < ||L||) = d 
sum(L[x] | x < ||L||) = sum(L[i--][x] | x < ||L||)+d
16.
x:
||L||
17.
x = i
L[x]-L[i--][x] = 0
By:
(RWO
Thm*
L:
List, i,j:
||L||. 0 < L[i] 
L[i--][j] = if j=
i
L[j]-1 else L[j] fi
0)
THENA
(Auto THEN (AutoInst [i]))
THEN
SplitOnConclITE
Generated subgoals:
None
About: