reserve f,g for PartFunc of REAL,REAL,
  r,r1,r2,g1,g2,g3,g4,g5,g6,x,x0,t,c for Real,
  a,b,s for Real_Sequence,
  n,k for Element of NAT;

theorem
  (ex N being Neighbourhood of x0 st N c= dom f & N c= dom g & f
  is_differentiable_on N & g is_differentiable_on N & N \ {x0} c= dom (f/g) & N
  c= dom ((f`|N)/(g`|N)) & f.x0 = 0 & g.x0 = 0 & (f`|N)/(g`|N)
  is_divergent_to-infty_in x0) implies f/g is_divergent_to-infty_in x0
proof
  given N being Neighbourhood of x0 such that
A1: N c= dom f and
A2: N c= dom g and
A3: f is_differentiable_on N and
A4: g is_differentiable_on N and
A5: N \ {x0} c= dom (f/g) and
A6: N c= dom ((f`|N)/(g`|N)) and
A7: f.x0 = 0 & g.x0 = 0 and
A8: (f`|N)/(g`|N) is_divergent_to-infty_in x0;
  consider r be Real such that
A9: 0<r and
A10: N = ].x0-r,x0+r.[ by RCOMP_1:def 6;
A11: for x st x0-r<x & x<x0 ex c st c in ].x,x0.[ & (f/g).x=((f`|N)/(g`|N)) .c
  proof
A12: x0+0<x0+r by A9,XREAL_1:8;
    x0-r<x0 by A9,XREAL_1:44;
    then x0 in {g1: x0-r<g1 & g1<x0+r} by A12;
    then
A13: x0 in ].x0-r,x0+r.[ by RCOMP_1:def 2;
A14: dom (f`|N) /\ (dom (g`|N) \ (g`|N)"{0}) c= dom (g`|N)\(g`|N)"{0} by
XBOOLE_1:17;
A15: dom f /\ (dom g\g"{0}) c= dom g\g"{0} by XBOOLE_1:17;
    let x such that
A16: x0-r<x and
A17: x<x0;
    set f1 = (f.x)(#)g - (g.x)(#)f;
A18: dom((f.x)(#)g) = dom g & dom((g.x)(#)f) = dom f by VALUED_1:def 5;
    then
A19: dom((f.x)(#)g - (g.x)(#)f) = dom f /\ dom g by VALUED_1:12;
    x<x0+r by A17,A12,XXREAL_0:2;
    then x in {g1: x0-r<g1 & g1<x0+r} by A16;
    then x in ].x0-r,x0+r.[ by RCOMP_1:def 2;
    then
A20: [.x,x0.] c= N by A10,A13,XXREAL_2:def 12;
    then
A21: [.x,x0.] c= dom f & [.x,x0.] c= dom g by A1,A2;
    then
A22: [.x,x0.] c= dom f1 by A19,XBOOLE_1:19;
    g|N is continuous by A4,FDIFF_1:25;
    then g|[.x,x0.] is continuous by A20,FCONT_1:16;
    then
A23: ((f.x)(#)g)|[.x,x0.] is continuous by A2,A20,FCONT_1:20,XBOOLE_1:1;
    f|N is continuous by A3,FDIFF_1:25;
    then f|[.x,x0.] is continuous by A20,FCONT_1:16;
    then
A24: ((g.x)(#)f)|[.x,x0.] is continuous by A1,A20,FCONT_1:20,XBOOLE_1:1;
    [.x,x0.] c= dom((f.x)(#)g - (g.x)(#)f) by A21,A19,XBOOLE_1:19;
    then
A25: ((f.x)(#)g - (g.x)(#)f)|[.x,x0.] is continuous by A18,A19,A24,A23,
FCONT_1:18;
A26: ].x,x0.[ c= [.x,x0.] by XXREAL_1:25;
    then
A27: ].x,x0.[ c= N by A20;
A28: x in [.x,x0.] by A17,XXREAL_1:1;
    then x in dom f1 by A22;
    then
A29: x in dom ((f.x)(#)g) /\ dom ((g.x) (#)f) by VALUED_1:12;
    then
A30: x in dom ((f.x) (#) g) by XBOOLE_0:def 4;
A31: x0 in [.x,x0.] by A17,XXREAL_1:1;
    then x0 in dom f1 by A22;
    then
A32: x0 in dom ((f.x)(#)g) /\ dom ((g.x)(#)f) by VALUED_1:12;
    then
A33: x0 in dom ((f.x)(#)g) by XBOOLE_0:def 4;
A34: x in dom ((g.x)(#)f) by A29,XBOOLE_0:def 4;
A35: f1.x = ((f.x)(#)g).x - ((g.x)(#)f).x by A22,A28,VALUED_1:13
      .= (f.x)*(g.x) - ((g.x)(#)f).x by A30,VALUED_1:def 5
      .= (g.x)*(f.x) - (g.x)*(f.x) by A34,VALUED_1:def 5
      .= 0;
A36: x0 in dom ((g.x)(#)f) by A32,XBOOLE_0:def 4;
    not x in {x0} by A17,TARSKI:def 1;
    then
A37: x in [.x,x0.]\{x0} by A28,XBOOLE_0:def 5;
    N c= dom ((f.x)(#)g) by A2,VALUED_1:def 5;
    then
A38: ].x,x0.[ c= dom ((f.x)(#)g) by A27;
    N c= dom ((g.x)(#)f) by A1,VALUED_1:def 5;
    then
A39: ].x,x0.[ c= dom ((g.x)(#)f) by A27;
    then ].x,x0.[ c= dom ((f.x)(#)g) /\ dom ((g.x)(#)f) by A38,XBOOLE_1:19;
    then
A40: ].x,x0.[ c= dom ((f.x)(#)g - (g.x)(#)f) by VALUED_1:12;
    f is_differentiable_on ].x,x0.[ by A3,A20,A26,FDIFF_1:26,XBOOLE_1:1;
    then
A41: (g.x)(#)f is_differentiable_on ].x,x0.[ by A39,FDIFF_1:20;
    g is_differentiable_on ].x,x0.[ by A4,A20,A26,FDIFF_1:26,XBOOLE_1:1;
    then
A42: (f.x)(#)g is_differentiable_on ].x,x0.[ by A38,FDIFF_1:20;
    f1.x0 = ((f.x)(#)g).x0 - ((g.x)(#)f).x0 by A22,A31,VALUED_1:13
      .= (f.x)*(g.x0) - ((g.x)(#)f).x0 by A33,VALUED_1:def 5
      .= 0 - (g.x)*0 by A7,A36,VALUED_1:def 5
      .= 0;
    then consider t such that
A43: t in ].x,x0.[ and
A44: diff(f1,t)=0 by A17,A25,A41,A40,A42,A22,A35,FDIFF_1:19,ROLLE:1;
A45: (g.x)(#)f is_differentiable_in t by A41,A43,FDIFF_1:9;
A46: f is_differentiable_in t by A3,A27,A43,FDIFF_1:9;
    (f.x)(#)g is_differentiable_in t by A42,A43,FDIFF_1:9;
    then 0=diff((f.x)(#)g,t) - diff((g.x)(#)f,t) by A44,A45,FDIFF_1:14;
    then
A47: 0=diff((f.x)(#)g,t) - (g.x)*diff(f,t) by A46,FDIFF_1:15;
    take t;
A48: t in [.x,x0.] by A26,A43;
    [.x,x0.]\{x0} c= N\{x0} by A20,XBOOLE_1:33;
    then
A49: [.x,x0.]\{x0} c= dom(f/g) by A5;
    then [.x,x0.]\{x0} c= dom f /\ (dom g\g"{0}) by RFUNCT_1:def 1;
    then [.x,x0.]\{x0} c= dom g\g"{0} by A15;
    then
A50: x in dom g & not x in g"{0} by A37,XBOOLE_0:def 5;
A51: now
      assume g.x=0;
      then g.x in {0} by TARSKI:def 1;
      hence contradiction by A50,FUNCT_1:def 7;
    end;
A52: [.x,x0.] c= dom ((f`|N)/(g`|N)) by A6,A20;
    then [.x,x0.] c= dom (f`|N) /\ (dom (g`|N)\(g`|N)"{0}) by RFUNCT_1:def 1;
    then [.x,x0.] c= dom (g`|N)\(g`|N)"{0} by A14;
    then
A53: t in dom (g`|N) & not t in (g`|N)"{0} by A48,XBOOLE_0:def 5;
A54: now
      assume diff(g,t)=0;
      then (g`|N).t=0 by A4,A20,A48,FDIFF_1:def 7;
      then (g`|N).t in {0} by TARSKI:def 1;
      hence contradiction by A53,FUNCT_1:def 7;
    end;
    g is_differentiable_in t by A4,A27,A43,FDIFF_1:9;
    then 0=(f.x)*diff(g,t) - (g.x)*diff(f,t) by A47,FDIFF_1:15;
    then (f.x)/(g.x) = diff(f,t)/diff(g,t) by A51,A54,XCMPLX_1:94;
    then (f.x)*(g.x)" = diff(f,t)/diff(g,t) by XCMPLX_0:def 9;
    then (f.x)*(g.x)" = diff(f,t)*diff(g,t)" by XCMPLX_0:def 9;
    then (f/g).x = diff(f,t)*diff(g,t)" by A49,A37,RFUNCT_1:def 1;
    then (f/g).x = ((f`|N).t)*diff(g,t)" by A3,A20,A48,FDIFF_1:def 7;
    then (f/g).x = ((f`|N).t)*((g`|N).t)" by A4,A20,A48,FDIFF_1:def 7;
    hence thesis by A43,A52,A48,RFUNCT_1:def 1;
  end;
A55: for a st a is convergent & lim a = x0 & rng a c= dom (f/g) /\
  left_open_halfline(x0) holds (f/g)/*a is divergent_to-infty
  proof
    reconsider xx0 = x0 as Element of REAL by XREAL_0:def 1;
    set d = seq_const x0;
    let a;
    assume that
A56: a is convergent and
A57: lim a = x0 and
A58: rng a c= dom (f/g) /\ left_open_halfline(x0);
    consider k such that
A59: for n st k<=n holds x0-r<a.n & a.n<x0+r by A9,A56,A57,LIMFUNC3:7;
    set a1 = a^\k;
    defpred X[Element of NAT,Real] means $2 in ].a1.$1,x0.[ & (((f/g)/*
    a)^\k).$1=((f`|N)/(g`|N)).$2;
A60: now
      let n;
      a.(n+k) in rng a by VALUED_0:28;
      then a.(n+k) in left_open_halfline(x0) by A58,XBOOLE_0:def 4;
      then a.(n+k) in {g1:g1<x0} by XXREAL_1:229;
      then ex g1 st a.(n+k)=g1 & g1<x0;
      hence a1.n<x0 by NAT_1:def 3;
      a1.n = a.(n+k) & k<=n+k by NAT_1:12,def 3;
      hence x0-r<a1.n by A59;
    end;
A61: for n ex c be Element of REAL st X[n,c]
    proof
      let n;
A62:  rng a1 c= rng a by VALUED_0:21;
      x0-r<a1.n & a1.n<x0 by A60;
      then consider c such that
A63:  c in ].a1.n,x0.[ and
A64:  (f/g).(a1.n)=((f`|N)/(g`|N)).c by A11;
      take c;
A65:  dom (f/g) /\ left_open_halfline(x0) c= dom (f/g) by XBOOLE_1:17;
      then rng a c= dom (f/g) by A58;
      then ((f/g)/*(a^\k)).n=((f`|N)/(g`|N)).c by A64,A62,FUNCT_2:108
,XBOOLE_1:1;
      hence thesis by A58,A63,A65,VALUED_0:27,XBOOLE_1:1;
    end;
    consider b such that
A66: for n holds X[n,b.n] from FUNCT_2:sch 3(A61);
A67: now
      let n be Nat;
A68:    n in NAT by ORDINAL1:def 12;
      b.n in ].a1.n,x0.[ by A66,A68;
      then b.n in {g1:a1.n<g1 & g1<x0} by RCOMP_1:def 2;
      then ex g1 st g1=b.n & a1.n<g1 & g1<x0;
      hence a1.n<=b.n & b.n<= d.n by SEQ_1:57;
    end;
A69: lim d=d.0 by SEQ_4:26
      .=x0 by SEQ_1:57;
A70: x0<x0+r by A9,XREAL_1:29;
    x0-r<x0 by A9,XREAL_1:44;
    then x0 in {g2: x0-r<g2 & g2<x0+r} by A70;
    then
A71: x0 in ].x0-r,x0+r.[ by RCOMP_1:def 2;
A72: rng b c= dom ((f`|N)/(g`|N)) \{x0}
    proof
      let x be object;
      assume x in rng b;
      then consider n such that
A73:  x=b.n by FUNCT_2:113;
      a1.n<x0 by A60;
      then
A74:  a1.n<x0+r by A70,XXREAL_0:2;
      x0-r<a1.n by A60;
      then a1.n in {g3: x0-r<g3 & g3<x0+r} by A74;
      then a1.n in ].x0-r,x0+r.[ by RCOMP_1:def 2;
      then ].a1.n,x0.[ c= [.a1.n,x0.] & [.a1.n,x0.] c= ].x0-r,x0+r.[ by A71,
XXREAL_1:25,XXREAL_2:def 12;
      then ].a1.n,x0.[ c= ].x0-r,x0+r.[;
      then
A75:  ].a1.n,x0.[ c= dom ((f`|N)/(g`|N)) by A6,A10;
A76:  x in ].a1.n,x0.[ by A66,A73;
      then x in {g1:a1.n<g1 & g1<x0} by RCOMP_1:def 2;
      then ex g1 st g1 = x & a1.n<g1 & g1<x0;
      then not x in {x0} by TARSKI:def 1;
      hence thesis by A76,A75,XBOOLE_0:def 5;
    end;
A77: dom ((f`|N)/(g`|N)) \{x0} c= dom ((f`|N)/(g`|N)) by XBOOLE_1:36;
A78: now
      let n be Nat;
A79:    n in NAT by ORDINAL1:def 12;
      (((f/g)/*a)^\k).n=((f`|N)/(g`|N)).(b.n) by A66,A79;
      hence (((f/g)/*a)^\k).n <= (((f`|N)/(g`|N))/*b).n by A72,A77,FUNCT_2:108
,XBOOLE_1:1,A79;
    end;
    lim a1=x0 by A56,A57,SEQ_4:20;
    then b is convergent & lim b=x0 by A56,A69,A67,SEQ_2:19,20;
    then ((f`|N)/(g`|N))/*b is divergent_to-infty by A8,A72,LIMFUNC3:def 3;
    then ((f/g)/*a)^\k is divergent_to-infty by A78,LIMFUNC1:43;
    hence thesis by LIMFUNC1:7;
  end;
A80: for r1,r2 st r1<x0 & x0<r2 ex g1,g2 st r1<g1 & g1<x0 & g1 in dom (f/g)
  & g2<r2 & x0<g2 & g2 in dom (f/g) by A5,Th4;
  then for r1 st r1<x0 ex t st r1<t & t<x0 & t in dom (f/g) by LIMFUNC3:8;
  then
A81: f/g is_left_divergent_to-infty_in x0 by A55,LIMFUNC2:def 3;
A82: for x st x0<x & x<x0+r ex c st c in ].x0,x.[ & (f/g).x=((f`|N)/(g`|N)). c
  proof
A83: dom (f`|N) /\ (dom (g`|N) \ (g`|N)"{0}) c= dom (g`|N)\(g`|N)"{0} by
XBOOLE_1:17;
A84: x0-r<x0 by A9,XREAL_1:44;
    x0+0<x0+r by A9,XREAL_1:8;
    then x0 in {g1: x0-r<g1 & g1<x0+r} by A84;
    then
A85: x0 in ].x0-r,x0+r.[ by RCOMP_1:def 2;
    let x such that
A86: x0<x and
A87: x<x0+r;
    x0-r<x by A86,A84,XXREAL_0:2;
    then x in {g1: x0-r<g1 & g1<x0+r} by A87;
    then x in ].x0-r,x0+r.[ by RCOMP_1:def 2;
    then
A88: [.x0,x.] c= N by A10,A85,XXREAL_2:def 12;
    then
A89: [.x0,x.] c= dom f & [.x0,x.] c= dom g by A1,A2;
    g|N is continuous by A4,FDIFF_1:25;
    then g|[.x0,x.] is continuous by A88,FCONT_1:16;
    then
A90: ((f.x)(#)g)|[.x0,x.] is continuous by A2,A88,FCONT_1:20,XBOOLE_1:1;
    f|N is continuous by A3,FDIFF_1:25;
    then f|[.x0,x.] is continuous by A88,FCONT_1:16;
    then
A91: ((g.x)(#)f)|[.x0,x.] is continuous by A1,A88,FCONT_1:20,XBOOLE_1:1;
A92: dom((f.x)(#)g) = dom g & dom((g.x)(#)f) = dom f by VALUED_1:def 5;
    then
A93: dom((f.x)(#)g - (g.x)(#)f) = dom f /\ dom g by VALUED_1:12;
    then [.x0,x.] c= dom((f.x)(#)g - (g.x)(#)f) by A89,XBOOLE_1:19;
    then
A94: ((f.x)(#)g - (g.x)(#)f)|[.x0,x.] is continuous by A92,A93,A91,A90,
FCONT_1:18;
A95: ].x0,x.[ c= [.x0,x.] by XXREAL_1:25;
    then
A96: ].x0,x.[ c= N by A88;
    N c= dom ((f.x)(#)g) by A2,VALUED_1:def 5;
    then
A97: ].x0,x.[ c= dom ((f.x)(#)g) by A96;
    g is_differentiable_on ].x0,x.[ by A4,A88,A95,FDIFF_1:26,XBOOLE_1:1;
    then
A98: (f.x)(#)g is_differentiable_on ].x0,x.[ by A97,FDIFF_1:20;
    N c= dom ((g.x)(#)f) by A1,VALUED_1:def 5;
    then
A99: ].x0,x.[ c= dom ((g.x)(#)f) by A96;
    then ].x0,x.[ c= dom ((f.x)(#)g) /\ dom ((g.x)(#)f) by A97,XBOOLE_1:19;
    then
A100: ].x0,x.[ c= dom ((f.x)(#)g - (g.x)(#)f) by VALUED_1:12;
    f is_differentiable_on ].x0,x.[ by A3,A88,A95,FDIFF_1:26,XBOOLE_1:1;
    then
A101: (g.x)(#)f is_differentiable_on ].x0,x.[ by A99,FDIFF_1:20;
    set f1 = (f.x)(#)g - (g.x)(#)f;
A102: dom f /\ (dom g\g"{0}) c= dom g\g"{0} by XBOOLE_1:17;
    dom((f.x)(#)g) = dom g & dom((g.x)(#)f) = dom f by VALUED_1:def 5;
    then dom((f.x)(#)g - (g.x)(#)f) = dom f /\ dom g by VALUED_1:12;
    then
A103: [.x0,x.] c= dom f1 by A89,XBOOLE_1:19;
A104: x in [.x0,x.] by A86,XXREAL_1:1;
    then x in dom f1 by A103;
    then
A105: x in dom ((f.x)(#)g) /\ dom ((g.x) (#)f) by VALUED_1:12;
    then
A106: x in dom ((f.x) (#)g) by XBOOLE_0:def 4;
A107: x0 in [.x0,x.] by A86,XXREAL_1:1;
    then x0 in dom f1 by A103;
    then
A108: x0 in dom ((f.x)(#)g) /\ dom ((g.x)(#)f) by VALUED_1:12;
    then
A109: x0 in dom ((f.x)(#)g) by XBOOLE_0:def 4;
A110: x in dom ((g.x)(#)f) by A105,XBOOLE_0:def 4;
A111: f1.x = ((f.x)(#)g).x - ((g.x)(#)f).x by A103,A104,VALUED_1:13
      .= (f.x)*(g.x) - ((g.x)(#)f).x by A106,VALUED_1:def 5
      .= (g.x)*(f.x) - (g.x)*(f.x) by A110,VALUED_1:def 5
      .= 0;
A112: x0 in dom ((g.x)(#)f) by A108,XBOOLE_0:def 4;
    not x in {x0} by A86,TARSKI:def 1;
    then
A113: x in [.x0,x.]\{x0} by A104,XBOOLE_0:def 5;
    f1.x0 = ((f.x)(#)g).x0 - ((g.x)(#)f).x0 by A103,A107,VALUED_1:13
      .= (f.x)*(g.x0) - ((g.x)(#)f).x0 by A109,VALUED_1:def 5
      .= 0 - (g.x)*0 by A7,A112,VALUED_1:def 5
      .= 0;
    then consider t such that
A114: t in ].x0,x.[ and
A115: diff(f1,t)=0 by A86,A94,A101,A100,A98,A103,A111,FDIFF_1:19,ROLLE:1;
A116: (g.x)(#)f is_differentiable_in t by A101,A114,FDIFF_1:9;
A117: f is_differentiable_in t by A3,A96,A114,FDIFF_1:9;
    (f.x)(#)g is_differentiable_in t by A98,A114,FDIFF_1:9;
    then 0=diff((f.x)(#)g,t) - diff((g.x)(#)f,t) by A115,A116,FDIFF_1:14;
    then
A118: 0=diff((f.x)(#)g,t) - (g.x)*diff(f,t) by A117,FDIFF_1:15;
    take t;
A119: t in [.x0,x.] by A95,A114;
    [.x0,x.]\{x0} c= N\{x0} by A88,XBOOLE_1:33;
    then
A120: [.x0,x.]\{x0} c= dom(f/g) by A5;
    then [.x0,x.]\{x0} c= dom f /\ (dom g\g"{0}) by RFUNCT_1:def 1;
    then [.x0,x.]\{x0} c= dom g\g"{0} by A102;
    then
A121: x in dom g & not x in g"{0} by A113,XBOOLE_0:def 5;
A122: now
      assume g.x=0;
      then g.x in {0} by TARSKI:def 1;
      hence contradiction by A121,FUNCT_1:def 7;
    end;
A123: [.x0,x.] c= dom ((f`|N)/(g`|N)) by A6,A88;
    then [.x0,x.] c= dom (f`|N) /\ (dom (g`|N)\(g`|N)"{0}) by RFUNCT_1:def 1;
    then [.x0,x.] c= dom (g`|N)\(g`|N)"{0} by A83;
    then
A124: t in dom (g`|N) & not t in (g`|N)"{0} by A119,XBOOLE_0:def 5;
A125: now
      assume diff(g,t)=0;
      then (g`|N).t=0 by A4,A88,A119,FDIFF_1:def 7;
      then (g`|N).t in {0} by TARSKI:def 1;
      hence contradiction by A124,FUNCT_1:def 7;
    end;
    g is_differentiable_in t by A4,A96,A114,FDIFF_1:9;
    then 0=(f.x)*diff(g,t) - (g.x)*diff(f,t) by A118,FDIFF_1:15;
    then (f.x)/(g.x) = diff(f,t)/diff(g,t) by A122,A125,XCMPLX_1:94;
    then (f.x)*(g.x)" = diff(f,t)/diff(g,t) by XCMPLX_0:def 9;
    then (f.x)*(g.x)" = diff(f,t)*diff(g,t)" by XCMPLX_0:def 9;
    then (f/g).x = diff(f,t)*diff(g,t)" by A120,A113,RFUNCT_1:def 1;
    then (f/g).x = ((f`|N).t)*diff(g,t)" by A3,A88,A119,FDIFF_1:def 7;
    then (f/g).x = ((f`|N).t)*((g`|N).t)" by A4,A88,A119,FDIFF_1:def 7;
    hence thesis by A114,A123,A119,RFUNCT_1:def 1;
  end;
A126: for a st a is convergent & lim a = x0 & rng a c= dom (f/g) /\
  right_open_halfline(x0) holds (f/g)/*a is divergent_to-infty
  proof
    reconsider xx0 = x0 as Element of REAL by XREAL_0:def 1;
    set d = seq_const x0;
    let a;
    assume that
A127: a is convergent and
A128: lim a = x0 and
A129: rng a c= dom (f/g) /\ right_open_halfline(x0);
    consider k such that
A130: for n st k<=n holds x0-r<a.n & a.n<x0+r by A9,A127,A128,LIMFUNC3:7;
    set a1 = a^\k;
    defpred X[Element of NAT,Real] means $2 in ].x0,a1.$1.[ & (((f/g)/*
    a)^\k).$1=((f`|N)/(g`|N)).$2;
A131: now
      let n;
      a.(n+k) in rng a by VALUED_0:28;
      then a.(n+k) in right_open_halfline(x0) by A129,XBOOLE_0:def 4;
      then a.(n+k) in {g1:x0<g1} by XXREAL_1:230;
      then ex g1 st a.(n+k)=g1 & x0<g1;
      hence x0<a1.n by NAT_1:def 3;
      a1.n = a.(n+k) & k<=n+k by NAT_1:12,def 3;
      hence a1.n<x0+r by A130;
    end;
A132: for n ex c be Element of REAL st X[n,c]
    proof
      let n;
A133: rng a1 c= rng a by VALUED_0:21;
      x0<a1.n & a1.n<x0+r by A131;
      then consider c such that
A134: c in ].x0,a1.n.[ and
A135: (f/g).(a1.n)=((f`|N)/(g`|N)).c by A82;
      take c;
A136: dom (f/g) /\ right_open_halfline(x0) c= dom (f/g) by XBOOLE_1:17;
      then rng a c= dom (f/g) by A129;
      then ((f/g)/*(a^\k)).n=((f`|N)/(g`|N)).c by A135,A133,FUNCT_2:108
,XBOOLE_1:1;
      hence thesis by A129,A134,A136,VALUED_0:27,XBOOLE_1:1;
    end;
    consider b such that
A137: for n holds X[n,b.n] from FUNCT_2:sch 3(A132);
A138: now
      let n be Nat;
A139:    n in NAT by ORDINAL1:def 12;
      b.n in ].x0,a1.n.[ by A137,A139;
      then b.n in {g1:x0<g1 & g1<a1.n} by RCOMP_1:def 2;
      then ex g1 st g1=b.n & x0<g1 & g1<a1.n;
      hence d.n<=b.n & b.n<=a1.n by SEQ_1:57;
    end;
A140: lim d=d.0 by SEQ_4:26
      .=x0 by SEQ_1:57;
A141: x0-r<x0 by A9,XREAL_1:44;
    x0<x0+r by A9,XREAL_1:29;
    then x0 in {g2: x0-r<g2 & g2<x0+r} by A141;
    then
A142: x0 in ].x0-r,x0+r.[ by RCOMP_1:def 2;
A143: rng b c= dom ((f`|N)/(g`|N)) \{x0}
    proof
      let x be object;
      assume x in rng b;
      then consider n such that
A144: x=b.n by FUNCT_2:113;
      x0<a1.n by A131;
      then
A145: x0-r<a1.n by A141,XXREAL_0:2;
      a1.n<x0+r by A131;
      then a1.n in {g3: x0-r<g3 & g3<x0+r} by A145;
      then a1.n in ].x0-r,x0+r.[ by RCOMP_1:def 2;
      then ].x0,a1.n.[ c= [.x0,a1.n.] & [.x0,a1.n.] c= ].x0-r,x0+r.[ by A142,
XXREAL_1:25,XXREAL_2:def 12;
      then ].x0,a1.n.[ c= ].x0-r,x0+r.[;
      then
A146: ].x0,a1.n.[ c= dom ((f`|N)/(g`|N)) by A6,A10;
A147: x in ].x0,a1.n.[ by A137,A144;
      then x in {g1:x0<g1 & g1<a1.n} by RCOMP_1:def 2;
      then ex g1 st g1 = x & x0<g1 & g1<a1.n;
      then not x in {x0} by TARSKI:def 1;
      hence thesis by A147,A146,XBOOLE_0:def 5;
    end;
A148: dom ((f`|N)/(g`|N)) \{x0} c= dom ((f`|N)/(g`|N)) by XBOOLE_1:36;
A149: now
      let n be Nat;
A150:    n in NAT by ORDINAL1:def 12;
      (((f/g)/*a)^\k).n=((f`|N)/(g`|N)).(b.n) by A137,A150;
      hence (((f/g)/*a)^\k).n <= (((f`|N)/(g`|N))/*b).n by A143,A148,
FUNCT_2:108,XBOOLE_1:1,A150;
    end;
    lim a1=x0 by A127,A128,SEQ_4:20;
    then b is convergent & lim b=x0 by A127,A140,A138,SEQ_2:19,20;
    then ((f`|N)/(g`|N))/*b is divergent_to-infty by A8,A143,LIMFUNC3:def 3;
    then ((f/g)/*a)^\k is divergent_to-infty by A149,LIMFUNC1:43;
    hence thesis by LIMFUNC1:7;
  end;
  for r1 st x0<r1 ex t st t<r1 & x0<t & t in dom (f/g) by A80,LIMFUNC3:8;
  then f/g is_right_divergent_to-infty_in x0 by A126,LIMFUNC2:def 6;
  hence thesis by A81,LIMFUNC3:13;
end;
