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;
( 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 )
;
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);
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
;
S1[n,x,y]
thus
S1[
n,
x,
y]
;
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; verum