let G be Group; :: thesis: for H being strict Subgroup of G st Right_Cosets H = { {a} where a is Element of G : verum } holds
H = (1). G
let H be strict Subgroup of G; :: thesis: ( Right_Cosets H = { {a} where a is Element of G : verum } implies H = (1). G )
assume A1: Right_Cosets H = { {a} where a is Element of G : verum } ; :: thesis: H = (1). G
A2: the carrier of H c= {(1_ G)}

proof

let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in the carrier of H or x in {(1_ G)} )
assume x in the carrier of H ; :: thesis: x in {(1_ G)}
then reconsider h = x as Element of H ;
A3: h in H by STRUCT_0:def 5;
reconsider h = h as Element of G by Th51;
consider a being Element of G;
1_ G in H by Th55;
then A4: ( (1_ G) * a in H * a & h * a in H * a & H * a in Right_Cosets H ) by A3, Def16, Th126;
then consider b being Element of G such that
A5: H * a = {b} by A1;
( (1_ G) * a = b & h * a = b ) by A4, A5, TARSKI:def 1;
then h = 1_ G by GROUP_1:14;
hence x in {(1_ G)} by TARSKI:def 1; :: thesis: verum

end;

1_ G in H by Th55;
then 1_ G in the carrier of H by STRUCT_0:def 5;
then {(1_ G)} c= the carrier of H by ZFMISC_1:37;
then {(1_ G)} = the carrier of H by A2, XBOOLE_0:def 10;
hence H = (1). G by Def7; :: thesis: verum