:: RMOD_2 semantic presentation

definition
let c1 be Ring;
let c2 be RightMod of c1;
let c3 be Subset of c2;
attr a3 is lineary-closed means :Def1: :: RMOD_2:def 1
( ( for b1, b2 being Vector of a2 st b1 in a3 & b2 in a3 holds
b1 + b2 in a3 ) & ( for b1 being Scalar of a1
for b2 being Vector of a2 st b2 in a3 holds
b2 * b1 in a3 ) );
end;

:: deftheorem Def1 defines lineary-closed RMOD_2:def 1 :
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 holds
( b3 is lineary-closed iff ( ( for b4, b5 being Vector of b2 st b4 in b3 & b5 in b3 holds
b4 + b5 in b3 ) & ( for b4 being Scalar of b1
for b5 being Vector of b2 st b5 in b3 holds
b5 * b4 in b3 ) ) );

theorem Th1: :: RMOD_2:1
canceled;

theorem Th2: :: RMOD_2:2
canceled;

theorem Th3: :: RMOD_2:3
canceled;

theorem Th4: :: RMOD_2:4
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 st b3 <> {} & b3 is lineary-closed holds
0. b2 in b3
proof end;

theorem Th5: :: RMOD_2:5
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 st b3 is lineary-closed holds
for b4 being Vector of b2 st b4 in b3 holds
- b4 in b3
proof end;

theorem Th6: :: RMOD_2:6
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 st b3 is lineary-closed holds
for b4, b5 being Vector of b2 st b4 in b3 & b5 in b3 holds
b4 - b5 in b3
proof end;

theorem Th7: :: RMOD_2:7
for b1 being Ring
for b2 being RightMod of b1 holds {(0. b2)} is lineary-closed
proof end;

theorem Th8: :: RMOD_2:8
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 st the carrier of b2 = b3 holds
b3 is lineary-closed
proof end;

theorem Th9: :: RMOD_2:9
for b1 being Ring
for b2 being RightMod of b1
for b3, b4, b5 being Subset of b2 st b3 is lineary-closed & b4 is lineary-closed & b5 = { (b6 + b7) where B is Vector of b2, B is Vector of b2 : ( b6 in b3 & b7 in b4 ) } holds
b5 is lineary-closed
proof end;

theorem Th10: :: RMOD_2:10
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Subset of b2 st b3 is lineary-closed & b4 is lineary-closed holds
b3 /\ b4 is lineary-closed
proof end;

definition
let c1 be Ring;
let c2 be RightMod of c1;
mode Submodule of c2 -> RightMod of a1 means :Def2: :: RMOD_2:def 2
( the carrier of a3 c= the carrier of a2 & the Zero of a3 = the Zero of a2 & the add of a3 = the add of a2 | [:the carrier of a3,the carrier of a3:] & the rmult of a3 = the rmult of a2 | [:the carrier of a3,the carrier of a1:] );
existence
ex b1 being RightMod of c1 st
( the carrier of b1 c= the carrier of c2 & the Zero of b1 = the Zero of c2 & the add of b1 = the add of c2 | [:the carrier of b1,the carrier of b1:] & the rmult of b1 = the rmult of c2 | [:the carrier of b1,the carrier of c1:] )
proof end;
end;

:: deftheorem Def2 defines Submodule RMOD_2:def 2 :
for b1 being Ring
for b2, b3 being RightMod of b1 holds
( b3 is Submodule of b2 iff ( the carrier of b3 c= the carrier of b2 & the Zero of b3 = the Zero of b2 & the add of b3 = the add of b2 | [:the carrier of b3,the carrier of b3:] & the rmult of b3 = the rmult of b2 | [:the carrier of b3,the carrier of b1:] ) );

theorem Th11: :: RMOD_2:11
canceled;

theorem Th12: :: RMOD_2:12
canceled;

theorem Th13: :: RMOD_2:13
canceled;

theorem Th14: :: RMOD_2:14
canceled;

theorem Th15: :: RMOD_2:15
canceled;

