defpred S1[ object , object ] means ex z1, z2 being Element of V ex i1, i2 being Element of INT.Ring st
( \$1 = [z1,i1] & \$2 = [z2,i2] & i1 <> 0 & i2 <> 0 & i2 * z1 = i1 * z2 );
A1: for x being object st x in [: the carrier of V,():] holds
S1[x,x]
proof
let x be object ; :: thesis: ( x in [: the carrier of V,():] implies S1[x,x] )
assume x in [: the carrier of V,():] ; :: thesis: S1[x,x]
then consider z1, i1 being object such that
A11: ( z1 in the carrier of V & i1 in INT \ & x = [z1,i1] ) by ZFMISC_1:def 2;
reconsider z1 = z1 as Element of V by A11;
A12: ( i1 in INT & not i1 in ) by ;
reconsider i1 = i1 as Integer by A11;
reconsider i1 = i1 as Element of INT.Ring by A11;
( i1 <> 0 & i1 <> 0 & i1 * z1 = i1 * z1 ) by ;
hence S1[x,x] by A11; :: thesis: verum
end;
A2: for x, y being object st S1[x,y] holds
S1[y,x] ;
A3: for x, y, z being object st S1[x,y] & S1[y,z] holds
S1[x,z]
proof
let x, y, z be object ; :: thesis: ( S1[x,y] & S1[y,z] implies S1[x,z] )
assume A31: ( S1[x,y] & S1[y,z] ) ; :: thesis: S1[x,z]
then consider z1, z2 being Element of V, i1, i2 being Element of INT.Ring such that
A32: ( x = [z1,i1] & y = [z2,i2] & i1 <> 0 & i2 <> 0 & i2 * z1 = i1 * z2 ) ;
consider z3, z4 being Element of V, i3, i4 being Element of INT.Ring such that
A33: ( y = [z3,i3] & z = [z4,i4] & i3 <> 0 & i4 <> 0 & i4 * z3 = i3 * z4 ) by A31;
A34: ( z2 = z3 & i2 = i3 ) by ;
i2 * (i4 * z1) = (i2 * i4) * z1 by VECTSP_1:def 16
.= (i4 * i2) * z1
.= i4 * (i2 * z1) by VECTSP_1:def 16
.= i4 * (i1 * z2) by A32
.= (i4 * i1) * z2 by VECTSP_1:def 16
.= (i1 * i4) * z2
.= i1 * (i4 * z2) by VECTSP_1:def 16
.= (i1 * i2) * z4 by
.= (i2 * i1) * z4
.= i2 * (i1 * z4) by VECTSP_1:def 16 ;
hence S1[x,z] by AS, A32, A33, ZMODUL01:10; :: thesis: verum
end;
consider EqR being Equivalence_Relation of [: the carrier of V,():] such that
A4: for x, y being object holds
( [x,y] in EqR iff ( x in [: the carrier of V,():] & y in [: the carrier of V,():] & S1[x,y] ) ) from EQREL_1:sch 1(A1, A2, A3);
take EqR ; :: thesis: for S, T being object holds
( [S,T] in EqR iff ( S in [: the carrier of V,():] & T in [: the carrier of V,():] & ex z1, z2 being Element of V ex i1, i2 being Element of INT.Ring st
( S = [z1,i1] & T = [z2,i2] & i1 <> 0 & i2 <> 0 & i2 * z1 = i1 * z2 ) ) )

thus for S, T being object holds
( [S,T] in EqR iff ( S in [: the carrier of V,():] & T in [: the carrier of V,():] & ex z1, z2 being Element of V ex i1, i2 being Element of INT.Ring st
( S = [z1,i1] & T = [z2,i2] & i1 <> 0 & i2 <> 0 & i2 * z1 = i1 * z2 ) ) ) by A4; :: thesis: verum