:: VECTSP_3 semantic presentation

theorem Th1: :: VECTSP_3:1
canceled;

theorem Th2: :: VECTSP_3:2
canceled;

theorem Th3: :: VECTSP_3:3
canceled;

theorem Th4: :: VECTSP_3:4
canceled;

theorem Th5: :: VECTSP_3:5
canceled;

theorem Th6: :: VECTSP_3:6
canceled;

theorem Th7: :: VECTSP_3:7
canceled;

theorem Th8: :: VECTSP_3:8
canceled;

theorem Th9: :: VECTSP_3:9
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative distributive left_unital doubleLoopStr
for b2 being Element of b1
for b3 being non empty Abelian add-associative right_zeroed right_complementable VectSp-like VectSpStr of b1
for b4, b5 being FinSequence of the carrier of b3 st len b4 = len b5 & ( for b6 being Nat
for b7 being Element of b3 st b6 in dom b4 & b7 = b5 . b6 holds
b4 . b6 = b2 * b7 ) holds
Sum b4 = b2 * (Sum b5)
proof end;

theorem Th10: :: VECTSP_3:10
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative distributive left_unital doubleLoopStr
for b2 being Element of b1
for b3 being non empty Abelian add-associative right_zeroed right_complementable VectSp-like VectSpStr of b1
for b4, b5 being FinSequence of the carrier of b3 st len b4 = len b5 & ( for b6 being Nat st b6 in dom b4 holds
b5 . b6 = b2 * (b4 /. b6) ) holds
Sum b5 = b2 * (Sum b4)
proof end;

theorem Th11: :: VECTSP_3:11
canceled;

theorem Th12: :: VECTSP_3:12
canceled;

theorem Th13: :: VECTSP_3:13
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative distributive left_unital doubleLoopStr
for b2 being non empty Abelian add-associative right_zeroed right_complementable VectSpStr of b1
for b3, b4, b5 being FinSequence of the carrier of b2 st len b3 = len b4 & len b3 = len b5 & ( for b6 being Nat st b6 in dom b3 holds
b5 . b6 = (b3 /. b6) - (b4 /. b6) ) holds
Sum b5 = (Sum b3) - (Sum b4)
proof end;

theorem Th14: :: VECTSP_3:14
canceled;

theorem Th15: :: VECTSP_3:15
canceled;

theorem Th16: :: VECTSP_3:16
canceled;

theorem Th17: :: VECTSP_3:17
canceled;

theorem Th18: :: VECTSP_3:18
canceled;

theorem Th19: :: VECTSP_3:19
canceled;

theorem Th20: :: VECTSP_3:20
canceled;

theorem Th21: :: VECTSP_3:21
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative distributive left_unital doubleLoopStr
for b2 being Element of b1
for b3 being non empty Abelian add-associative right_zeroed right_complementable VectSp-like VectSpStr of b1 holds b2 * (Sum (<*> the carrier of b3)) = 0. b3
proof end;

theorem Th22: :: VECTSP_3:22
canceled;

theorem Th23: :: VECTSP_3:23
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative distributive left_unital doubleLoopStr
for b2 being Element of b1
for b3 being non empty Abelian add-associative right_zeroed right_complementable VectSp-like VectSpStr of b1
for b4, b5 being Element of b3 holds b2 * (Sum <*b4,b5*>) = (b2 * b4) + (b2 * b5)
proof end;

theorem Th24: :: VECTSP_3:24
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative distributive left_unital doubleLoopStr
for b2 being Element of b1
for b3 being non empty Abelian add-associative right_zeroed right_complementable VectSp-like VectSpStr of b1
for b4, b5, b6 being Element of b3 holds b2 * (Sum <*b4,b5,b6*>) = ((b2 * b4) + (b2 * b5)) + (b2 * b6)
proof end;

theorem Th25: :: VECTSP_3:25
for b1 being non empty Abelian add-associative right_zeroed right_complementable LoopStr holds - (Sum (<*> the carrier of b1)) = 0. b1
proof end;

theorem Th26: :: VECTSP_3:26
canceled;

theorem Th27: :: VECTSP_3:27
for b1 being non empty Abelian add-associative right_zeroed right_complementable LoopStr
for b2, b3 being Element of b1 holds - (Sum <*b2,b3*>) = (- b2) - b3
proof end;

theorem Th28: :: VECTSP_3:28
for b1 being non empty Abelian add-associative right_zeroed right_complementable LoopStr
for b2, b3, b4 being Element of b1 holds - (Sum <*b2,b3,b4*>) = ((- b2) - b3) - b4
proof end;

theorem Th29: :: VECTSP_3:29
canceled;

theorem Th30: :: VECTSP_3:30
canceled;

theorem Th31: :: VECTSP_3:31
canceled;

theorem Th32: :: VECTSP_3:32
canceled;

theorem Th33: :: VECTSP_3:33
for b1 being non empty Abelian add-associative right_zeroed right_complementable LoopStr
for b2 being Element of b1 holds
( Sum <*b2,(- b2)*> = 0. b1 & Sum <*(- b2),b2*> = 0. b1 )
proof end;

theorem Th34: :: VECTSP_3:34
for b1 being non empty Abelian add-associative right_zeroed right_complementable LoopStr
for b2, b3 being Element of b1 holds
( Sum <*b2,(- b3)*> = b2 - b3 & Sum <*(- b3),b2*> = b2 - b3 )
proof end;

theorem Th35: :: VECTSP_3:35
for b1 being non empty Abelian add-associative right_zeroed right_complementable LoopStr
for b2, b3 being Element of b1 holds
( Sum <*(- b2),(- b3)*> = - (b2 + b3) & Sum <*(- b3),(- b2)*> = - (b2 + b3) )
proof end;