theorem Th16: :: RMOD_2:16
for b1 being set
for b2 being Ring
for b3 being RightMod of b2
for b4, b5 being Submodule of b3 st b1 in b4 & b4 is Submodule of b5 holds
b1 in b5
proof end;

theorem Th17: :: RMOD_2:17
for b1 being set
for b2 being Ring
for b3 being RightMod of b2
for b4 being Submodule of b3 st b1 in b4 holds
b1 in b3
proof end;

theorem Th18: :: RMOD_2:18
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2
for b4 being Vector of b3 holds b4 is Vector of b2
proof end;

theorem Th19: :: RMOD_2:19
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds 0. b3 = 0. b2 by Def2;

theorem Th20: :: RMOD_2:20
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Submodule of b2 holds 0. b3 = 0. b4
proof end;

theorem Th21: :: RMOD_2:21
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2
for b6, b7 being Vector of b5 st b6 = b3 & b7 = b4 holds
b6 + b7 = b3 + b4
proof end;

theorem Th22: :: RMOD_2:22
for b1 being Ring
for b2 being Scalar of b1
for b3 being RightMod of b1
for b4 being Vector of b3
for b5 being Submodule of b3
for b6 being Vector of b5 st b6 = b4 holds
b6 * b2 = b4 * b2
proof end;

theorem Th23: :: RMOD_2:23
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2
for b5 being Vector of b4 st b5 = b3 holds
- b3 = - b5
proof end;

theorem Th24: :: RMOD_2:24
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2
for b6, b7 being Vector of b5 st b6 = b3 & b7 = b4 holds
b6 - b7 = b3 - b4
proof end;

Lemma13: for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2
for b4 being Submodule of b2 st the carrier of b4 = b3 holds
b3 is lineary-closed
proof end;

theorem Th25: :: RMOD_2:25
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds 0. b2 in b3
proof end;

theorem Th26: :: RMOD_2:26
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Submodule of b2 holds 0. b3 in b4
proof end;

theorem Th27: :: RMOD_2:27
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds 0. b3 in b2
proof end;

theorem Th28: :: RMOD_2:28
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 st b3 in b5 & b4 in b5 holds
b3 + b4 in b5
proof end;

theorem Th29: :: RMOD_2:29
for b1 being Ring
for b2 being Scalar of b1
for b3 being RightMod of b1
for b4 being Vector of b3
for b5 being Submodule of b3 st b4 in b5 holds
b4 * b2 in b5
proof end;

theorem Th30: :: RMOD_2:30
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 st b3 in b4 holds
- b3 in b4
proof end;

theorem Th31: :: RMOD_2:31
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 st b3 in b5 & b4 in b5 holds
b3 - b4 in b5
proof end;

theorem Th32: :: RMOD_2:32
for b1 being Ring
for b2 being RightMod of b1 holds b2 is Submodule of b2
proof end;

theorem Th33: :: RMOD_2:33
for b1 being Ring
for b2, b3 being strict RightMod of b1 st b3 is Submodule of b2 & b2 is Submodule of b3 holds
b3 = b2
proof end;

registration
let c1 be Ring;
let c2 be RightMod of c1;
cluster strict Submodule of a2;
existence
ex b1 being Submodule of c2 st b1 is strict
proof end;
end;

theorem Th34: :: RMOD_2:34
for b1 being Ring
for b2, b3, b4 being RightMod of b1 st b2 is Submodule of b3 & b3 is Submodule of b4 holds
b2 is Submodule of b4
proof end;

theorem Th35: :: RMOD_2:35
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Submodule of b2 st the carrier of b3 c= the carrier of b4 holds
b3 is Submodule of b4
proof end;

theorem Th36: :: RMOD_2:36
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Submodule of b2 st ( for b5 being Vector of b2 st b5 in b3 holds
b5 in b4 ) holds
b3 is Submodule of b4
proof end;

theorem Th37: :: RMOD_2:37
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being strict Submodule of b2 st the carrier of b3 = the carrier of b4 holds
b3 = b4
proof end;

