ex R being strict RelStr st
( the carrier of R = X & R is real ) by Th1;
hence ex b1 being strict real RelStr st the carrier of b1 = X ; :: thesis: verum