reserve n for Nat;

theorem Th44:
  for f be FinSequence of TOP-REAL 2 for p be Point of TOP-REAL 2
  holds R_Cut (f,p) <> {}
proof
  let f be FinSequence of TOP-REAL 2;
  let p be Point of TOP-REAL 2;
  per cases;
  suppose
    p<>f.1;
    then R_Cut (f,p) = mid(f,1,Index(p,f))^<*p*> by JORDAN3:def 4;
    hence thesis;
  end;
  suppose
    p=f.1;
    then R_Cut (f,p) = <*p*> by JORDAN3:def 4;
    hence thesis;
  end;
end;
