let c1, c2 be number ; :: thesis: ( ex x1, x2, y1, y2 being Element of REAL st
( x = [*x1,x2*] & y = [*y1,y2*] & c1 = [*(+ ((* (x1,y1)),(opp (* (x2,y2))))),(+ ((* (x1,y2)),(* (x2,y1))))*] ) & ex x1, x2, y1, y2 being Element of REAL st
( x = [*x1,x2*] & y = [*y1,y2*] & c2 = [*(+ ((* (x1,y1)),(opp (* (x2,y2))))),(+ ((* (x1,y2)),(* (x2,y1))))*] ) implies c1 = c2 )
given x1, x2, y1, y2 being Element of REAL such that A13: x = [*x1,x2*] and
A14: y = [*y1,y2*] and
A15: c1 = [*(+ ((* (x1,y1)),(opp (* (x2,y2))))),(+ ((* (x1,y2)),(* (x2,y1))))*] ; :: thesis: ( for x1, x2, y1, y2 being Element of REAL holds
( not x = [*x1,x2*] or not y = [*y1,y2*] or not c2 = [*(+ ((* (x1,y1)),(opp (* (x2,y2))))),(+ ((* (x1,y2)),(* (x2,y1))))*] ) or c1 = c2 )
given x19, x29, y19, y29 being Element of REAL such that A16: x = [*x19,x29*] and
A17: y = [*y19,y29*] and
A18: c2 = [*(+ ((* (x19,y19)),(opp (* (x29,y29))))),(+ ((* (x19,y29)),(* (x29,y19))))*] ; :: thesis: c1 = c2
A19: ( x1 = x19 & x2 = x29 ) by A13, A16, ARYTM_0:12;
( y1 = y19 & y2 = y29 ) by A14, A17, ARYTM_0:12;
hence c1 = c2 by A15, A18, A19; :: thesis: verum