:: MOD_1 semantic presentation

definition
mode AddGroup is non empty add-associative right_zeroed right_complementable LoopStr ;
end;

theorem Th1: :: MOD_1:1
canceled;

theorem Th2: :: MOD_1:2
canceled;

theorem Th3: :: MOD_1:3
canceled;

theorem Th4: :: MOD_1:4
canceled;

theorem Th5: :: MOD_1:5
canceled;

theorem Th6: :: MOD_1:6
canceled;

theorem Th7: :: MOD_1:7
canceled;

theorem Th8: :: MOD_1:8
canceled;

theorem Th9: :: MOD_1:9
canceled;

theorem Th10: :: MOD_1:10
canceled;

theorem Th11: :: MOD_1:11
canceled;

theorem Th12: :: MOD_1:12
canceled;

theorem Th13: :: MOD_1:13
for b1 being non empty add-associative right_zeroed right_complementable right-distributive right_unital doubleLoopStr
for b2 being Element of b1 holds b2 * (- (1. b1)) = - b2
proof end;

theorem Th14: :: MOD_1:14
for b1 being non empty add-associative right_zeroed right_complementable left-distributive left_unital doubleLoopStr
for b2 being Element of b1 holds (- (1. b1)) * b2 = - b2
proof end;

theorem Th15: :: MOD_1:15
canceled;

theorem Th16: :: MOD_1:16
canceled;

theorem Th17: :: MOD_1:17
canceled;

theorem Th18: :: MOD_1:18
canceled;

theorem Th19: :: MOD_1:19
canceled;

theorem Th20: :: MOD_1:20
canceled;

theorem Th21: :: MOD_1:21
canceled;

theorem Th22: :: MOD_1:22
canceled;

theorem Th23: :: MOD_1:23
canceled;

theorem Th24: :: MOD_1:24
canceled;

theorem Th25: :: MOD_1:25
for b1 being Field-like non degenerated Ring
for b2 being Scalar of b1
for b3 being non empty add-associative right_zeroed right_complementable VectSp-like VectSpStr of b1
for b4 being Vector of b3 holds
( b2 * b4 = 0. b3 iff ( b2 = 0. b1 or b4 = 0. b3 ) )
proof end;

theorem Th26: :: MOD_1:26
for b1 being Field-like non degenerated Ring
for b2 being Scalar of b1
for b3 being non empty add-associative right_zeroed right_complementable VectSp-like VectSpStr of b1
for b4 being Vector of b3 st b2 <> 0. b1 holds
(b2 " ) * (b2 * b4) = b4
proof end;

theorem Th27: :: MOD_1:27
canceled;

theorem Th28: :: MOD_1:28
canceled;

theorem Th29: :: MOD_1:29
canceled;

theorem Th30: :: MOD_1:30
canceled;

theorem Th31: :: MOD_1:31
canceled;

theorem Th32: :: MOD_1:32
canceled;

theorem Th33: :: MOD_1:33
canceled;

theorem Th34: :: MOD_1:34
canceled;

theorem Th35: :: MOD_1:35
canceled;

theorem Th36: :: MOD_1:36
canceled;

theorem Th37: :: MOD_1:37
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative right_unital distributive left_unital doubleLoopStr
for b2 being non empty add-associative right_zeroed right_complementable RightMod-like RightModStr of b1
for b3 being Scalar of b1
for b4 being Vector of b2 holds
( b4 * (0. b1) = 0. b2 & b4 * (- (1. b1)) = - b4 & (0. b2) * b3 = 0. b2 )
proof end;

theorem Th38: :: MOD_1:38
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative right_unital distributive left_unital doubleLoopStr
for b2 being non empty add-associative right_zeroed right_complementable RightMod-like RightModStr of b1
for b3 being Scalar of b1
for b4, b5 being Vector of b2 holds
( - (b4 * b3) = b4 * (- b3) & b5 - (b4 * b3) = b5 + (b4 * (- b3)) )
proof end;

theorem Th39: :: MOD_1:39
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative right_unital distributive left_unital doubleLoopStr
for b2 being non empty add-associative right_zeroed right_complementable RightMod-like RightModStr of b1
for b3 being Scalar of b1
for b4 being Vector of b2 holds (- b4) * b3 = - (b4 * b3)
proof end;

theorem Th40: :: MOD_1:40
for b1 being non empty Abelian add-associative right_zeroed right_complementable associative right_unital distributive left_unital doubleLoopStr
for b2 being non empty add-associative right_zeroed right_complementable RightMod-like RightModStr of b1
for b3 being Scalar of b1
for b4, b5 being Vector of b2 holds (b4 - b5) * b3 = (b4 * b3) - (b5 * b3)
proof end;

theorem Th41: :: MOD_1:41
canceled;

theorem Th42: :: MOD_1:42
for b1 being Field-like non degenerated Ring
for b2 being Scalar of b1
for b3 being non empty add-associative right_zeroed right_complementable RightMod-like RightModStr of b1
for b4 being Vector of b3 holds
( b4 * b2 = 0. b3 iff ( b2 = 0. b1 or b4 = 0. b3 ) )
proof end;

theorem Th43: :: MOD_1:43
for b1 being Field-like non degenerated Ring
for b2 being Scalar of b1
for b3 being non empty add-associative right_zeroed right_complementable RightMod-like RightModStr of b1
for b4 being Vector of b3 st b2 <> 0. b1 holds
(b4 * b2) * (b2 " ) = b4
proof end;