(99steps total) PrintForm Definitions Lemmas graph 1 2 Sections Graphs Doc

At: Ramsey-recursion 1 2 1 1
1. r:
2. k:
3. L: List
4. R: List
5. 2k
6. ||R|| = ||L||
7. i:||L||. 0 < L[i] R[i]- > L[i--]^k
8. r- > R^k-1
9. n:
10. r+1n
11. G: {s:(n List)| ||s|| = k & (x,y:||s||. x < y s[x] < s[y]) }||L||
12. c: ||R||
13. f: R[c](n-1)
14. increasing(f;R[c])
15. s:R[c] List. ||s|| = k-1 (x,y:||s||. x < y s[x] < s[y]) G(map(f;s) @ [(n-1)]) = c
16. 0 < L[c]
17. R[c]- > L[c--]^k
c:||L||, f:(L[c]n). increasing(f;L[c]) & (s:L[c] List. ||s|| = k (x,y:||s||. x < y s[x] < s[y]) G(map(f;s)) = c)
By:
Unfold `arrows` -1
THEN
InstHyp [R[c]] -1
THEN
Fold `arrows` -2
THEN
Assert ((s. G(map(f;s))) {s:(R[c] List)| ||s|| = k & (x,y:||s||. x < y s[x] < s[y]) }||L[c--]||)
Generated subgoals:

118. G:({s:(R[c] List)| ||s|| = k & (x,y:||s||. x < y s[x] < s[y]) }||L[c--]||). c@0:||L[c--]||, f:(L[c--][c@0]R[c]). increasing(f;L[c--][c@0]) & (s:L[c--][c@0] List. ||s|| = k (x,y:||s||. x < y s[x] < s[y]) G(map(f;s)) = c@0)
(s. G(map(f;s))) {s:(R[c] List)| ||s|| = k & (x,y:||s||. x < y s[x] < s[y]) }||L[c--]||		2 steps
 
218. G:({s:(R[c] List)| ||s|| = k & (x,y:||s||. x < y s[x] < s[y]) }||L[c--]||). c@0:||L[c--]||, f:(L[c--][c@0]R[c]). increasing(f;L[c--][c@0]) & (s:L[c--][c@0] List. ||s|| = k (x,y:||s||. x < y s[x] < s[y]) G(map(f;s)) = c@0)
19. (s. G(map(f;s))) {s:(R[c] List)| ||s|| = k & (x,y:||s||. x < y s[x] < s[y]) }||L[c--]||
c:||L||, f:(L[c]n). increasing(f;L[c]) & (s:L[c] List. ||s|| = k (x,y:||s||. x < y s[x] < s[y]) G(map(f;s)) = c)		73 steps

About:
listconsnilintnatural_numberaddsubtractless_thanset
functionequalmemberimpliesandallexists

(99steps total) PrintForm Definitions Lemmas graph 1 2 Sections Graphs Doc