let f be FinSequence of REAL ; :: thesis: for r being Real st f = <*r*> holds
( min_p f = 1 & min f = r )
let r be Real; :: thesis: ( f = <*r*> implies ( min_p f = 1 & min f = r ) )
assume f = <*r*> ; :: thesis: ( min_p f = 1 & min f = r )
then A1: ( len f = 1 & f . 1 = r ) by FINSEQ_1:57;
then min_p f in dom f by Def2;
then ( 1 <= min_p f & min_p f <= len f ) by FINSEQ_3:27;
hence ( min_p f = 1 & min f = r ) by A1, XXREAL_0:1; :: thesis: verum