Theorem rmxdioph 43040

Description: X is a Diophantine function. (Contributed by Stefan O'Rear, 17-Oct-2014.)

Assertion

Ref	Expression
rmxdioph	⊢ {𝑎 ∈ (ℕ0 ↑m (1...3)) ∣ ((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑎‘3) = ((𝑎‘1) Xrm (𝑎‘2)))} ∈ (Dioph‘3)

Proof of Theorem rmxdioph

Dummy variables 𝑏 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 484	. . . . . 6 ⊢ ((𝑎 ∈ (ℕ0 ↑m (1...3)) ∧ (𝑎‘1) ∈ (ℤ≥‘2)) → (𝑎‘1) ∈ (ℤ≥‘2))
2		elmapi 8863	. . . . . . . 8 ⊢ (𝑎 ∈ (ℕ0 ↑m (1...3)) → 𝑎:(1...3)⟶ℕ0)
3		df-3 12304	. . . . . . . . . 10 ⊢ 3 = (2 + 1)
4		ssid 3981	. . . . . . . . . 10 ⊢ (1...3) ⊆ (1...3)
5	3, 4	jm2.27dlem5 43037	. . . . . . . . 9 ⊢ (1...2) ⊆ (1...3)
6		2nn 12313	. . . . . . . . . 10 ⊢ 2 ∈ ℕ
7	6	jm2.27dlem3 43035	. . . . . . . . 9 ⊢ 2 ∈ (1...2)
8	5, 7	sselii 3955	. . . . . . . 8 ⊢ 2 ∈ (1...3)
9		ffvelcdm 7071	. . . . . . . 8 ⊢ ((𝑎:(1...3)⟶ℕ0 ∧ 2 ∈ (1...3)) → (𝑎‘2) ∈ ℕ0)
10	2, 8, 9	sylancl 586	. . . . . . 7 ⊢ (𝑎 ∈ (ℕ0 ↑m (1...3)) → (𝑎‘2) ∈ ℕ0)
11	10	adantr 480	. . . . . 6 ⊢ ((𝑎 ∈ (ℕ0 ↑m (1...3)) ∧ (𝑎‘1) ∈ (ℤ≥‘2)) → (𝑎‘2) ∈ ℕ0)
12		3nn 12319	. . . . . . . . 9 ⊢ 3 ∈ ℕ
13	12	jm2.27dlem3 43035	. . . . . . . 8 ⊢ 3 ∈ (1...3)
14		ffvelcdm 7071	. . . . . . . 8 ⊢ ((𝑎:(1...3)⟶ℕ0 ∧ 3 ∈ (1...3)) → (𝑎‘3) ∈ ℕ0)
15	2, 13, 14	sylancl 586	. . . . . . 7 ⊢ (𝑎 ∈ (ℕ0 ↑m (1...3)) → (𝑎‘3) ∈ ℕ0)
16	15	adantr 480	. . . . . 6 ⊢ ((𝑎 ∈ (ℕ0 ↑m (1...3)) ∧ (𝑎‘1) ∈ (ℤ≥‘2)) → (𝑎‘3) ∈ ℕ0)
17		rmxdiophlem 43039	. . . . . 6 ⊢ (((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑎‘2) ∈ ℕ0 ∧ (𝑎‘3) ∈ ℕ0) → ((𝑎‘3) = ((𝑎‘1) Xrm (𝑎‘2)) ↔ ∃𝑏 ∈ ℕ0 (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)))
18	1, 11, 16, 17	syl3anc 1373	. . . . 5 ⊢ ((𝑎 ∈ (ℕ0 ↑m (1...3)) ∧ (𝑎‘1) ∈ (ℤ≥‘2)) → ((𝑎‘3) = ((𝑎‘1) Xrm (𝑎‘2)) ↔ ∃𝑏 ∈ ℕ0 (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)))
19	18	pm5.32da 579	. . . 4 ⊢ (𝑎 ∈ (ℕ0 ↑m (1...3)) → (((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑎‘3) = ((𝑎‘1) Xrm (𝑎‘2))) ↔ ((𝑎‘1) ∈ (ℤ≥‘2) ∧ ∃𝑏 ∈ ℕ0 (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1))))
20		anass 468	. . . . . 6 ⊢ ((((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1) ↔ ((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)))
21	20	rexbii 3083	. . . . 5 ⊢ (∃𝑏 ∈ ℕ0 (((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1) ↔ ∃𝑏 ∈ ℕ0 ((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)))
22		r19.42v 3176	. . . . 5 ⊢ (∃𝑏 ∈ ℕ0 ((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)) ↔ ((𝑎‘1) ∈ (ℤ≥‘2) ∧ ∃𝑏 ∈ ℕ0 (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)))
23	21, 22	bitr2i 276	. . . 4 ⊢ (((𝑎‘1) ∈ (ℤ≥‘2) ∧ ∃𝑏 ∈ ℕ0 (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)) ↔ ∃𝑏 ∈ ℕ0 (((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1))
24	19, 23	bitrdi 287	. . 3 ⊢ (𝑎 ∈ (ℕ0 ↑m (1...3)) → (((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑎‘3) = ((𝑎‘1) Xrm (𝑎‘2))) ↔ ∃𝑏 ∈ ℕ0 (((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)))
25	24	rabbiia 3419	. 2 ⊢ {𝑎 ∈ (ℕ0 ↑m (1...3)) ∣ ((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑎‘3) = ((𝑎‘1) Xrm (𝑎‘2)))} = {𝑎 ∈ (ℕ0 ↑m (1...3)) ∣ ∃𝑏 ∈ ℕ0 (((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)}
26		3nn0 12519	. . 3 ⊢ 3 ∈ ℕ0
27		vex 3463	. . . . . . 7 ⊢ 𝑐 ∈ V
28	27	resex 6016	. . . . . 6 ⊢ (𝑐 ↾ (1...3)) ∈ V
29		fvex 6889	. . . . . 6 ⊢ (𝑐‘4) ∈ V
30		df-2 12303	. . . . . . . . . . . . 13 ⊢ 2 = (1 + 1)
31	30, 5	jm2.27dlem5 43037	. . . . . . . . . . . 12 ⊢ (1...1) ⊆ (1...3)
32		1nn 12251	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℕ
33	32	jm2.27dlem3 43035	. . . . . . . . . . . 12 ⊢ 1 ∈ (1...1)
34	31, 33	sselii 3955	. . . . . . . . . . 11 ⊢ 1 ∈ (1...3)
35	34	jm2.27dlem1 43033	. . . . . . . . . 10 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → (𝑎‘1) = (𝑐‘1))
36	35	eleq1d 2819	. . . . . . . . 9 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → ((𝑎‘1) ∈ (ℤ≥‘2) ↔ (𝑐‘1) ∈ (ℤ≥‘2)))
37	36	adantr 480	. . . . . . . 8 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → ((𝑎‘1) ∈ (ℤ≥‘2) ↔ (𝑐‘1) ∈ (ℤ≥‘2)))
38		simpr 484	. . . . . . . . 9 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → 𝑏 = (𝑐‘4))
39	8	jm2.27dlem1 43033	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → (𝑎‘2) = (𝑐‘2))
40	35, 39	oveq12d 7423	. . . . . . . . . 10 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → ((𝑎‘1) Yrm (𝑎‘2)) = ((𝑐‘1) Yrm (𝑐‘2)))
41	40	adantr 480	. . . . . . . . 9 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → ((𝑎‘1) Yrm (𝑎‘2)) = ((𝑐‘1) Yrm (𝑐‘2)))
42	38, 41	eqeq12d 2751	. . . . . . . 8 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → (𝑏 = ((𝑎‘1) Yrm (𝑎‘2)) ↔ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2))))
43	37, 42	anbi12d 632	. . . . . . 7 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → (((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ↔ ((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2)))))
44	13	jm2.27dlem1 43033	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → (𝑎‘3) = (𝑐‘3))
45	44	oveq1d 7420	. . . . . . . . . 10 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → ((𝑎‘3)↑2) = ((𝑐‘3)↑2))
46	45	adantr 480	. . . . . . . . 9 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → ((𝑎‘3)↑2) = ((𝑐‘3)↑2))
47	35	oveq1d 7420	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → ((𝑎‘1)↑2) = ((𝑐‘1)↑2))
48	47	oveq1d 7420	. . . . . . . . . 10 ⊢ (𝑎 = (𝑐 ↾ (1...3)) → (((𝑎‘1)↑2) − 1) = (((𝑐‘1)↑2) − 1))
49		oveq1 7412	. . . . . . . . . 10 ⊢ (𝑏 = (𝑐‘4) → (𝑏↑2) = ((𝑐‘4)↑2))
50	48, 49	oveqan12d 7424	. . . . . . . . 9 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → ((((𝑎‘1)↑2) − 1) · (𝑏↑2)) = ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2)))
51	46, 50	oveq12d 7423	. . . . . . . 8 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))))
52	51	eqeq1d 2737	. . . . . . 7 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → ((((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1 ↔ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1))
53	43, 52	anbi12d 632	. . . . . 6 ⊢ ((𝑎 = (𝑐 ↾ (1...3)) ∧ 𝑏 = (𝑐‘4)) → ((((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1) ↔ (((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2))) ∧ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1)))
54	28, 29, 53	sbc2ie 3841	. . . . 5 ⊢ ([(𝑐 ↾ (1...3)) / 𝑎][(𝑐‘4) / 𝑏](((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1) ↔ (((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2))) ∧ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1))
55	54	rabbii 3421	. . . 4 ⊢ {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ [(𝑐 ↾ (1...3)) / 𝑎][(𝑐‘4) / 𝑏](((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)} = {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ (((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2))) ∧ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1)}
56		4nn0 12520	. . . . . 6 ⊢ 4 ∈ ℕ0
57		rmydioph 43038	. . . . . 6 ⊢ {𝑏 ∈ (ℕ0 ↑m (1...3)) ∣ ((𝑏‘1) ∈ (ℤ≥‘2) ∧ (𝑏‘3) = ((𝑏‘1) Yrm (𝑏‘2)))} ∈ (Dioph‘3)
58		simp1 1136	. . . . . . . . 9 ⊢ (((𝑏‘1) = (𝑐‘1) ∧ (𝑏‘2) = (𝑐‘2) ∧ (𝑏‘3) = (𝑐‘4)) → (𝑏‘1) = (𝑐‘1))
59	58	eleq1d 2819	. . . . . . . 8 ⊢ (((𝑏‘1) = (𝑐‘1) ∧ (𝑏‘2) = (𝑐‘2) ∧ (𝑏‘3) = (𝑐‘4)) → ((𝑏‘1) ∈ (ℤ≥‘2) ↔ (𝑐‘1) ∈ (ℤ≥‘2)))
60		simp3 1138	. . . . . . . . 9 ⊢ (((𝑏‘1) = (𝑐‘1) ∧ (𝑏‘2) = (𝑐‘2) ∧ (𝑏‘3) = (𝑐‘4)) → (𝑏‘3) = (𝑐‘4))
61		simp2 1137	. . . . . . . . . 10 ⊢ (((𝑏‘1) = (𝑐‘1) ∧ (𝑏‘2) = (𝑐‘2) ∧ (𝑏‘3) = (𝑐‘4)) → (𝑏‘2) = (𝑐‘2))
62	58, 61	oveq12d 7423	. . . . . . . . 9 ⊢ (((𝑏‘1) = (𝑐‘1) ∧ (𝑏‘2) = (𝑐‘2) ∧ (𝑏‘3) = (𝑐‘4)) → ((𝑏‘1) Yrm (𝑏‘2)) = ((𝑐‘1) Yrm (𝑐‘2)))
63	60, 62	eqeq12d 2751	. . . . . . . 8 ⊢ (((𝑏‘1) = (𝑐‘1) ∧ (𝑏‘2) = (𝑐‘2) ∧ (𝑏‘3) = (𝑐‘4)) → ((𝑏‘3) = ((𝑏‘1) Yrm (𝑏‘2)) ↔ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2))))
64	59, 63	anbi12d 632	. . . . . . 7 ⊢ (((𝑏‘1) = (𝑐‘1) ∧ (𝑏‘2) = (𝑐‘2) ∧ (𝑏‘3) = (𝑐‘4)) → (((𝑏‘1) ∈ (ℤ≥‘2) ∧ (𝑏‘3) = ((𝑏‘1) Yrm (𝑏‘2))) ↔ ((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2)))))
65		df-4 12305	. . . . . . . . . . 11 ⊢ 4 = (3 + 1)
66		ssid 3981	. . . . . . . . . . 11 ⊢ (1...4) ⊆ (1...4)
67	65, 66	jm2.27dlem5 43037	. . . . . . . . . 10 ⊢ (1...3) ⊆ (1...4)
68	3, 67	jm2.27dlem5 43037	. . . . . . . . 9 ⊢ (1...2) ⊆ (1...4)
69	30, 68	jm2.27dlem5 43037	. . . . . . . 8 ⊢ (1...1) ⊆ (1...4)
70	69, 33	sselii 3955	. . . . . . 7 ⊢ 1 ∈ (1...4)
71	68, 7	sselii 3955	. . . . . . 7 ⊢ 2 ∈ (1...4)
72		4nn 12323	. . . . . . . 8 ⊢ 4 ∈ ℕ
73	72	jm2.27dlem3 43035	. . . . . . 7 ⊢ 4 ∈ (1...4)
74	64, 70, 71, 73	rabren3dioph 42838	. . . . . 6 ⊢ ((4 ∈ ℕ0 ∧ {𝑏 ∈ (ℕ0 ↑m (1...3)) ∣ ((𝑏‘1) ∈ (ℤ≥‘2) ∧ (𝑏‘3) = ((𝑏‘1) Yrm (𝑏‘2)))} ∈ (Dioph‘3)) → {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ ((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2)))} ∈ (Dioph‘4))
75	56, 57, 74	mp2an 692	. . . . 5 ⊢ {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ ((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2)))} ∈ (Dioph‘4)
76		ovex 7438	. . . . . . . . 9 ⊢ (1...4) ∈ V
77	67, 13	sselii 3955	. . . . . . . . 9 ⊢ 3 ∈ (1...4)
78		mzpproj 42760	. . . . . . . . 9 ⊢ (((1...4) ∈ V ∧ 3 ∈ (1...4)) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘3)) ∈ (mzPoly‘(1...4)))
79	76, 77, 78	mp2an 692	. . . . . . . 8 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘3)) ∈ (mzPoly‘(1...4))
80		2nn0 12518	. . . . . . . 8 ⊢ 2 ∈ ℕ0
81		mzpexpmpt 42768	. . . . . . . 8 ⊢ (((𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘3)) ∈ (mzPoly‘(1...4)) ∧ 2 ∈ ℕ0) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘3)↑2)) ∈ (mzPoly‘(1...4)))
82	79, 80, 81	mp2an 692	. . . . . . 7 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘3)↑2)) ∈ (mzPoly‘(1...4))
83		mzpproj 42760	. . . . . . . . . . 11 ⊢ (((1...4) ∈ V ∧ 1 ∈ (1...4)) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘1)) ∈ (mzPoly‘(1...4)))
84	76, 70, 83	mp2an 692	. . . . . . . . . 10 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘1)) ∈ (mzPoly‘(1...4))
85		mzpexpmpt 42768	. . . . . . . . . 10 ⊢ (((𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘1)) ∈ (mzPoly‘(1...4)) ∧ 2 ∈ ℕ0) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘1)↑2)) ∈ (mzPoly‘(1...4)))
86	84, 80, 85	mp2an 692	. . . . . . . . 9 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘1)↑2)) ∈ (mzPoly‘(1...4))
87		1z 12622	. . . . . . . . . 10 ⊢ 1 ∈ ℤ
88		mzpconstmpt 42763	. . . . . . . . . 10 ⊢ (((1...4) ∈ V ∧ 1 ∈ ℤ) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ 1) ∈ (mzPoly‘(1...4)))
89	76, 87, 88	mp2an 692	. . . . . . . . 9 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ 1) ∈ (mzPoly‘(1...4))
90		mzpsubmpt 42766	. . . . . . . . 9 ⊢ (((𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘1)↑2)) ∈ (mzPoly‘(1...4)) ∧ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ 1) ∈ (mzPoly‘(1...4))) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (((𝑐‘1)↑2) − 1)) ∈ (mzPoly‘(1...4)))
91	86, 89, 90	mp2an 692	. . . . . . . 8 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (((𝑐‘1)↑2) − 1)) ∈ (mzPoly‘(1...4))
92		mzpproj 42760	. . . . . . . . . 10 ⊢ (((1...4) ∈ V ∧ 4 ∈ (1...4)) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘4)) ∈ (mzPoly‘(1...4)))
93	76, 73, 92	mp2an 692	. . . . . . . . 9 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘4)) ∈ (mzPoly‘(1...4))
94		mzpexpmpt 42768	. . . . . . . . 9 ⊢ (((𝑐 ∈ (ℤ ↑m (1...4)) ↦ (𝑐‘4)) ∈ (mzPoly‘(1...4)) ∧ 2 ∈ ℕ0) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘4)↑2)) ∈ (mzPoly‘(1...4)))
95	93, 80, 94	mp2an 692	. . . . . . . 8 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘4)↑2)) ∈ (mzPoly‘(1...4))
96		mzpmulmpt 42765	. . . . . . . 8 ⊢ (((𝑐 ∈ (ℤ ↑m (1...4)) ↦ (((𝑐‘1)↑2) − 1)) ∈ (mzPoly‘(1...4)) ∧ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘4)↑2)) ∈ (mzPoly‘(1...4))) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) ∈ (mzPoly‘(1...4)))
97	91, 95, 96	mp2an 692	. . . . . . 7 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) ∈ (mzPoly‘(1...4))
98		mzpsubmpt 42766	. . . . . . 7 ⊢ (((𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((𝑐‘3)↑2)) ∈ (mzPoly‘(1...4)) ∧ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) ∈ (mzPoly‘(1...4))) → (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2)))) ∈ (mzPoly‘(1...4)))
99	82, 97, 98	mp2an 692	. . . . . 6 ⊢ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2)))) ∈ (mzPoly‘(1...4))
100		eqrabdioph 42800	. . . . . 6 ⊢ ((4 ∈ ℕ0 ∧ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2)))) ∈ (mzPoly‘(1...4)) ∧ (𝑐 ∈ (ℤ ↑m (1...4)) ↦ 1) ∈ (mzPoly‘(1...4))) → {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1} ∈ (Dioph‘4))
101	56, 99, 89, 100	mp3an 1463	. . . . 5 ⊢ {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1} ∈ (Dioph‘4)
102		anrabdioph 42803	. . . . 5 ⊢ (({𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ ((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2)))} ∈ (Dioph‘4) ∧ {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1} ∈ (Dioph‘4)) → {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ (((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2))) ∧ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1)} ∈ (Dioph‘4))
103	75, 101, 102	mp2an 692	. . . 4 ⊢ {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ (((𝑐‘1) ∈ (ℤ≥‘2) ∧ (𝑐‘4) = ((𝑐‘1) Yrm (𝑐‘2))) ∧ (((𝑐‘3)↑2) − ((((𝑐‘1)↑2) − 1) · ((𝑐‘4)↑2))) = 1)} ∈ (Dioph‘4)
104	55, 103	eqeltri 2830	. . 3 ⊢ {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ [(𝑐 ↾ (1...3)) / 𝑎][(𝑐‘4) / 𝑏](((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)} ∈ (Dioph‘4)
105	65	rexfrabdioph 42818	. . 3 ⊢ ((3 ∈ ℕ0 ∧ {𝑐 ∈ (ℕ0 ↑m (1...4)) ∣ [(𝑐 ↾ (1...3)) / 𝑎][(𝑐‘4) / 𝑏](((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)} ∈ (Dioph‘4)) → {𝑎 ∈ (ℕ0 ↑m (1...3)) ∣ ∃𝑏 ∈ ℕ0 (((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)} ∈ (Dioph‘3))
106	26, 104, 105	mp2an 692	. 2 ⊢ {𝑎 ∈ (ℕ0 ↑m (1...3)) ∣ ∃𝑏 ∈ ℕ0 (((𝑎‘1) ∈ (ℤ≥‘2) ∧ 𝑏 = ((𝑎‘1) Yrm (𝑎‘2))) ∧ (((𝑎‘3)↑2) − ((((𝑎‘1)↑2) − 1) · (𝑏↑2))) = 1)} ∈ (Dioph‘3)
107	25, 106	eqeltri 2830	1 ⊢ {𝑎 ∈ (ℕ0 ↑m (1...3)) ∣ ((𝑎‘1) ∈ (ℤ≥‘2) ∧ (𝑎‘3) = ((𝑎‘1) Xrm (𝑎‘2)))} ∈ (Dioph‘3)

Syntax hints:   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2108  ∃wrex 3060  {crab 3415  Vcvv 3459  [wsbc 3765   ↦ cmpt 5201   ↾ cres 5656  ⟶wf 6527  ‘cfv 6531  (class class class)co 7405   ↑_m cmap 8840  1c1 11130   · cmul 11134   − cmin 11466  2c2 12295  3c3 12296  4c4 12297  ℕ₀cn0 12501  ℤcz 12588  ℤ_≥cuz 12852  ...cfz 13524  ↑cexp 14079  mzPolycmzp 42745  Diophcdioph 42778   X_rm crmx 42923   Y_rm crmy 42924

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7729  ax-inf2 9655  ax-cnex 11185  ax-resscn 11186  ax-1cn 11187  ax-icn 11188  ax-addcl 11189  ax-addrcl 11190  ax-mulcl 11191  ax-mulrcl 11192  ax-mulcom 11193  ax-addass 11194  ax-mulass 11195  ax-distr 11196  ax-i2m1 11197  ax-1ne0 11198  ax-1rid 11199  ax-rnegex 11200  ax-rrecex 11201  ax-cnre 11202  ax-pre-lttri 11203  ax-pre-lttrn 11204  ax-pre-ltadd 11205  ax-pre-mulgt0 11206  ax-pre-sup 11207  ax-addf 11208

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-pss 3946  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-tp 4606  df-op 4608  df-uni 4884  df-int 4923  df-iun 4969  df-iin 4970  df-br 5120  df-opab 5182  df-mpt 5202  df-tr 5230  df-id 5548  df-eprel 5553  df-po 5561  df-so 5562  df-fr 5606  df-se 5607  df-we 5608  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6290  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-isom 6540  df-riota 7362  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7671  df-om 7862  df-1st 7988  df-2nd 7989  df-supp 8160  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-2o 8481  df-oadd 8484  df-omul 8485  df-er 8719  df-map 8842  df-pm 8843  df-ixp 8912  df-en 8960  df-dom 8961  df-sdom 8962  df-fin 8963  df-fsupp 9374  df-fi 9423  df-sup 9454  df-inf 9455  df-oi 9524  df-dju 9915  df-card 9953  df-acn 9956  df-pnf 11271  df-mnf 11272  df-xr 11273  df-ltxr 11274  df-le 11275  df-sub 11468  df-neg 11469  df-div 11895  df-nn 12241  df-2 12303  df-3 12304  df-4 12305  df-5 12306  df-6 12307  df-7 12308  df-8 12309  df-9 12310  df-n0 12502  df-xnn0 12575  df-z 12589  df-dec 12709  df-uz 12853  df-q 12965  df-rp 13009  df-xneg 13128  df-xadd 13129  df-xmul 13130  df-ioo 13366  df-ioc 13367  df-ico 13368  df-icc 13369  df-fz 13525  df-fzo 13672  df-fl 13809  df-mod 13887  df-seq 14020  df-exp 14080  df-fac 14292  df-bc 14321  df-hash 14349  df-shft 15086  df-cj 15118  df-re 15119  df-im 15120  df-sqrt 15254  df-abs 15255  df-limsup 15487  df-clim 15504  df-rlim 15505  df-sum 15703  df-ef 16083  df-sin 16085  df-cos 16086  df-pi 16088  df-dvds 16273  df-gcd 16514  df-prm 16691  df-numer 16754  df-denom 16755  df-struct 17166  df-sets 17183  df-slot 17201  df-ndx 17213  df-base 17229  df-ress 17252  df-plusg 17284  df-mulr 17285  df-starv 17286  df-sca 17287  df-vsca 17288  df-ip 17289  df-tset 17290  df-ple 17291  df-ds 17293  df-unif 17294  df-hom 17295  df-cco 17296  df-rest 17436  df-topn 17437  df-0g 17455  df-gsum 17456  df-topgen 17457  df-pt 17458  df-prds 17461  df-xrs 17516  df-qtop 17521  df-imas 17522  df-xps 17524  df-mre 17598  df-mrc 17599  df-acs 17601  df-mgm 18618  df-sgrp 18697  df-mnd 18713  df-submnd 18762  df-mulg 19051  df-cntz 19300  df-cmn 19763  df-psmet 21307  df-xmet 21308  df-met 21309  df-bl 21310  df-mopn 21311  df-fbas 21312  df-fg 21313  df-cnfld 21316  df-top 22832  df-topon 22849  df-topsp 22871  df-bases 22884  df-cld 22957  df-ntr 22958  df-cls 22959  df-nei 23036  df-lp 23074  df-perf 23075  df-cn 23165  df-cnp 23166  df-haus 23253  df-tx 23500  df-hmeo 23693  df-fil 23784  df-fm 23876  df-flim 23877  df-flf 23878  df-xms 24259  df-ms 24260  df-tms 24261  df-cncf 24822  df-limc 25819  df-dv 25820  df-log 26517  df-mzpcl 42746  df-mzp 42747  df-dioph 42779  df-squarenn 42864  df-pell1qr 42865  df-pell14qr 42866  df-pell1234qr 42867  df-pellfund 42868  df-rmx 42925  df-rmy 42926

This theorem is referenced by:  expdiophlem2  43046