dom J = I by PARTFUN1:def 2;
then J . i in rng J by FUNCT_1:def 3;
hence for b1 being RelStr st b1 = J . i holds
not b1 is empty by Def7; :: thesis: verum