take bool [:X,Y:] ; :: thesis: for b1 being X -defined Y -valued Relation holds b1 in bool [:X,Y:]
let R be X -defined Y -valued Relation; :: thesis: R in bool [:X,Y:]
R c= [:X,Y:] by Th175;
hence R in bool [:X,Y:] by ZFMISC_1:def 1; :: thesis: verum