let L be non empty multLoopStr ; :: thesis: ( ( for a being Element of holds a * (1. L) = a ) & ( for a being Element of ex x being Element of st a * x = 1. L ) & ( for a, b, c being Element of holds (a * b) * c = a * (b * c) ) implies for a being Element of ex x being Element of st x * a = 1. L )
assume that
A1: for a being Element of holds a * (1. L) = a and
A2: for a being Element of ex x being Element of st a * x = 1. L and
A3: for a, b, c being Element of holds (a * b) * c = a * (b * c) ; :: thesis: for a being Element of ex x being Element of st x * a = 1. L
let a be Element of ; :: thesis: ex x being Element of st x * a = 1. L
consider x being Element of such that
A4: a * x = 1. L by A2;
x * a = 1. L by A1, A2, A3, A4, Lm11;
hence ex x being Element of st x * a = 1. L ; :: thesis: verum