reserve v,x,x1,x2,y,z for object,
  X,X1,X2,X3 for set;

theorem Th8:
  for E,F,G be non empty RLSStruct holds
  ( for x be set holds
  (x is Point of [:E,F,G:]
  iff ex x1 be Point of E, x2 be Point of F,
      x3 be Point of G st x=[x1,x2,x3]) )
  & ( for x1,y1 be Point of E, x2,y2 be Point of F, x3,y3 be Point of G
    holds [x1,x2,x3]+[y1,y2,y3] = [x1+y1,x2+y2,x3+y3] )
  & 0.[:E,F,G:] = [0.E,0.F,0.G]
  & ( for x1 be Point of E, x2 be Point of F, x3 be Point of G, a be Real
   holds a*[x1,x2,x3] = [a*x1,a*x2,a*x3] )
proof
let E,F,G be non empty RLSStruct;
thus
 for x be set holds
  x is Point of [:E,F,G:]
  iff ex x1 be Point of E, x2 be Point of F, x3 be Point of G st x=[x1,x2,x3]
proof
   let x be set;
   hereby assume x is Point of [:E,F,G:]; then
    consider x1x2 be Point of [:E,F:], x3 be Point of G such that
     A1: x=[x1x2,x3] by PRVECT_3:9;
   consider x1 be Point of E, x2 be Point of F such that
     A2: x1x2=[x1,x2] by PRVECT_3:9;
   take x1,x2,x3;
   thus x=[x1,x2,x3] by A1,A2;
  end;
  thus thesis;
end;
thus for x1,y1 be Point of E,x2,y2 be Point of F, x3,y3 be Point of G
  holds [x1,x2,x3]+[y1,y2,y3] = [x1+y1,x2+y2,x3+y3]
proof
let x1,y1 be Point of E,x2,y2 be Point of F, x3,y3 be Point of G;
 [x1,x2]+[y1,y2] =[x1+y1,x2+y2] by PRVECT_3:9;
 hence thesis by PRVECT_3:9;
end;
thus 0.[:E,F,G:] = [0.E,0.F,0.G];
 let x1 be Point of E, x2 be Point of F,x3 be Point of G, a be Real;
 thus a*[x1,x2,x3]=[a*[x1,x2],a*x3] by PRVECT_3:9
       .=[a*x1,a*x2,a*x3] by PRVECT_3:9;
end;
