reconsider e = One_ ((ContinuousFunctions X),(RAlgebra the carrier of X)) as Element of (R_Normed_Algebra_of_ContinuousFunctions X) ;
take e ; :: according to GROUP_1:def 1 :: thesis: for b1 being Element of the carrier of (R_Normed_Algebra_of_ContinuousFunctions X) holds
( b1 * e = b1 & e * b1 = b1 )

thus for b1 being Element of the carrier of (R_Normed_Algebra_of_ContinuousFunctions X) holds
( b1 * e = b1 & e * b1 = b1 ) by Lm2; :: thesis: verum