set F = PrgLocalOverlapSeq (A,loc,d1,prg,pos);
A1:
len prg > 0
;
let n be Nat; NOMIN_7:def 6 ( not 1 <= n or not n <= len (PrgLocalOverlapSeq (A,loc,d1,prg,pos)) or (PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . n is NonatomicND of V,A )
assume A2:
( 1 <= n & n <= len (PrgLocalOverlapSeq (A,loc,d1,prg,pos)) )
; (PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . n is NonatomicND of V,A
set X = local_overlapping (V,A,d1,((prg . 1) . d1),(loc /. (pos . 1)));
defpred S1[ Nat] means ( 1 <= V & V <= len (PrgLocalOverlapSeq (A,loc,d1,prg,pos)) implies (PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . V is NonatomicND of V,A );
A3:
S1[ 0 ]
;
A4:
for n being Nat st S1[n] holds
S1[n + 1]
proof
let n be
Nat;
( S1[n] implies S1[n + 1] )
assume that A5:
S1[
n]
and
1
<= n + 1
and A6:
n + 1
<= len (PrgLocalOverlapSeq (A,loc,d1,prg,pos))
;
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . (n + 1) is NonatomicND of V,A
per cases
( n = 0 or 0 < n )
;
suppose A7:
n = 0
;
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . (n + 1) is NonatomicND of V,A
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . 1
= local_overlapping (
V,
A,
d1,
((prg . 1) . d1),
(loc /. (pos . 1)))
by A1, Def14;
hence
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . (n + 1) is
NonatomicND of
V,
A
by A7, NOMIN_2:9;
verum end; suppose
0 < n
;
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . (n + 1) is NonatomicND of V,Athen A8:
0 + 1
<= n
by NAT_1:13;
A9:
n + 0 < n + 1
by XREAL_1:8;
then
n < len (PrgLocalOverlapSeq (A,loc,d1,prg,pos))
by A6, XXREAL_0:2;
then
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . (n + 1) = local_overlapping (
V,
A,
((PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . n),
((prg . (n + 1)) . ((PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . n)),
(loc /. (pos . (n + 1))))
by A1, A8, Def14;
hence
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . (n + 1) is
NonatomicND of
V,
A
by A5, A6, A8, A9, NOMIN_2:9, XXREAL_0:2;
verum end; end;
end;
for n being Nat holds S1[n]
from NAT_1:sch 2(A3, A4);
hence
(PrgLocalOverlapSeq (A,loc,d1,prg,pos)) . n is NonatomicND of V,A
by A2; verum