let f be CR_Sequence; :: thesis: for m being natural number st 0 < m & m <= len f holds
f | m is CR_Sequence
let m be natural number ; :: thesis: ( 0 < m & m <= len f implies f | m is CR_Sequence )
reconsider fm = f | m as FinSequence of INT by Lm1;
assume that
A1: m > 0 and
A2: m <= len f ; :: thesis: f | m is CR_Sequence
A3: len fm = m by A2, FINSEQ_1:59;

A4: now

let i be Element of NAT ; :: thesis: ( i in dom fm implies i in dom f )
assume i in dom fm ; :: thesis: i in dom f
then A5: i in Seg m by A3, FINSEQ_1:def 3;
then i <= m by FINSEQ_1:1;
then A6: i <= len f by A2, XXREAL_0:2;
1 <= i by A5, FINSEQ_1:1;
then i in Seg (len f) by A6;
hence i in dom f by FINSEQ_1:def 3; :: thesis: verum

end;

A7: now

let i9, j9 be natural number ; :: thesis: ( i9 in dom fm & j9 in dom fm & i9 <> j9 implies fm . i9,fm . j9 are_relative_prime )
assume that
A8: i9 in dom fm and
A9: j9 in dom fm and
A10: i9 <> j9 ; :: thesis: fm . i9,fm . j9 are_relative_prime
reconsider i = i9, j = j9 as Element of NAT by ORDINAL1:def 12;
A11: f . i = fm . i by A8, FUNCT_1:47;
A12: f . j = fm . j by A9, FUNCT_1:47;
A13: j in dom f by A4, A9;
i in dom f by A4, A8;
hence fm . i9,fm . j9 are_relative_prime by A10, A13, A11, A12, Def2; :: thesis: verum

end;

now

let r be real number ; :: thesis: ( r in rng fm implies r > 0 )
assume r in rng fm ; :: thesis: r > 0
then consider i being set such that
A14: i in dom fm and
A15: fm . i = r by FUNCT_1:def 3;
reconsider i = i as Element of NAT by A14;
f . i in rng f by A4, A14, FUNCT_1:3;
then f . i > 0 by PARTFUN3:def 1;
hence r > 0 by A14, A15, FUNCT_1:47; :: thesis: verum

end;

hence f | m is CR_Sequence by A1, A3, A7, Def2, PARTFUN3:def 1; :: thesis: verum