( multMagma(# REAL,addreal #) is Group-like & multMagma(# REAL,addreal #) is associative ) by Lm1;
hence ex b1 being multMagma st
( b1 is strict & b1 is Group-like & b1 is associative & not b1 is empty ) ; :: thesis: verum