R [*] is_reflexive_in field R by Lm29;
then R [*] is_reflexive_in field (R [*]) by Lm30;
hence for b1 being Relation st b1 = R [*] holds
b1 is reflexive by RELAT_2:def 9; :: thesis: verum