let i be Element of NAT ; :: thesis: for f being non constant standard clockwise_oriented special_circular_sequence st i in dom (GoB f) & f /. 1 = (GoB f) * i,(width (GoB f)) & f /. 1 = N-min (L~ f) holds
( f /. 2 = (GoB f) * (i + 1),(width (GoB f)) & f /. ((len f) -' 1) = (GoB f) * i,((width (GoB f)) -' 1) )
let f be non constant standard clockwise_oriented special_circular_sequence; :: thesis: ( i in dom (GoB f) & f /. 1 = (GoB f) * i,(width (GoB f)) & f /. 1 = N-min (L~ f) implies ( f /. 2 = (GoB f) * (i + 1),(width (GoB f)) & f /. ((len f) -' 1) = (GoB f) * i,((width (GoB f)) -' 1) ) )
assume that
A1:
i in dom (GoB f)
and
A2:
f /. 1 = (GoB f) * i,(width (GoB f))
and
A3:
f /. 1 = N-min (L~ f)
; :: thesis: ( f /. 2 = (GoB f) * (i + 1),(width (GoB f)) & f /. ((len f) -' 1) = (GoB f) * i,((width (GoB f)) -' 1) )
A4:
f /. 2 in N-most (L~ f)
by A3, SPRECT_2:34;
A5:
1 <= width (GoB f)
by GOBRD11:34;
A6:
4 < len f
by GOBOARD7:36;
A7:
1 + 1 <= len f
by GOBOARD7:36, XXREAL_0:2;
then A8:
1 + 1 in dom f
by FINSEQ_3:27;
then consider i1, j1 being Element of NAT such that
A9:
[i1,j1] in Indices (GoB f)
and
A10:
f /. 2 = (GoB f) * i1,j1
by GOBOARD2:25;
A11:
1 <= len f
by GOBOARD7:36, XXREAL_0:2;
then A12:
1 in dom f
by FINSEQ_3:27;
A13:
( 1 <= i & i <= len (GoB f) )
by A1, FINSEQ_3:27;
then A14:
[i,(width (GoB f))] in Indices (GoB f)
by A5, MATRIX_1:37;
A15:
( 1 <= j1 & j1 <= width (GoB f) )
by A9, MATRIX_1:39;
A16:
( 1 <= i1 & i1 <= len (GoB f) )
by A9, MATRIX_1:39;
now assume A17:
j1 < width (GoB f)
;
:: thesis: contradictionA18:
((GoB f) * i1,(width (GoB f))) `2 =
((GoB f) * 1,(width (GoB f))) `2
by A5, A16, GOBOARD5:2
.=
N-bound (L~ f)
by JORDAN5D:42
;
(f /. 2) `2 =
(N-min (L~ f)) `2
by A4, PSCOMP_1:98
.=
N-bound (L~ f)
by EUCLID:56
;
hence
contradiction
by A10, A15, A16, A17, A18, GOBOARD5:5;
:: thesis: verum end;
then A19:
j1 = width (GoB f)
by A15, XXREAL_0:1;
A20: (abs (i - i1)) + 0 =
(abs (i - i1)) + (abs ((width (GoB f)) - (width (GoB f))))
by ABSVALUE:7
.=
1
by A2, A8, A9, A10, A12, A14, A19, GOBOARD5:13
;
hence A21:
f /. 2 = (GoB f) * (i + 1),(width (GoB f))
by A10, A19, A20, GOBOARD1:1; :: thesis: f /. ((len f) -' 1) = (GoB f) * i,((width (GoB f)) -' 1)
A22:
f /. (len f) = f /. 1
by FINSEQ_6:def 1;
A23:
((len f) -' 1) + 1 = len f
by A6, XREAL_1:237, XXREAL_0:2;
A24:
( 1 <= (len f) -' 1 & (len f) -' 1 <= len f )
by A7, NAT_D:44, NAT_D:49;
then A25:
(len f) -' 1 in dom f
by FINSEQ_3:27;
then consider i2, j2 being Element of NAT such that
A26:
[i2,j2] in Indices (GoB f)
and
A27:
f /. ((len f) -' 1) = (GoB f) * i2,j2
by GOBOARD2:25;
A28:
( 1 <= i2 & i2 <= len (GoB f) )
by A26, MATRIX_1:39;
A29:
( 1 <= j2 & j2 <= width (GoB f) )
by A26, MATRIX_1:39;
len f in dom f
by A11, FINSEQ_3:27;
then A30:
(abs (i2 - i)) + (abs (j2 - (width (GoB f)))) = 1
by A2, A14, A22, A23, A25, A26, A27, GOBOARD5:13;
per cases
( ( abs (i2 - i) = 1 & j2 = width (GoB f) ) or ( abs (j2 - (width (GoB f))) = 1 & i2 = i ) )
by A30, GOBOARD1:2;
suppose that A31:
abs (i2 - i) = 1
and A32:
j2 = width (GoB f)
;
:: thesis: f /. ((len f) -' 1) = (GoB f) * i,((width (GoB f)) -' 1)(f /. ((len f) -' 1)) `2 =
((GoB f) * 1,(width (GoB f))) `2
by A5, A27, A28, A32, GOBOARD5:2
.=
(N-min (L~ f)) `2
by A2, A3, A5, A13, GOBOARD5:2
.=
N-bound (L~ f)
by EUCLID:56
;
then A33:
f /. ((len f) -' 1) in N-most (L~ f)
by A7, A25, GOBOARD1:16, SPRECT_2:14;
hence
f /. ((len f) -' 1) = (GoB f) * i,
((width (GoB f)) -' 1)
;
:: thesis: verum end; end;