let i, j, k be Element of NAT ; :: thesis: for f being non constant standard special_circular_sequence st 1 <= i & i <= len (GoB f) & 1 <= j & j + 1 < width (GoB f) & 1 <= k & k + 1 < len f & LSeg ((GoB f) * i,j),((GoB f) * i,(j + 1)) = LSeg f,k & LSeg ((GoB f) * i,(j + 1)),((GoB f) * i,(j + 2)) = LSeg f,(k + 1) holds
( f /. k = (GoB f) * i,j & f /. (k + 1) = (GoB f) * i,(j + 1) & f /. (k + 2) = (GoB f) * i,(j + 2) )
let f be non constant standard special_circular_sequence; :: thesis: ( 1 <= i & i <= len (GoB f) & 1 <= j & j + 1 < width (GoB f) & 1 <= k & k + 1 < len f & LSeg ((GoB f) * i,j),((GoB f) * i,(j + 1)) = LSeg f,k & LSeg ((GoB f) * i,(j + 1)),((GoB f) * i,(j + 2)) = LSeg f,(k + 1) implies ( f /. k = (GoB f) * i,j & f /. (k + 1) = (GoB f) * i,(j + 1) & f /. (k + 2) = (GoB f) * i,(j + 2) ) )
assume that
A1: ( 1 <= i & i <= len (GoB f) ) and
A2: ( 1 <= j & j + 1 < width (GoB f) ) and
A3: ( 1 <= k & k + 1 < len f ) and
A4: LSeg ((GoB f) * i,j),((GoB f) * i,(j + 1)) = LSeg f,k and
A5: LSeg ((GoB f) * i,(j + 1)),((GoB f) * i,(j + 2)) = LSeg f,(k + 1) ; :: thesis: ( f /. k = (GoB f) * i,j & f /. (k + 1) = (GoB f) * i,(j + 1) & f /. (k + 2) = (GoB f) * i,(j + 2) )
A6: LSeg ((GoB f) * i,j),((GoB f) * i,(j + 1)) = LSeg (f /. k),(f /. (k + 1)) by A3, A4, TOPREAL1:def 5;
then A7: ( ( (GoB f) * i,j = f /. k & (GoB f) * i,(j + 1) = f /. (k + 1) ) or ( (GoB f) * i,j = f /. (k + 1) & (GoB f) * i,(j + 1) = f /. k ) ) by SPPOL_1:25;
A8: k + (1 + 1) = (k + 1) + 1 ;
then A9: k + 2 <= len f by A3, NAT_1:13;
1 <= k + 1 by NAT_1:11;
then A10: LSeg ((GoB f) * i,(j + 1)),((GoB f) * i,(j + 2)) = LSeg (f /. (k + 1)),(f /. (k + 2)) by A5, A8, A9, TOPREAL1:def 5;
then A11: ( ( (GoB f) * i,(j + 1) = f /. (k + 1) & (GoB f) * i,(j + 2) = f /. (k + 2) ) or ( (GoB f) * i,(j + 1) = f /. (k + 2) & (GoB f) * i,(j + 2) = f /. (k + 1) ) ) by SPPOL_1:25;
j + (1 + 1) = (j + 1) + 1 ;
then A12: j + 2 <= width (GoB f) by A2, NAT_1:13;
j < j + 2 by XREAL_1:31;
then A13: ((GoB f) * i,j) `2 < ((GoB f) * i,(j + 2)) `2 by A1, A2, A12, GOBOARD5:5;
hence f /. k = (GoB f) * i,j by A7, A10, SPPOL_1:25; :: thesis: ( f /. (k + 1) = (GoB f) * i,(j + 1) & f /. (k + 2) = (GoB f) * i,(j + 2) )
thus f /. (k + 1) = (GoB f) * i,(j + 1) by A6, A11, A13, SPPOL_1:25; :: thesis: f /. (k + 2) = (GoB f) * i,(j + 2)
thus f /. (k + 2) = (GoB f) * i,(j + 2) by A6, A11, A13, SPPOL_1:25; :: thesis: verum