theorem Th40: :: MEASUR11:46
for X being non empty set
for Y being set
for E being SetSequence of [:X,Y:]
for x being set st E is non-ascending holds
ex G being SetSequence of X st
( G is non-ascending & ( for n being Nat holds G . n = Y-section ((E . n),x) ) )