theorem Th38: :: RMOD_2:38
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being strict Submodule of b2 st ( for b5 being Vector of b2 holds
( b5 in b3 iff b5 in b4 ) ) holds
b3 = b4
proof end;

theorem Th39: :: RMOD_2:39
for b1 being Ring
for b2 being strict RightMod of b1
for b3 being strict Submodule of b2 st the carrier of b3 = the carrier of b2 holds
b3 = b2
proof end;

theorem Th40: :: RMOD_2:40
for b1 being Ring
for b2 being strict RightMod of b1
for b3 being strict Submodule of b2 st ( for b4 being Vector of b2 holds b4 in b3 ) holds
b3 = b2
proof end;

theorem Th41: :: RMOD_2:41
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2
for b4 being Submodule of b2 st the carrier of b4 = b3 holds
b3 is lineary-closed by Lemma13;

theorem Th42: :: RMOD_2:42
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 st b3 <> {} & b3 is lineary-closed holds
ex b4 being strict Submodule of b2 st b3 = the carrier of b4
proof end;

definition
let c1 be Ring;
let c2 be RightMod of c1;
func (0). c2 -> strict Submodule of a2 means :Def3: :: RMOD_2:def 3
the carrier of a3 = {(0. a2)};
correctness
existence
ex b1 being strict Submodule of c2 st the carrier of b1 = {(0. c2)}
;
uniqueness
for b1, b2 being strict Submodule of c2 st the carrier of b1 = {(0. c2)} & the carrier of b2 = {(0. c2)} holds
b1 = b2
;
proof end;
end;

:: deftheorem Def3 defines (0). RMOD_2:def 3 :
for b1 being Ring
for b2 being RightMod of b1
for b3 being strict Submodule of b2 holds
( b3 = (0). b2 iff the carrier of b3 = {(0. b2)} );

