let G be Group; :: thesis: for a, b being Element of G holds [.b,a,a.] = ([.b,(a ").] * [.b,a.]) |^ a
let a, b be Element of G; :: thesis: [.b,a,a.] = ([.b,(a ").] * [.b,a.]) |^ a
thus [.b,a,a.] = (([.a,b.] * (a ")) * [.b,a.]) * a by Th22
.= ((((a ") * ((b ") * (a * b))) * (a ")) * [.b,a.]) * a by Th16
.= ((((a ") * ((b ") * (((a ") ") * b))) * (a ")) * [.b,a.]) * a
.= (((a ") * (((b ") * (((a ") ") * b)) * (a "))) * [.b,a.]) * a by GROUP_1:def 3
.= (((a ") * [.b,(a ").]) * [.b,a.]) * a by Th16
.= ([.b,(a ").] * [.b,a.]) |^ a by GROUP_1:def 3 ; :: thesis: verum