reserve r, s, t, g for Real,

          r3, r1, r2, q3, p3 for Real;
reserve T for TopStruct,
  f for RealMap of T;
reserve p for Point of TOP-REAL 2,
  P for Subset of TOP-REAL 2,
  Z for non empty Subset of TOP-REAL 2,
  X for non empty compact Subset of TOP-REAL 2;

theorem Th19:
  for r3, q3 st P = {|[ r1, r2 ]| : r3 < r1 & r1 < q3} holds P is open
proof
  deffunc F(Real,Real) = |[ $1,$2 ]|;
  let r3, q3;
  defpred P1[Real,Real] means r3 < $1;
  defpred P2[Real,Real] means $1 < q3;
  reconsider Q1 = {|[ r1,r2 ]|: r3 < r1}, Q2 = {|[ r1,r2 ]|: r1 < q3} as
  open Subset of TOP-REAL 2 by JORDAN1:20,21;
  assume
A1: P = {|[ r1, r2 ]| : r3 < r1 & r1 < q3};
  now
    let x be object;
    hereby
      assume x in P;
      then consider r1, r2 being Real such that
A2: x = |[ r1, r2 ]| & r3 < r1 & r1 < q3 by A1;
      x in Q1 & x in Q2 by A2;
      hence x in Q1/\Q2 by XBOOLE_0:def 4;
    end;
    assume
A3: x in Q1/\Q2;
    then x in Q1 by XBOOLE_0:def 4;
    then consider r1, r2 being Real such that
A4: x = |[ r1, r2 ]| & r3 < r1;
    x in Q2 by A3,XBOOLE_0:def 4;
    then consider r19, r29 being Real such that
A5: x = |[ r19, r29 ]| & r19 < q3;
    |[ r1, r2 ]|`1 = r1 & |[ r19, r29 ]|`1 = r19 by EUCLID:52;
    hence x in P by A1,A4,A5;
  end;
  then
A6: P = Q1/\Q2 by TARSKI:2;
  thus thesis by A6,TOPS_1:11;
end;
