Theorem aks6d1c1p1 42064

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 2829	. . . . . . . . 9 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑒 ∈ ℕ ↔ 𝐸 ∈ ℕ))
5		simpr 484	. . . . . . . . . 10 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → 𝑓 = 𝐹)
6	5	eleq1d 2829	. . . . . . . . 9 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑓 ∈ 𝐵 ↔ 𝐹 ∈ 𝐵))
7	5	fveq2d 6924	. . . . . . . . . . . . 13 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑂‘𝑓) = (𝑂‘𝐹))
8	7	fveq1d 6922	. . . . . . . . . . . 12 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑂‘𝑓)‘𝑦) = ((𝑂‘𝐹)‘𝑦))
9	3, 8	oveq12d 7466	. . . . . . . . . . 11 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)))
10	3	oveq1d 7463	. . . . . . . . . . . 12 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (𝑒𝐷𝑦) = (𝐸𝐷𝑦))
11	7, 10	fveq12d 6927	. . . . . . . . . . 11 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑂‘𝑓)‘(𝑒𝐷𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))
12	9, 11	eqeq12d 2756	. . . . . . . . . 10 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦)) ↔ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
13	12	ralbidv 3184	. . . . . . . . 9 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → (∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦)) ↔ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))
14	4, 6, 13	3anbi123d 1436	. . . . . . . 8 ⊢ ((𝑒 = 𝐸 ∧ 𝑓 = 𝐹) → ((𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦))) ↔ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))))
15		aks6d1c1p1.1	. . . . . . . 8 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒𝐷𝑦)))}
16	14, 15	brabga 5553	. . . . . . 7 ⊢ ((𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵) → (𝐸 ∼ 𝐹 ↔ (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)))))
17	1, 2, 16	syl2anc 583	. . . . . 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 1089	. . . . . . . . 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 686	. 2 ⊢ (𝜑 → (∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦)) → 𝐸 ∼ 𝐹))
32	21, 31	impbid 212	1 ⊢ (𝜑 → (𝐸 ∼ 𝐹 ↔ ∀𝑦 ∈ (𝐾 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸𝐷𝑦))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108  ∀wral 3067   class class class wbr 5166  {copab 5228  ‘cfv 6573  (class class class)co 7448  ℕcn 12293   PrimRoots cprimroots 42048

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-ext 2711  ax-sep 5317  ax-nul 5324  ax-pr 5447

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-sb 2065  df-clab 2718  df-cleq 2732  df-clel 2819  df-ral 3068  df-rab 3444  df-v 3490  df-dif 3979  df-un 3981  df-ss 3993  df-nul 4353  df-if 4549  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-br 5167  df-opab 5229  df-iota 6525  df-fv 6581  df-ov 7451

This theorem is referenced by:  aks6d1c1p2  42066  aks6d1c1p3  42067  aks6d1c1p4  42068  aks6d1c1p5  42069  aks6d1c1p7  42070  aks6d1c1p6  42071  aks6d1c1p8  42072  aks6d1c2lem3  42083  aks6d1c6lem2  42128  aks5lem5a  42148