:: deftheorem Def9 defines Subalgebra C0SP1:def 9 :
for V, b2 being Algebra holds
( b2 is Subalgebra of V iff ( the carrier of b2 c= the carrier of V & the addF of b2 = the addF of V || the carrier of b2 & the multF of b2 = the multF of V || the carrier of b2 & the Mult of b2 = the Mult of V | [:REAL, the carrier of b2:] & 1. b2 = 1. V & 0. b2 = 0. V ) );