let i, j be Element of NAT ; :: thesis: for f being non empty FinSequence of (TOP-REAL 2) st 1 <= i & i <= len (GoB f) & 1 <= j & j <= width (GoB f) holds
ex k being Element of NAT st
( k in dom f & (f /. k) `1 = ((GoB f) * (i,j)) `1 )
let f be non empty FinSequence of (TOP-REAL 2); :: thesis: ( 1 <= i & i <= len (GoB f) & 1 <= j & j <= width (GoB f) implies ex k being Element of NAT st
( k in dom f & (f /. k) `1 = ((GoB f) * (i,j)) `1 ) )
assume that
A1: ( 1 <= i & i <= len (GoB f) ) and
A2: ( 1 <= j & j <= width (GoB f) ) ; :: thesis: ex k being Element of NAT st
( k in dom f & (f /. k) `1 = ((GoB f) * (i,j)) `1 )
A3: GoB f = GoB ((Incr (X_axis f)),(Incr (Y_axis f))) by GOBOARD2:def 3;
then len (Incr (X_axis f)) = len (GoB f) by GOBOARD2:def 1;
then i in dom (Incr (X_axis f)) by A1, FINSEQ_3:27;
then (Incr (X_axis f)) . i in rng (Incr (X_axis f)) by FUNCT_1:def 5;
then (Incr (X_axis f)) . i in rng (X_axis f) by SEQ_4:def 25;
then consider k being Nat such that
A4: k in dom (X_axis f) and
A5: (X_axis f) . k = (Incr (X_axis f)) . i by FINSEQ_2:11;
[i,j] in Indices (GoB f) by A1, A2, MATRIX_1:37;
then A6: (GoB f) * (i,j) = |[((Incr (X_axis f)) . i),((Incr (Y_axis f)) . j)]| by A3, GOBOARD2:def 1;
reconsider k = k as Element of NAT by ORDINAL1:def 13;
take k ; :: thesis: ( k in dom f & (f /. k) `1 = ((GoB f) * (i,j)) `1 )
len (X_axis f) = len f by GOBOARD1:def 3;
hence k in dom f by A4, FINSEQ_3:31; :: thesis: (f /. k) `1 = ((GoB f) * (i,j)) `1
thus (f /. k) `1 = (Incr (X_axis f)) . i by A4, A5, GOBOARD1:def 3
.= ((GoB f) * (i,j)) `1 by A6, EUCLID:56 ; :: thesis: verum