let a2, b2 be Real; :: thesis: ( ex a1, a3 being Real st
( (a1 + a2) + a3 = 1 & p = ((a1 * p1) + (a2 * p2)) + (a3 * p3) ) & ex a1, a3 being Real st
( (a1 + b2) + a3 = 1 & p = ((a1 * p1) + (b2 * p2)) + (a3 * p3) ) implies a2 = b2 )
assume A3: ( ex a1, a3 being Real st
( (a1 + a2) + a3 = 1 & p = ((a1 * p1) + (a2 * p2)) + (a3 * p3) ) & ex a1, a3 being Real st
( (a1 + b2) + a3 = 1 & p = ((a1 * p1) + (b2 * p2)) + (a3 * p3) ) ) ; :: thesis: a2 = b2
then consider a01, a03 being Real such that
A4: ( (a01 + a2) + a03 = 1 & p = ((a01 * p1) + (a2 * p2)) + (a03 * p3) ) ;
consider a1, a3 being Real such that
A5: ( (a1 + b2) + a3 = 1 & p = ((a1 * p1) + (b2 * p2)) + (a3 * p3) ) by A3;
consider a001, a002, a003 being Real such that
A6: ( p = ((a001 * p1) + (a002 * p2)) + (a003 * p3) & (a001 + a002) + a003 = 1 & ( 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, Th60;
( a01 = a001 & a2 = a002 & a03 = a003 ) by A4, A6;
hence a2 = b2 by A5, A6; :: thesis: verum