definition
let c1 be Ring;
let c2 be RightMod of c1;
func (Omega). c2 -> strict Submodule of a2 equals :: RMOD_2:def 4
RightModStr(# the carrier of a2,the add of a2,the Zero of a2,the rmult of a2 #);
coherence
RightModStr(# the carrier of c2,the add of c2,the Zero of c2,the rmult of c2 #) is strict Submodule of c2
proof end;
end;

:: deftheorem Def4 defines (Omega). RMOD_2:def 4 :
for b1 being Ring
for b2 being RightMod of b1 holds (Omega). b2 = RightModStr(# the carrier of b2,the add of b2,the Zero of b2,the rmult of b2 #);

theorem Th43: :: RMOD_2:43
canceled;

theorem Th44: :: RMOD_2:44
canceled;

theorem Th45: :: RMOD_2:45
canceled;

theorem Th46: :: RMOD_2:46
for b1 being set
for b2 being Ring
for b3 being RightMod of b2 holds
( b1 in (0). b3 iff b1 = 0. b3 )
proof end;

theorem Th47: :: RMOD_2:47
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds (0). b3 = (0). b2
proof end;

theorem Th48: :: RMOD_2:48
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Submodule of b2 holds (0). b3 = (0). b4
proof end;

theorem Th49: :: RMOD_2:49
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds (0). b3 is Submodule of b2 by Th34;

theorem Th50: :: RMOD_2:50
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds (0). b2 is Submodule of b3
proof end;

theorem Th51: :: RMOD_2:51
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Submodule of b2 holds (0). b3 is Submodule of b4
proof end;

theorem Th52: :: RMOD_2:52
canceled;

theorem Th53: :: RMOD_2:53
for b1 being Ring
for b2 being strict RightMod of b1 holds b2 is Submodule of (Omega). b2 ;

definition
let c1 be Ring;
let c2 be RightMod of c1;
let c3 be Vector of c2;
let c4 be Submodule of c2;
func c3 + c4 -> Subset of a2 equals :: RMOD_2:def 5
{ (a3 + b1) where B is Vector of a2 : b1 in a4 } ;
coherence
{ (c3 + b1) where B is Vector of c2 : b1 in c4 } is Subset of c2
proof end;
end;

:: deftheorem Def5 defines + RMOD_2:def 5 :
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 holds b3 + b4 = { (b3 + b5) where B is Vector of b2 : b5 in b4 } ;

Lemma29: for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds (0. b2) + b3 = the carrier of b3
proof end;

definition
let c1 be Ring;
let c2 be RightMod of c1;
let c3 be Submodule of c2;
mode Coset of c3 -> Subset of a2 means :Def6: :: RMOD_2:def 6
ex b1 being Vector of a2 st a4 = b1 + a3;
existence
ex b1 being Subset of c2ex b2 being Vector of c2 st b1 = b2 + c3
proof end;
end;

:: deftheorem Def6 defines Coset RMOD_2:def 6 :
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2
for b4 being Subset of b2 holds
( b4 is Coset of b3 iff ex b5 being Vector of b2 st b4 = b5 + b3 );

theorem Th54: :: RMOD_2:54
canceled;

theorem Th55: :: RMOD_2:55
canceled;

theorem Th56: :: RMOD_2:56
canceled;

theorem Th57: :: RMOD_2:57
for b1 being set
for b2 being Ring
for b3 being RightMod of b2
for b4 being Vector of b3
for b5 being Submodule of b3 holds
( b1 in b4 + b5 iff ex b6 being Vector of b3 st
( b6 in b5 & b1 = b4 + b6 ) )
proof end;

theorem Th58: :: RMOD_2:58
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 holds
( 0. b2 in b3 + b4 iff b3 in b4 )
proof end;

theorem Th59: :: RMOD_2:59
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 holds b3 in b3 + b4
proof end;

theorem Th60: :: RMOD_2:60
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds (0. b2) + b3 = the carrier of b3 by Lemma29;

theorem Th61: :: RMOD_2:61
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2 holds b3 + ((0). b2) = {b3}
proof end;

Lemma35: for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 holds
( b3 in b4 iff b3 + b4 = the carrier of b4 )
proof end;

theorem Th62: :: RMOD_2:62
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2 holds b3 + ((Omega). b2) = the carrier of b2
proof end;

theorem Th63: :: RMOD_2:63
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 holds
( 0. b2 in b3 + b4 iff b3 + b4 = the carrier of b4 )
proof end;

theorem Th64: :: RMOD_2:64
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 holds
( b3 in b4 iff b3 + b4 = the carrier of b4 ) by Lemma35;

theorem Th65: :: RMOD_2:65
for b1 being Ring
for b2 being Scalar of b1
for b3 being RightMod of b1
for b4 being Vector of b3
for b5 being Submodule of b3 st b4 in b5 holds
(b4 * b2) + b5 = the carrier of b5
proof end;

theorem Th66: :: RMOD_2:66
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( b3 in b5 iff b4 + b5 = (b4 + b3) + b5 )
proof end;

theorem Th67: :: RMOD_2:67
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( b3 in b5 iff b4 + b5 = (b4 - b3) + b5 )
proof end;

theorem Th68: :: RMOD_2:68
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( b3 in b4 + b5 iff b4 + b5 = b3 + b5 )
proof end;

theorem Th69: :: RMOD_2:69
for b1 being Ring
for b2 being RightMod of b1
for b3, b4, b5 being Vector of b2
for b6 being Submodule of b2 st b3 in b4 + b6 & b3 in b5 + b6 holds
b4 + b6 = b5 + b6
proof end;

theorem Th70: :: RMOD_2:70
for b1 being Ring
for b2 being Scalar of b1
for b3 being RightMod of b1
for b4 being Vector of b3
for b5 being Submodule of b3 st b4 in b5 holds
b4 * b2 in b4 + b5
proof end;

theorem Th71: :: RMOD_2:71
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 st b3 in b4 holds
- b3 in b3 + b4
proof end;

theorem Th72: :: RMOD_2:72
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( b3 + b4 in b4 + b5 iff b3 in b5 )
proof end;

theorem Th73: :: RMOD_2:73
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( b3 - b4 in b3 + b5 iff b4 in b5 )
proof end;

theorem Th74: :: RMOD_2:74
canceled;

theorem Th75: :: RMOD_2:75
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( b3 in b4 + b5 iff ex b6 being Vector of b2 st
( b6 in b5 & b3 = b4 - b6 ) )
proof end;

theorem Th76: :: RMOD_2:76
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( ex b6 being Vector of b2 st
( b3 in b6 + b5 & b4 in b6 + b5 ) iff b3 - b4 in b5 )
proof end;

theorem Th77: :: RMOD_2:77
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 st b3 + b5 = b4 + b5 holds
ex b6 being Vector of b2 st
( b6 in b5 & b3 + b6 = b4 )
proof end;

theorem Th78: :: RMOD_2:78
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 st b3 + b5 = b4 + b5 holds
ex b6 being Vector of b2 st
( b6 in b5 & b3 - b6 = b4 )
proof end;

theorem Th79: :: RMOD_2:79
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4, b5 being strict Submodule of b2 holds
( b3 + b4 = b3 + b5 iff b4 = b5 )
proof end;

theorem Th80: :: RMOD_2:80
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5, b6 being strict Submodule of b2 st b3 + b5 = b4 + b6 holds
b5 = b6
proof end;

theorem Th81: :: RMOD_2:81
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2 ex b5 being Coset of b4 st b3 in b5
proof end;

theorem Th82: :: RMOD_2:82
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2
for b4 being Coset of b3 holds
( b4 is lineary-closed iff b4 = the carrier of b3 )
proof end;

theorem Th83: :: RMOD_2:83
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being strict Submodule of b2
for b5 being Coset of b3
for b6 being Coset of b4 st b5 = b6 holds
b3 = b4
proof end;

theorem Th84: :: RMOD_2:84
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2 holds {b3} is Coset of (0). b2
proof end;

theorem Th85: :: RMOD_2:85
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 st b3 is Coset of (0). b2 holds
ex b4 being Vector of b2 st b3 = {b4}
proof end;

theorem Th86: :: RMOD_2:86
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2 holds the carrier of b3 is Coset of b3
proof end;

theorem Th87: :: RMOD_2:87
for b1 being Ring
for b2 being RightMod of b1 holds the carrier of b2 is Coset of (Omega). b2
proof end;

theorem Th88: :: RMOD_2:88
for b1 being Ring
for b2 being RightMod of b1
for b3 being Subset of b2 st b3 is Coset of (Omega). b2 holds
b3 = the carrier of b2
proof end;

theorem Th89: :: RMOD_2:89
for b1 being Ring
for b2 being RightMod of b1
for b3 being Submodule of b2
for b4 being Coset of b3 holds
( 0. b2 in b4 iff b4 = the carrier of b3 )
proof end;

theorem Th90: :: RMOD_2:90
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2
for b5 being Coset of b4 holds
( b3 in b5 iff b5 = b3 + b4 )
proof end;

theorem Th91: :: RMOD_2:91
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2
for b6 being Coset of b5 st b3 in b6 & b4 in b6 holds
ex b7 being Vector of b2 st
( b7 in b5 & b3 + b7 = b4 )
proof end;

theorem Th92: :: RMOD_2:92
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2
for b6 being Coset of b5 st b3 in b6 & b4 in b6 holds
ex b7 being Vector of b2 st
( b7 in b5 & b3 - b7 = b4 )
proof end;

theorem Th93: :: RMOD_2:93
for b1 being Ring
for b2 being RightMod of b1
for b3, b4 being Vector of b2
for b5 being Submodule of b2 holds
( ex b6 being Coset of b5 st
( b3 in b6 & b4 in b6 ) iff b3 - b4 in b5 )
proof end;

theorem Th94: :: RMOD_2:94
for b1 being Ring
for b2 being RightMod of b1
for b3 being Vector of b2
for b4 being Submodule of b2
for b5, b6 being Coset of b4 st b3 in b5 & b3 in b6 holds
b5 = b6
proof end;