reserve n for Nat;

theorem
  for f be FinSequence of TOP-REAL 2 for p be Point of TOP-REAL 2 st p
  in L~f & len R_Cut(f,p) >= 2 holds f.1 in L~R_Cut(f,p)
proof
  let f be FinSequence of TOP-REAL 2;
  let p be Point of TOP-REAL 2;
  assume
A1: p in L~f;
  then len f <> 0 by TOPREAL1:22;
  then len f > 0;
  then 0+1 <= len f by NAT_1:13;
  then
A2: R_Cut(f,p).1 = f.1 by A1,JORDAN1B:3;
  assume 2 <= len R_Cut(f,p);
  hence thesis by A2,JORDAN3:1;
end;
