reconsider e = ComplexFuncUnit A as Element of (CAlgebra A) ;
take e ; :: according to GROUP_1:def 1 :: thesis: for b₁ being Element of the carrier of (CAlgebra A) holds
( b₁ * e = b₁ & e * b₁ = b₁ )
thus for b₁ being Element of the carrier of (CAlgebra A) holds
( b₁ * e = b₁ & e * b₁ = b₁ ) by Lm5; :: thesis: verum