At: auto2  lemma  3 1 1 1 2 1 1 1
1. Alph: Type
2. R: Alph*
 Alph*
Alph*
 Prop
Prop
3. n: 

4.  x:Alph*. R(x,x)
x:Alph*. R(x,x)
5.  x,y:Alph*. R(x,y)
x,y:Alph*. R(x,y) 
 R(y,x)
 R(y,x)
6.  x,y,z:Alph*. R(x,y)  &  R(y,z)
x,y,z:Alph*. R(x,y)  &  R(y,z) 
 R(x,z)
 R(x,z)
7.  x,y,z:Alph*. R(x,y)
x,y,z:Alph*. R(x,y) 
 R((z @ x),z @ y)
 R((z @ x),z @ y)
8. w:  n
n
 Alph*
Alph*
9.  l:Alph*.
l:Alph*.  i:
i: n. R(l,w(i))
n. R(l,w(i))
10. a: Alph*
11. b: Alph*
12. c: Alph*
13. ||a|| n
n n
n
14. f: Alph*

 n
n
15.  x:Alph*. R(x,w(f(x)))
x:Alph*. R(x,w(f(x)))
16. f1:  n
n
 n
n

 (n
(n n)
n)
17. Bij( n
n
 n;
n;  (n
(n n); f1)
n); f1)
18. i:  (n
(n n+1)
n+1)
19. j:  (n
(n n+1)
n+1)
20. i < j
21. f1( < f((a[||a||-i..||a|| ]) @ b),f((a[||a||-i..||a||
]) @ b),f((a[||a||-i..||a|| ]) @ c) > )
=
f1( < f((a[||a||-j..||a||
]) @ c) > )
=
f1( < f((a[||a||-j..||a|| ]) @ b),f((a[||a||-j..||a||
]) @ b),f((a[||a||-j..||a|| ]) @ c) > )
]) @ c) > )
  ||(a[0..||a||-j
 ||(a[0..||a||-j ]) @ (a[||a||-i..||a||
]) @ (a[||a||-i..||a|| ])|| < ||a||
])|| < ||a||
By: 
RWH
(LemmaC
 
  Thm*  as,bs:T*. ||as @ bs|| = ||as||+||bs||)
0
as,bs:T*. ||as @ bs|| = ||as||+||bs||)
0
THEN
RWH
 (LemmaC
 
  Thm*  as:T*, i:{0...||as||}, j:{i...||as||}. ||as[i..j
as:T*, i:{0...||as||}, j:{i...||as||}. ||as[i..j ]|| = j-i)
 0
]|| = j-i)
 0
Generated subgoals:None
About: