let A, B be set ; :: thesis: for FR being Subset-Family of
for A, B being set
for X being Subset of holds { (R .:^ X) where R is Subset of : R in FR } is Subset-Family of

let FR be Subset-Family of ; :: thesis: for A, B being set
for X being Subset of holds { (R .:^ X) where R is Subset of : R in FR } is Subset-Family of

let A, B be set ; :: thesis: for X being Subset of holds { (R .:^ X) where R is Subset of : R in FR } is Subset-Family of
let X be Subset of ; :: thesis: { (R .:^ X) where R is Subset of : R in FR } is Subset-Family of
deffunc H1( Subset of ) -> Subset of = $1 .:^ X;
defpred S1[ set ] means $1 in FR;
set G = { H1(R) where R is Subset of : S1[R] } ;
thus { H1(R) where R is Subset of : S1[R] } is Subset-Family of from DOMAIN_1:sch 8(); :: thesis: verum