thus ( G is associative implies the multF of G is associative ) :: thesis: ( the multF of G is associative implies G is associative )
proof
assume A3: for a, b, c being Element of G holds (a * b) * c = a * (b * c) ; :: according to GROUP_1:def 4 :: thesis: the multF of G is associative
let a be Element of G; :: according to BINOP_1:def 14 :: thesis: for b1, b2 being Element of the carrier of G holds the multF of G . a,(the multF of G . b1,b2) = the multF of G . (the multF of G . a,b1),b2
let b, c be Element of G; :: thesis: the multF of G . a,(the multF of G . b,c) = the multF of G . (the multF of G . a,b),c
( H2(G) . (a * b),c = (a * b) * c & H2(G) . a,(b * c) = a * (b * c) ) ;
hence the multF of G . a,(the multF of G . b,c) = the multF of G . (the multF of G . a,b),c by A3; :: thesis: verum
end;
assume A4: for a, b, c being Element of G holds H2(G) . a,(H2(G) . b,c) = H2(G) . (H2(G) . a,b),c ; :: according to BINOP_1:def 14 :: thesis: G is associative
let a be Element of G; :: according to GROUP_1:def 4 :: thesis: for b1, b2 being Element of the carrier of G holds (a [*] b1) [*] b2 = a [*] (b1 [*] b2)
let b, c be Element of G; :: thesis: (a [*] b) [*] c = a [*] (b [*] c)
thus (a [*] b) [*] c = a [*] (b [*] c) by A4; :: thesis: verum