let a be Element of (RealVectSpace A); :: according to MONOID_0:def 1 :: thesis: a is set
thus a is set ; :: thesis: verum