reserve n for Nat;

theorem Th1:
  for f be FinSequence of TOP-REAL 2 for p be Point of TOP-REAL 2
  st p in L~f holds len L_Cut(f,p) >= 1
proof
  let f be FinSequence of TOP-REAL 2;
  let p be Point of TOP-REAL 2;
  assume p in L~f;
  then L_Cut(f,p) <> {} by JORDAN1E:3;
  then
A1: len L_Cut(f,p) > 0 by NAT_1:3;
  1=0+1;
  hence thesis by A1,NAT_1:13;
end;
