:: RMOD_5 semantic presentation

definition
let c1 be Ring;
let c2 be RightMod of c1;
let c3 be Subset of c2;
attr a3 is linearly-independent means :Def1: :: RMOD_5:def 1
for b1 being Linear_Combination of a3 holds
( Sum b1 = 0. a2 implies Carrier b1 = {} );
end;

:: deftheorem Def1 defines linearly-independent RMOD_5:def 1 :
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 holds
( b3 is linearly-independent iff for b4 being Linear_Combination of b3 holds
( Sum b4 = 0. b2 implies Carrier b4 = {} ) );

notation
let c1 be Ring;
let c2 be RightMod of c1;
let c3 be Subset of c2;
antonym linearly-dependent c3 for linearly-independent c3;
end;

theorem Th1: :: RMOD_5:1
canceled;

theorem Th2: :: RMOD_5:2
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Subset of b2 holds
( b3 c= b4 & b4 is linearly-independent implies b3 is linearly-independent )
proof end;

theorem Th3: :: RMOD_5:3
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 holds
not ( 0. b1 <> 1. b1 & b3 is linearly-independent & 0. b2 in b3 )
proof end;

theorem Th4: :: RMOD_5:4
for b1 being Ring
for b2 being RightMod of b1 holds {} the carrier of b2 is linearly-independent
proof end;

theorem Th5: :: RMOD_5:5
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2 holds
( 0. b1 <> 1. b1 & {b3,b4} is linearly-independent implies ( b3 <> 0. b2 & b4 <> 0. b2 ) )
proof end;

theorem Th6: :: RMOD_5:6
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2 holds
( 0. b1 <> 1. b1 implies ( not {b3,(0. b2)} is linearly-independent & not {(0. b2),b3} is linearly-independent ) ) by Th5;

definition
let c1 be domRing;
let c2 be RightMod of c1;
let c3 be Subset of c2;
func Lin c3 -> strict Submodule of a2 means :Def2: :: RMOD_5:def 2
the carrier of a4 = { (Sum b1) where B is Linear_Combination of a3 : verum } ;
existence
ex b1 being strict Submodule of c2 st the carrier of b1 = { (Sum b2) where B is Linear_Combination of c3 : verum }
proof end;
uniqueness
for b1, b2 being strict Submodule of c2 holds
( the carrier of b1 = { (Sum b3) where B is Linear_Combination of c3 : verum } & the carrier of b2 = { (Sum b3) where B is Linear_Combination of c3 : verum } implies b1 = b2 )
by RMOD_2:37;
end;

:: deftheorem Def2 defines Lin RMOD_5:def 2 :
for b1 being domRing
for b2 being RightMod of b1
for b3 being Subset of b2
for b4 being strict Submodule of b2 holds
( b4 = Lin b3 iff the carrier of b4 = { (Sum b5) where B is Linear_Combination of b3 : verum } );

theorem Th7: :: RMOD_5:7
canceled;

theorem Th8: :: RMOD_5:8
canceled;

theorem Th9: :: RMOD_5:9
for b1 being set
for b2 being domRing
for b3 being RightMod of b2
for b4 being Subset of b3 holds
( b1 in Lin b4 iff ex b5 being Linear_Combination of b4 st b1 = Sum b5 )
proof end;

theorem Th10: :: RMOD_5:10
for b1 being set
for b2 being domRing
for b3 being RightMod of b2
for b4 being Subset of b3 holds
( b1 in b4 implies b1 in Lin b4 )
proof end;

theorem Th11: :: RMOD_5:11
for b1 being domRing
for b2 being RightMod of b1 holds Lin ({} the carrier of b2) = (0). b2
proof end;

theorem Th12: :: RMOD_5:12
for b1 being domRing
for b2 being RightMod of b1
for b3 being Subset of b2 holds
not ( Lin b3 = (0). b2 & not b3 = {} & not b3 = {(0. b2)} )
proof end;

theorem Th13: :: RMOD_5:13
for b1 being domRing
for b2 being RightMod of b1
for b3 being Subset of b2
for b4 being strict Submodule of b2 holds
( 0. b1 <> 1. b1 & b3 = the carrier of b4 implies Lin b3 = b4 )
proof end;

theorem Th14: :: RMOD_5:14
for b1 being domRing
for b2 being strict RightMod of b1
for b3 being Subset of b2 holds
( 0. b1 <> 1. b1 & b3 = the carrier of b2 implies Lin b3 = b2 )
proof end;

theorem Th15: :: RMOD_5:15
for b1 being domRing
for b2 being RightMod of b1
for b3, b4 being Subset of b2 holds
( b3 c= b4 implies Lin b3 is Submodule of Lin b4 )
proof end;

theorem Th16: :: RMOD_5:16
for b1 being domRing
for b2 being strict RightMod of b1
for b3, b4 being Subset of b2 holds
( Lin b3 = b2 & b3 c= b4 implies Lin b4 = b2 )
proof end;

theorem Th17: :: RMOD_5:17
for b1 being domRing
for b2 being RightMod of b1
for b3, b4 being Subset of b2 holds Lin (b3 \/ b4) = (Lin b3) + (Lin b4)
proof end;

theorem Th18: :: RMOD_5:18
for b1 being domRing
for b2 being RightMod of b1
for b3, b4 being Subset of b2 holds
Lin (b3 /\ b4) is Submodule of (Lin b3) /\ (Lin b4)
proof end;