set V = RLMSpace n;
let G1, G2 be strict multMagma ; :: thesis: ( the carrier of G1 = ISOM () & ( for f, g being Function st f in ISOM () & g in ISOM () holds
the multF of G1 . (f,g) = f * g ) & the carrier of G2 = ISOM () & ( for f, g being Function st f in ISOM () & g in ISOM () holds
the multF of G2 . (f,g) = f * g ) implies G1 = G2 )

assume that
A3: the carrier of G1 = ISOM () and
A4: for f, g being Function st f in ISOM () & g in ISOM () holds
the multF of G1 . (f,g) = f * g and
A5: the carrier of G2 = ISOM () and
A6: for f, g being Function st f in ISOM () & g in ISOM () holds
the multF of G2 . (f,g) = f * g ; :: thesis: G1 = G2
now :: thesis: for f, g being Element of G1 holds the multF of G1 . (f,g) = the multF of G2 . (f,g)
let f, g be Element of G1; :: thesis: the multF of G1 . (f,g) = the multF of G2 . (f,g)
reconsider f1 = f as Function of (),() by ;
reconsider g1 = g as Function of (),() by ;
thus the multF of G1 . (f,g) = f1 * g1 by A3, A4
.= the multF of G2 . (f,g) by A3, A6 ; :: thesis: verum
end;
hence G1 = G2 by ; :: thesis: verum