let a1, b1 be Real; :: thesis: ( ex a2, a3 being Real st
( (a1 + a2) + a3 = 1 & p = ((a1 * p1) + (a2 * p2)) + (a3 * p3) ) & ex a2, a3 being Real st
( (b1 + a2) + a3 = 1 & p = ((b1 * p1) + (a2 * p2)) + (a3 * p3) ) implies a1 = b1 )
assume that
A2: ex a2, a3 being Real st
( (a1 + a2) + a3 = 1 & p = ((a1 * p1) + (a2 * p2)) + (a3 * p3) ) and
A3: ex a2, a3 being Real st
( (b1 + a2) + a3 = 1 & p = ((b1 * p1) + (a2 * p2)) + (a3 * p3) ) ; :: thesis: a1 = b1
consider a001, a002, a003 being Real such that
p = ((a001 * p1) + (a002 * p2)) + (a003 * p3) and
(a001 + a002) + a003 = 1 and
A4: for b01, b02, b03 being Real st p = ((b01 * p1) + (b02 * p2)) + (b03 * p3) & (b01 + b02) + b03 = 1 holds
( b01 = a001 & b02 = a002 & b03 = a003 ) by A1, Th51;
a1 = a001 by A2, A4;
hence a1 = b1 by A3, A4; :: thesis: verum