scheme :: FINSEQ_1:sch 4
SepSeq{ F1() -> non empty set , P1[ FinSequence] } :
ex X being set st
for x being object holds
( x in X iff ex p being FinSequence st
( p in F1() * & P1[p] & x = p ) )