Theorem aks6d1c1p1 42109

Description: Definition of the introspective relation. (Contributed by metakunt, 25-Apr-2025.)

Hypotheses

Ref	Expression
aks6d1c1p1.1	⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦)))}
aks6d1c1p1.2	⊢ (𝜑 → 𝐹 ∈ 𝐵)
aks6d1c1p1.3	⊢ (𝜑 → 𝐸 ∈ ℕ)

Assertion

Ref	Expression
aks6d1c1p1	⊢ (𝜑 → (𝐸 ∼ 𝐹 ↔ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))

Distinct variable groups:   ↑ ,𝑒,𝑓   𝐵,𝑒,𝑓   𝐷,𝑒,𝑓   𝑒,𝐸,𝑓,𝑦   𝑒,𝐹,𝑓,𝑦   𝑒,𝐾,𝑓   𝑒,𝑂,𝑓   𝑅,𝑒,𝑓

Allowed substitution hints:   𝜑(𝑦,𝑒,𝑓)   𝐵(𝑦)   𝐷(𝑦)   ∼ (𝑦,𝑒,𝑓)   𝑅(𝑦)   ↑ (𝑦)   𝐾(𝑦)   𝑂(𝑦)

Proof of Theorem aks6d1c1p1

Step	Hyp	Ref	Expression
1		aks6d1c1p1.3	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℕ)
2		aks6d1c1p1.2	. . . . . . 7 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
3		simpl 482	. . . . . . . . . 10 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → 𝑒 = 𝐸)
4	3	eleq1d 2825	. . . . . . . . 9 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑒 ∈ ℕ ↔ 𝐸 ∈ ℕ))
5		simpr 484	. . . . . . . . . 10 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → 𝑓 = 𝐹)
6	5	eleq1d 2825	. . . . . . . . 9 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑓 ∈ 𝐵 ↔ 𝐹 ∈ 𝐵))
7	5	fveq2d 6909	. . . . . . . . . . . . 13 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑂‘𝑓) = (𝑂‘𝐹))
8	7	fveq1d 6907	. . . . . . . . . . . 12 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑂‘𝑓)‘𝑦) = ((𝑂‘𝐹)‘𝑦))
9	3, 8	oveq12d 7450	. . . . . . . . . . 11 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)))
10	3	oveq1d 7447	. . . . . . . . . . . 12 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑒𝐷𝑦) = (𝐸𝐷𝑦))
11	7, 10	fveq12d 6912	. . . . . . . . . . 11 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑂‘𝑓)‘(𝑒𝐷𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))
12	9, 11	eqeq12d 2752	. . . . . . . . . 10 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦)) ↔ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
13	12	ralbidv 3177	. . . . . . . . 9 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦)) ↔ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
14	4, 6, 13	3anbi123d 1437	. . . . . . . 8 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦))) ↔ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))))
15		aks6d1c1p1.1	. . . . . . . 8 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦)))}
16	14, 15	brabga 5538	. . . . . . 7 ⊢ ((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵) → (𝐸 ∼ 𝐹 ↔ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))))
17	1, 2, 16	syl2anc 584	. . . . . 6 ⊢ (𝜑 → (𝐸 ∼ 𝐹 ↔ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))))
18	17	biimpd 229	. . . . 5 ⊢ (𝜑 → (𝐸 ∼ 𝐹 → (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))))
19	18	imp 406	. . . 4 ⊢ ((𝜑 ∧ 𝐸 ∼ 𝐹) → (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
20	19	simp3d 1144	. . 3 ⊢ ((𝜑 ∧ 𝐸 ∼ 𝐹) → ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))
21	20	ex 412	. 2 ⊢ (𝜑 → (𝐸 ∼ 𝐹 → ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
22	1, 2	jca 511	. . 3 ⊢ (𝜑 → (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵))
23		df-3an 1088	. . . . . . . . 9 ⊢ ((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))) ↔ ((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵) ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
24	23	bicomi 224	. . . . . . . 8 ⊢ (((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵) ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))) ↔ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
25	24	a1i 11	. . . . . . 7 ⊢ (𝜑 → (((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵) ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))) ↔ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))))
26	17	biimprd 248	. . . . . . 7 ⊢ (𝜑 → ((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))) → 𝐸 ∼ 𝐹))
27	25, 26	sylbid 240	. . . . . 6 ⊢ (𝜑 → (((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵) ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))) → 𝐸 ∼ 𝐹))
28	27	imp 406	. . . . 5 ⊢ ((𝜑 ∧ ((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵) ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))) → 𝐸 ∼ 𝐹)
29	28	anassrs 467	. . . 4 ⊢ (((𝜑 ∧ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵)) ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))) → 𝐸 ∼ 𝐹)
30	29	ex 412	. . 3 ⊢ ((𝜑 ∧ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵)) → (∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)) → 𝐸 ∼ 𝐹))
31	22, 30	mpdan 687	. 2 ⊢ (𝜑 → (∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)) → 𝐸 ∼ 𝐹))
32	21, 31	impbid 212	1 ⊢ (𝜑 → (𝐸 ∼ 𝐹 ↔ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1539   ∈ wcel 2107  ∀wral 3060   class class class wbr 5142  {copab 5204  ‘cfv 6560  (class class class)co 7432  ℕcn 12267   PrimRoots cprimroots 42093

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-ext 2707  ax-sep 5295  ax-nul 5305  ax-pr 5431

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-sb 2064  df-clab 2714  df-cleq 2728  df-clel 2815  df-ral 3061  df-rab 3436  df-v 3481  df-dif 3953  df-un 3955  df-ss 3967  df-nul 4333  df-if 4525  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4907  df-br 5143  df-opab 5205  df-iota 6513  df-fv 6568  df-ov 7435

This theorem is referenced by:  aks6d1c1p2  42111  aks6d1c1p3  42112  aks6d1c1p4  42113  aks6d1c1p5  42114  aks6d1c1p7  42115  aks6d1c1p6  42116  aks6d1c1p8  42117  aks6d1c2lem3  42128  aks6d1c6lem2  42173  aks5lem5a  42193