
theorem Th34:
for X be non empty set, Y be set, x be set, E be SetSequence of [:X,Y:],
 G be SetSequence of X
 st E is non-descending & (for n be Nat holds G.n = Y-section(E.n,x))
 holds G is non-descending
proof
   let X be non empty set, Y be set, x be set, E be SetSequence of [:X,Y:],
   G be SetSequence of X;
   assume that
A1: E is non-descending and
A2: for n be Nat holds G.n = Y-section(E.n,x);
   for n be Nat holds G.n c= G.(n+1)
   proof
    let n be Nat;
    Y-section(E.n,x) c= Y-section(E.(n+1),x) by Th15,A1,KURATO_0:def 4; then
    G.n c= Y-section(E.(n+1),x) by A2;
    hence G.n c= G.(n+1) by A2;
   end;
   hence G is non-descending by KURATO_0:def 4;
end;
