:: MOD_3 semantic presentation

Lm1: for R being Ring
for a being Scalar of R st - a = 0. R holds
a = 0. R

proof end;

theorem :: MOD_3:1

canceled;

theorem Th2: :: MOD_3:2

for R being non empty add-associative right_zeroed right_complementable non degenerated doubleLoopStr holds 0. R <> - (1. R)

proof end;

theorem :: MOD_3:3

canceled;

theorem :: MOD_3:4

canceled;

theorem :: MOD_3:5

canceled;

theorem Th6: :: MOD_3:6

for R being Ring
for V being LeftMod of R
for L being Linear_Combination of V
for C being finite Subset of V st Carrier L c= C holds
ex F being FinSequence of the carrier of V st
( F is one-to-one & rng F = C & Sum L = Sum (L (#) F) )

proof end;

theorem Th7: :: MOD_3:7

for R being Ring
for V being LeftMod of R
for L being Linear_Combination of V
for a being Scalar of R holds Sum (a * L) = a * (Sum L)

proof end;

definition

let R be Ring;
let V be LeftMod of R;
let A be Subset of V;
func Lin A -> strict Subspace of V means :Def1: :: MOD_3:def 1
the carrier of it = { (Sum l) where l is Linear_Combination of A : verum } ;
existence

proof end;

uniqueness by VECTSP_4:37;

end;

:: deftheorem Def1 defines Lin MOD_3:def 1 :

theorem :: MOD_3:8

canceled;

theorem :: MOD_3:9

canceled;

theorem :: MOD_3:10

canceled;

theorem Th11: :: MOD_3:11

for x being set
for R being Ring
for V being LeftMod of R
for A being Subset of V holds
( x in Lin A iff ex l being Linear_Combination of A st x = Sum l )

proof end;

theorem Th12: :: MOD_3:12

for x being set
for R being Ring
for V being LeftMod of R
for A being Subset of V st x in A holds
x in Lin A

proof end;

theorem Th13: :: MOD_3:13

for R being Ring
for V being LeftMod of R holds Lin ({} the carrier of V) = (0). V

proof end;

theorem :: MOD_3:14

for R being Ring
for V being LeftMod of R
for A being Subset of V holds
( not Lin A = (0). V or A = {} or A = {(0. V)} )

proof end;

theorem Th15: :: MOD_3:15

for R being Ring
for V being LeftMod of R
for A being Subset of V
for W being strict Subspace of V st 0. R <> 1. R & A = the carrier of W holds
Lin A = W

proof end;

theorem :: MOD_3:16

for R being Ring
for V being strict LeftMod of R
for A being Subset of V st 0. R <> 1. R & A = the carrier of V holds
Lin A = V

proof end;

theorem Th17: :: MOD_3:17

for R being Ring
for V being LeftMod of R
for A, B being Subset of V st A c= B holds
Lin A is Subspace of Lin B

proof end;

theorem :: MOD_3:18

for R being Ring
for V being LeftMod of R
for A, B being Subset of V st Lin A = V & A c= B holds
Lin B = V

proof end;

theorem :: MOD_3:19

for R being Ring
for V being LeftMod of R
for A, B being Subset of V holds Lin (A \/ B) = (Lin A) + (Lin B)

proof end;

theorem :: MOD_3:20

for R being Ring
for V being LeftMod of R
for A, B being Subset of V holds Lin (A /\ B) is Subspace of (Lin A) /\ (Lin B)

proof end;

definition

let R be Ring;
let V be LeftMod of R;
let IT be Subset of V;
attr IT is base means :Def2: :: MOD_3:def 2
( IT is linearly-independent & Lin IT = VectSpStr(# the carrier of V,the add of V,the Zero of V,the lmult of V #) );

end;

:: deftheorem Def2 defines base MOD_3:def 2 :

definition

let R be Ring;
let IT be LeftMod of R;
attr IT is free means :Def3: :: MOD_3:def 3
ex B being Subset of IT st B is base;

end;

:: deftheorem Def3 defines free MOD_3:def 3 :

theorem Th21: :: MOD_3:21

for R being Ring
for V being LeftMod of R holds (0). V is free

proof end;

registration

let R be Ring;
cluster strict free VectSpStr of R;
existence

proof end;

end;

Lm2: for R being Skew-Field
for a being Scalar of R
for V being LeftMod of R
for v being Vector of V st a <> 0. R holds
( (a " ) * (a * v) = (1. R) * v & ((a " ) * a) * v = (1. R) * v )

proof end;

theorem :: MOD_3:22

canceled;

theorem :: MOD_3:23

for R being Skew-Field
for V being LeftMod of R
for v being Vector of V holds
( {v} is linearly-independent iff v <> 0. V )

proof end;

theorem Th24: :: MOD_3:24

for R being Skew-Field
for V being LeftMod of R
for v1, v2 being Vector of V holds
( v1 <> v2 & {v1,v2} is linearly-independent iff ( v2 <> 0. V & ( for a being Scalar of R holds v1 <> a * v2 ) ) )

proof end;

theorem :: MOD_3:25

for R being Skew-Field
for V being LeftMod of R
for v1, v2 being Vector of V holds
( ( v1 <> v2 & {v1,v2} is linearly-independent ) iff for a, b being Scalar of R st (a * v1) + (b * v2) = 0. V holds
( a = 0. R & b = 0. R ) )

proof end;

theorem Th26: :: MOD_3:26

for R being Skew-Field
for V being LeftMod of R
for A being Subset of V st A is linearly-independent holds
ex B being Subset of V st
( A c= B & B is base )

proof end;

theorem Th27: :: MOD_3:27

for R being Skew-Field
for V being LeftMod of R
for A being Subset of V st Lin A = V holds
ex B being Subset of V st
( B c= A & B is base )

proof end;

Lm3: for R being Skew-Field
for V being LeftMod of R ex B being Subset of V st B is base

proof end;

theorem :: MOD_3:28

for R being Skew-Field
for V being LeftMod of R holds V is free

proof end;

definition

let R be Skew-Field;
let V be LeftMod of R;
canceled;
mode Basis of V -> Subset of V means :Def5: :: MOD_3:def 5
it is base;
existence by Lm3;

end;

:: deftheorem MOD_3:def 4 :

:: deftheorem Def5 defines Basis MOD_3:def 5 :

theorem :: MOD_3:29

for R being Skew-Field
for V being LeftMod of R
for A being Subset of V st A is linearly-independent holds
ex I being Basis of V st A c= I

proof end;

theorem :: MOD_3:30

for R being Skew-Field
for V being LeftMod of R
for A being Subset of V st Lin A = V holds
ex I being Basis of V st I c= A

proof end;