for D being non empty set holds { d where d is Element of D : P1[d] } is Subset of D from DOMAIN_1:sch 1();
hence { d where d is Element of F1() : P1[d] } is Subset of F1() ; :: thesis: verum