Metamath Proof Explorer


Theorem 2sqlem6

Description: Lemma for 2sq . If a number that is a sum of two squares is divisible by a number whose prime divisors are all sums of two squares, then the quotient is a sum of two squares. (Contributed by Mario Carneiro, 20-Jun-2015)

Ref Expression
Hypotheses 2sq.1 S = ran w i w 2
2sqlem6.1 φ A
2sqlem6.2 φ B
2sqlem6.3 φ p p B p S
2sqlem6.4 φ A B S
Assertion 2sqlem6 φ A S

Proof

Step Hyp Ref Expression
1 2sq.1 S = ran w i w 2
2 2sqlem6.1 φ A
3 2sqlem6.2 φ B
4 2sqlem6.3 φ p p B p S
5 2sqlem6.4 φ A B S
6 breq2 x = 1 p x p 1
7 6 imbi1d x = 1 p x p S p 1 p S
8 7 ralbidv x = 1 p p x p S p p 1 p S
9 oveq2 x = 1 m x = m 1
10 9 eleq1d x = 1 m x S m 1 S
11 10 imbi1d x = 1 m x S m S m 1 S m S
12 11 ralbidv x = 1 m m x S m S m m 1 S m S
13 8 12 imbi12d x = 1 p p x p S m m x S m S p p 1 p S m m 1 S m S
14 breq2 x = y p x p y
15 14 imbi1d x = y p x p S p y p S
16 15 ralbidv x = y p p x p S p p y p S
17 oveq2 x = y m x = m y
18 17 eleq1d x = y m x S m y S
19 18 imbi1d x = y m x S m S m y S m S
20 19 ralbidv x = y m m x S m S m m y S m S
21 16 20 imbi12d x = y p p x p S m m x S m S p p y p S m m y S m S
22 breq2 x = z p x p z
23 22 imbi1d x = z p x p S p z p S
24 23 ralbidv x = z p p x p S p p z p S
25 oveq2 x = z m x = m z
26 25 eleq1d x = z m x S m z S
27 26 imbi1d x = z m x S m S m z S m S
28 27 ralbidv x = z m m x S m S m m z S m S
29 24 28 imbi12d x = z p p x p S m m x S m S p p z p S m m z S m S
30 breq2 x = y z p x p y z
31 30 imbi1d x = y z p x p S p y z p S
32 31 ralbidv x = y z p p x p S p p y z p S
33 oveq2 x = y z m x = m y z
34 33 eleq1d x = y z m x S m y z S
35 34 imbi1d x = y z m x S m S m y z S m S
36 35 ralbidv x = y z m m x S m S m m y z S m S
37 32 36 imbi12d x = y z p p x p S m m x S m S p p y z p S m m y z S m S
38 breq2 x = B p x p B
39 38 imbi1d x = B p x p S p B p S
40 39 ralbidv x = B p p x p S p p B p S
41 oveq2 x = B m x = m B
42 41 eleq1d x = B m x S m B S
43 42 imbi1d x = B m x S m S m B S m S
44 43 ralbidv x = B m m x S m S m m B S m S
45 40 44 imbi12d x = B p p x p S m m x S m S p p B p S m m B S m S
46 nncn m m
47 46 mulid1d m m 1 = m
48 47 eleq1d m m 1 S m S
49 48 biimpd m m 1 S m S
50 49 rgen m m 1 S m S
51 50 a1i p p 1 p S m m 1 S m S
52 breq1 p = x p x x x
53 eleq1 p = x p S x S
54 52 53 imbi12d p = x p x p S x x x S
55 54 rspcv x p p x p S x x x S
56 prmz x x
57 iddvds x x x
58 56 57 syl x x x
59 simprl x x S m m x S m
60 simpll x x S m m x S x
61 simprr x x S m m x S m x S
62 simplr x x S m m x S x S
63 1 59 60 61 62 2sqlem5 x x S m m x S m S
64 63 expr x x S m m x S m S
65 64 ralrimiva x x S m m x S m S
66 65 ex x x S m m x S m S
67 58 66 embantd x x x x S m m x S m S
68 55 67 syld x p p x p S m m x S m S
69 anim12 p p y p S m m y S m S p p z p S m m z S m S p p y p S p p z p S m m y S m S m m z S m S
70 simpr y 2 z 2 p p
71 eluzelz y 2 y
72 71 ad2antrr y 2 z 2 p y
73 eluzelz z 2 z
74 73 ad2antlr y 2 z 2 p z
75 euclemma p y z p y z p y p z
76 70 72 74 75 syl3anc y 2 z 2 p p y z p y p z
77 76 imbi1d y 2 z 2 p p y z p S p y p z p S
78 jaob p y p z p S p y p S p z p S
79 77 78 bitrdi y 2 z 2 p p y z p S p y p S p z p S
80 79 ralbidva y 2 z 2 p p y z p S p p y p S p z p S
81 r19.26 p p y p S p z p S p p y p S p p z p S
82 80 81 bitrdi y 2 z 2 p p y z p S p p y p S p p z p S
83 82 biimpa y 2 z 2 p p y z p S p p y p S p p z p S
84 oveq1 m = n m y = n y
85 84 eleq1d m = n m y S n y S
86 eleq1 m = n m S n S
87 85 86 imbi12d m = n m y S m S n y S n S
88 87 cbvralvw m m y S m S n n y S n S
89 46 adantl y 2 z 2 p p y z p S n n y S n S m m
90 uzssz 2
91 zsscn
92 90 91 sstri 2
93 simpll y 2 z 2 p p y z p S y 2
94 93 ad2antrr y 2 z 2 p p y z p S n n y S n S m y 2
95 92 94 sseldi y 2 z 2 p p y z p S n n y S n S m y
96 simplr y 2 z 2 p p y z p S z 2
97 96 ad2antrr y 2 z 2 p p y z p S n n y S n S m z 2
98 92 97 sseldi y 2 z 2 p p y z p S n n y S n S m z
99 mul32 m y z m y z = m z y
100 mulass m y z m y z = m y z
101 99 100 eqtr3d m y z m z y = m y z
102 89 95 98 101 syl3anc y 2 z 2 p p y z p S n n y S n S m m z y = m y z
103 102 eleq1d y 2 z 2 p p y z p S n n y S n S m m z y S m y z S
104 simpr y 2 z 2 p p y z p S n n y S n S m m
105 eluz2nn z 2 z
106 97 105 syl y 2 z 2 p p y z p S n n y S n S m z
107 104 106 nnmulcld y 2 z 2 p p y z p S n n y S n S m m z
108 simplr y 2 z 2 p p y z p S n n y S n S m n n y S n S
109 oveq1 n = m z n y = m z y
110 109 eleq1d n = m z n y S m z y S
111 eleq1 n = m z n S m z S
112 110 111 imbi12d n = m z n y S n S m z y S m z S
113 112 rspcv m z n n y S n S m z y S m z S
114 107 108 113 sylc y 2 z 2 p p y z p S n n y S n S m m z y S m z S
115 103 114 sylbird y 2 z 2 p p y z p S n n y S n S m m y z S m z S
116 115 imim1d y 2 z 2 p p y z p S n n y S n S m m z S m S m y z S m S
117 116 ralimdva y 2 z 2 p p y z p S n n y S n S m m z S m S m m y z S m S
118 88 117 sylan2b y 2 z 2 p p y z p S m m y S m S m m z S m S m m y z S m S
119 118 expimpd y 2 z 2 p p y z p S m m y S m S m m z S m S m m y z S m S
120 83 119 embantd y 2 z 2 p p y z p S p p y p S p p z p S m m y S m S m m z S m S m m y z S m S
121 120 ex y 2 z 2 p p y z p S p p y p S p p z p S m m y S m S m m z S m S m m y z S m S
122 121 com23 y 2 z 2 p p y p S p p z p S m m y S m S m m z S m S p p y z p S m m y z S m S
123 69 122 syl5 y 2 z 2 p p y p S m m y S m S p p z p S m m z S m S p p y z p S m m y z S m S
124 13 21 29 37 45 51 68 123 prmind B p p B p S m m B S m S
125 3 4 124 sylc φ m m B S m S
126 oveq1 m = A m B = A B
127 126 eleq1d m = A m B S A B S
128 eleq1 m = A m S A S
129 127 128 imbi12d m = A m B S m S A B S A S
130 129 rspcv A m m B S m S A B S A S
131 2 125 5 130 syl3c φ A S