let R be Ring; :: thesis: for n being Nat
for S being Subring of R holds the carrier of (GL (n,S)) c= the carrier of (GL (n,R))

let n be Nat; :: thesis: for S being Subring of R holds the carrier of (GL (n,S)) c= the carrier of (GL (n,R))
let S be Subring of R; :: thesis: the carrier of (GL (n,S)) c= the carrier of (GL (n,R))
for x being object st x in the carrier of (GL (n,S)) holds
x in the carrier of (GL (n,R))
proof
let x be object ; :: thesis: ( x in the carrier of (GL (n,S)) implies x in the carrier of (GL (n,R)) )
assume x in the carrier of (GL (n,S)) ; :: thesis: x in the carrier of (GL (n,R))
then reconsider g = x as Element of (GL (n,S)) ;
reconsider M1 = g as invertible Matrix of n,S by Th126;
reconsider M2 = M1 as Matrix of n,R by Th82;
M2 is Element of (GL (n,R)) by Th128, Th139;
hence x in the carrier of (GL (n,R)) ; :: thesis: verum
end;
hence the carrier of (GL (n,S)) c= the carrier of (GL (n,R)) by TARSKI:def 3; :: thesis: verum