A2: for n being Nat st 1 <= n & n < size holds
for x being Element of ND (V,A) ex y being Element of ND (V,A) st S1[n,x,y]
proof
let n be Nat; :: thesis: ( 1 <= n & n < size implies for x being Element of ND (V,A) ex y being Element of ND (V,A) st S1[n,x,y] )
assume ( 1 <= n & n < size ) ; :: thesis: for x being Element of ND (V,A) ex y being Element of ND (V,A) st S1[n,x,y]
let x be Element of ND (V,A); :: thesis: ex y being Element of ND (V,A) st S1[n,x,y]
set y = local_overlapping (V,A,x,((denaming (V,A,(val . (n + 1)))) . x),(loc /. (n + 1)));
local_overlapping (V,A,x,((denaming (V,A,(val . (n + 1)))) . x),(loc /. (n + 1))) in ND (V,A) ;
then reconsider y = local_overlapping (V,A,x,((denaming (V,A,(val . (n + 1)))) . x),(loc /. (n + 1))) as Element of ND (V,A) ;
take y ; :: thesis: S1[n,x,y]
thus S1[n,x,y] ; :: thesis: verum
end;
local_overlapping (V,A,d1,((denaming (V,A,(val . 1))) . d1),(loc /. 1)) in ND (V,A) ;
then reconsider X = local_overlapping (V,A,d1,((denaming (V,A,(val . 1))) . d1),(loc /. 1)) as Element of ND (V,A) ;
ex p being FinSequence of ND (V,A) st
( len p = size & ( p . 1 = X or size = 0 ) & ( for n being Nat st 1 <= n & n < size holds
S1[n,p . n,p . (n + 1)] ) ) from RECDEF_1:sch 4(A2);
hence ex b1 being FinSequence of ND (V,A) st
( len b1 = size & b1 . 1 = local_overlapping (V,A,d1,((denaming (V,A,(val . 1))) . d1),(loc /. 1)) & ( for n being Nat st 1 <= n & n < len b1 holds
b1 . (n + 1) = local_overlapping (V,A,(b1 . n),((denaming (V,A,(val . (n + 1)))) . (b1 . n)),(loc /. (n + 1))) ) ) by A1; :: thesis: verum