let n be non zero Nat; :: thesis:
let x be object ; :: thesis:
assume x in MeasurableRectangle (ProductRightOpenIntervals n) ; :: thesis:
then consider y being Subset of (REAL n), f being n -element FinSequence of [:REAL,REAL:] such that
A1: x = y and
A2: for t being Element of REAL n holds
( t in y iff for i being Nat st i in Seg n holds
t . i in [.((f /. i) `1),((f /. i) `2).[ ) by Th34;
consider x1 being Element of [:(REAL n),(REAL n):] such that
A3: for i being Nat st i in Seg n holds
( (x1 `1) . i = (f /. i) `1 & (x1 `2) . i = (f /. i) `2 ) by Th13;
consider y1, z1 being object such that
A4: y1 in REAL n and
A5: z1 in REAL n and
A6: x1 = [y1,z1] by ZFMISC_1:def 2;
reconsider y1 = y1, z1 = z1 as Element of REAL n by A4, A5;
take y ; :: thesis:
take y1 ; :: thesis:
take z1 ; :: thesis:
thus x = y by A1; :: thesis:
thus for s being object holds
( s in y iff ex t being Element of REAL n st
( s = t & ( for i being Nat st i in Seg n holds
t . i in [.(y1 . i),(z1 . i).[ ) ) ) :: thesis:

let s be object ; :: thesis:

assume A8: s in y ; :: thesis:
then reconsider t = s as Element of REAL n ;

let i be Nat; :: thesis:
assume A9: i in Seg n ; :: thesis:
then ( (x1 `1) . i = (f /. i) `1 & (x1 `2) . i = (f /. i) `2 ) by A3;
hence t . i in [.(y1 . i),(z1 . i).[ by A6, A8, A9, A2; :: thesis:

end;

hence ex t being Element of REAL n st
( s = t & ( for i being Nat st i in Seg n holds
t . i in [.(y1 . i),(z1 . i).[ ) ) ; :: thesis:

end;

given t being Element of REAL n such that A10: s = t and
A11: for i being Nat st i in Seg n holds
t . i in [.(y1 . i),(z1 . i).[ ; :: thesis:

let i be Nat; :: thesis:
assume A12: i in Seg n ; :: thesis:
then ( (x1 `1) . i = (f /. i) `1 & (x1 `2) . i = (f /. i) `2 ) by A3;
hence t . i in [.((f /. i) `1),((f /. i) `2).[ by A11, A12, A6; :: thesis:

end;

end;