Metamath Proof Explorer


Theorem itscnhlinecirc02plem2

Description: Lemma 2 for itscnhlinecirc02p . (Contributed by AV, 10-Mar-2023)

Ref Expression
Hypotheses itscnhlinecirc02plem2.d D=XA
itscnhlinecirc02plem2.e E=BY
itscnhlinecirc02plem2.c C=BXAY
Assertion itscnhlinecirc02plem2 ABXYBYRA2+B2<R20<2DC24E2+D2C2E2R2

Proof

Step Hyp Ref Expression
1 itscnhlinecirc02plem2.d D=XA
2 itscnhlinecirc02plem2.e E=BY
3 itscnhlinecirc02plem2.c C=BXAY
4 simpl1l ABXYBYRA2+B2<R2A
5 simpl1r ABXYBYRA2+B2<R2B
6 simpl2l ABXYBYRA2+B2<R2X
7 simpl2r ABXYBYRA2+B2<R2Y
8 eqid DB+EA=DB+EA
9 simprl ABXYBYRA2+B2<R2R
10 simprr ABXYBYRA2+B2<R2A2+B2<R2
11 simpl3 ABXYBYRA2+B2<R2BY
12 4 5 6 7 1 2 8 9 10 11 itscnhlinecirc02plem1 ABXYBYRA2+B2<R20<2DDB+EA24E2+D2DB+EA2E2R2
13 simplr ABXYB
14 13 recnd ABXYB
15 simprl ABXYX
16 15 recnd ABXYX
17 14 16 mulcomd ABXYBX=XB
18 simpll ABXYA
19 18 recnd ABXYA
20 simprr ABXYY
21 20 recnd ABXYY
22 19 21 mulcomd ABXYAY=YA
23 17 22 oveq12d ABXYBXAY=XBYA
24 16 19 14 subdird ABXYXAB=XBAB
25 14 21 19 subdird ABXYBYA=BAYA
26 24 25 oveq12d ABXYXAB+BYA=XBAB+BA-YA
27 14 19 mulcomd ABXYBA=AB
28 27 oveq1d ABXYBAYA=ABYA
29 28 oveq2d ABXYXBAB+BA-YA=XBAB+AB-YA
30 16 14 mulcld ABXYXB
31 19 14 mulcld ABXYAB
32 21 19 mulcld ABXYYA
33 30 31 32 npncand ABXYXBAB+AB-YA=XBYA
34 26 29 33 3eqtrd ABXYXAB+BYA=XBYA
35 23 34 eqtr4d ABXYBXAY=XAB+BYA
36 1 oveq1i DB=XAB
37 2 oveq1i EA=BYA
38 36 37 oveq12i DB+EA=XAB+BYA
39 35 3 38 3eqtr4g ABXYC=DB+EA
40 39 oveq2d ABXYDC=DDB+EA
41 40 oveq2d ABXY2DC=2DDB+EA
42 41 negeqd ABXY2DC=2DDB+EA
43 42 oveq1d ABXY2DC2=2DDB+EA2
44 39 oveq1d ABXYC2=DB+EA2
45 44 oveq1d ABXYC2E2R2=DB+EA2E2R2
46 45 oveq2d ABXYE2+D2C2E2R2=E2+D2DB+EA2E2R2
47 46 oveq2d ABXY4E2+D2C2E2R2=4E2+D2DB+EA2E2R2
48 43 47 oveq12d ABXY2DC24E2+D2C2E2R2=2DDB+EA24E2+D2DB+EA2E2R2
49 48 3adant3 ABXYBY2DC24E2+D2C2E2R2=2DDB+EA24E2+D2DB+EA2E2R2
50 49 adantr ABXYBYRA2+B2<R22DC24E2+D2C2E2R2=2DDB+EA24E2+D2DB+EA2E2R2
51 12 50 breqtrrd ABXYBYRA2+B2<R20<2DC24E2+D2C2E2R2