Metamath Proof Explorer


Theorem lnconi

Description: Lemma for lnopconi and lnfnconi . (Contributed by NM, 7-Feb-2006) (New usage is discouraged.)

Ref Expression
Hypotheses lncon.1 TCS
lncon.2 TCyNTySnormy
lncon.3 TCxz+y+wnormw-x<yNTwMTx<z
lncon.4 yNTy
lncon.5 wxTw-x=TwMTx
Assertion lnconi TCxyNTyxnormy

Proof

Step Hyp Ref Expression
1 lncon.1 TCS
2 lncon.2 TCyNTySnormy
3 lncon.3 TCxz+y+wnormw-x<yNTwMTx<z
4 lncon.4 yNTy
5 lncon.5 wxTw-x=TwMTx
6 2 ralrimiva TCyNTySnormy
7 oveq1 x=Sxnormy=Snormy
8 7 breq2d x=SNTyxnormyNTySnormy
9 8 ralbidv x=SyNTyxnormyyNTySnormy
10 9 rspcev SyNTySnormyxyNTyxnormy
11 1 6 10 syl2anc TCxyNTyxnormy
12 arch xnx<n
13 12 adantr xyNTyxnormynx<n
14 nnre nn
15 simplll xnx<nyx
16 simpllr xnx<nyn
17 normcl ynormy
18 17 adantl xnx<nynormy
19 normge0 y0normy
20 19 adantl xnx<ny0normy
21 ltle xnx<nxn
22 21 imp xnx<nxn
23 22 adantr xnx<nyxn
24 15 16 18 20 23 lemul1ad xnx<nyxnormynnormy
25 4 adantl xnx<nyNTy
26 simpll xnx<nx
27 remulcl xnormyxnormy
28 26 17 27 syl2an xnx<nyxnormy
29 simplr xnx<nn
30 remulcl nnormynnormy
31 29 17 30 syl2an xnx<nynnormy
32 letr NTyxnormynnormyNTyxnormyxnormynnormyNTynnormy
33 25 28 31 32 syl3anc xnx<nyNTyxnormyxnormynnormyNTynnormy
34 24 33 mpan2d xnx<nyNTyxnormyNTynnormy
35 34 ralimdva xnx<nyNTyxnormyyNTynnormy
36 35 impancom xnyNTyxnormyx<nyNTynnormy
37 36 an32s xyNTyxnormynx<nyNTynnormy
38 14 37 sylan2 xyNTyxnormynx<nyNTynnormy
39 38 reximdva xyNTyxnormynx<nnyNTynnormy
40 13 39 mpd xyNTyxnormynyNTynnormy
41 40 rexlimiva xyNTyxnormynyNTynnormy
42 simprr nyNTynnormyxz+z+
43 simpll nyNTynnormyxz+n
44 43 nnrpd nyNTynnormyxz+n+
45 42 44 rpdivcld nyNTynnormyxz+zn+
46 simprr nxz+ww
47 simprll nxz+wx
48 hvsubcl wxw-x
49 46 47 48 syl2anc nxz+ww-x
50 2fveq3 y=w-xNTy=NTw-x
51 fveq2 y=w-xnormy=normw-x
52 51 oveq2d y=w-xnnormy=nnormw-x
53 50 52 breq12d y=w-xNTynnormyNTw-xnnormw-x
54 53 rspcva w-xyNTynnormyNTw-xnnormw-x
55 49 54 sylan nxz+wyNTynnormyNTw-xnnormw-x
56 55 an32s nyNTynnormyxz+wNTw-xnnormw-x
57 50 eleq1d y=w-xNTyNTw-x
58 57 4 vtoclga w-xNTw-x
59 49 58 syl nxz+wNTw-x
60 14 adantr nxz+wn
61 normcl w-xnormw-x
62 49 61 syl nxz+wnormw-x
63 remulcl nnormw-xnnormw-x
64 60 62 63 syl2anc nxz+wnnormw-x
65 simprlr nxz+wz+
66 65 rpred nxz+wz
67 lelttr NTw-xnnormw-xzNTw-xnnormw-xnnormw-x<zNTw-x<z
68 59 64 66 67 syl3anc nxz+wNTw-xnnormw-xnnormw-x<zNTw-x<z
69 68 adantlr nyNTynnormyxz+wNTw-xnnormw-xnnormw-x<zNTw-x<z
70 56 69 mpand nyNTynnormyxz+wnnormw-x<zNTw-x<z
71 nnrp nn+
72 71 rpregt0d nn0<n
73 72 adantr nxz+wn0<n
74 ltmuldiv2 normw-xzn0<nnnormw-x<znormw-x<zn
75 62 66 73 74 syl3anc nxz+wnnormw-x<znormw-x<zn
76 75 adantlr nyNTynnormyxz+wnnormw-x<znormw-x<zn
77 46 47 5 syl2anc nxz+wTw-x=TwMTx
78 77 adantlr nyNTynnormyxz+wTw-x=TwMTx
79 78 fveq2d nyNTynnormyxz+wNTw-x=NTwMTx
80 79 breq1d nyNTynnormyxz+wNTw-x<zNTwMTx<z
81 70 76 80 3imtr3d nyNTynnormyxz+wnormw-x<znNTwMTx<z
82 81 anassrs nyNTynnormyxz+wnormw-x<znNTwMTx<z
83 82 ralrimiva nyNTynnormyxz+wnormw-x<znNTwMTx<z
84 breq2 y=znnormw-x<ynormw-x<zn
85 84 rspceaimv zn+wnormw-x<znNTwMTx<zy+wnormw-x<yNTwMTx<z
86 45 83 85 syl2anc nyNTynnormyxz+y+wnormw-x<yNTwMTx<z
87 86 ralrimivva nyNTynnormyxz+y+wnormw-x<yNTwMTx<z
88 87 rexlimiva nyNTynnormyxz+y+wnormw-x<yNTwMTx<z
89 88 3 sylibr nyNTynnormyTC
90 41 89 syl xyNTyxnormyTC
91 11 90 impbii TCxyNTyxnormy