let c1, c2 be Element of A; :: thesis: ( a <= c1 & b <= c1 & ( for c being Element of A st a <= c & b <= c holds
c1 <= c ) & a <= c2 & b <= c2 & ( for c being Element of A st a <= c & b <= c holds
c2 <= c ) implies c1 = c2 )

assume that
A1: a <= c1 and
A2: b <= c1 and
A3: for c being Element of A st a <= c & b <= c holds
c1 <= c and
A4: a <= c2 and
A5: b <= c2 and
A6: for c being Element of A st a <= c & b <= c holds
c2 <= c ; :: thesis: c1 = c2
A7: c1 <= c2 by A3, A4, A5;
c2 <= c1 by A1, A2, A6;
hence c1 = c2 by B1, A7, ORDERS_2:2; :: thesis: verum