Theorem genipv 7576

Description: Value of general operation (addition or multiplication) on positive reals. (Contributed by Jim Kingon, 3-Oct-2019.)

Hypotheses

Ref	Expression
genp.1	⊢ 𝐹 = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1st ‘𝑤) ∧ 𝑧 ∈ (1st ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2nd ‘𝑤) ∧ 𝑧 ∈ (2nd ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}⟩)
genp.2	⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦𝐺𝑧) ∈ Q)

Assertion

Ref	Expression
genipv	⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴𝐹𝐵) = ⟨{𝑞 ∈ Q ∣ ∃𝑟 ∈ (1st ‘𝐴)∃𝑠 ∈ (1st ‘𝐵)𝑞 = (𝑟𝐺𝑠)}, {𝑞 ∈ Q ∣ ∃𝑟 ∈ (2nd ‘𝐴)∃𝑠 ∈ (2nd ‘𝐵)𝑞 = (𝑟𝐺𝑠)}⟩)

Distinct variable groups:   𝑥,𝑦,𝑧,𝑞,𝑟,𝑠,𝐴   𝑥,𝐵,𝑦,𝑧,𝑞,𝑟,𝑠   𝑥,𝑤,𝑣,𝐺,𝑦,𝑧,𝑞,𝑟,𝑠

Allowed substitution hints:   𝐴(𝑤,𝑣)   𝐵(𝑤,𝑣)   𝐹(𝑥,𝑦,𝑧,𝑤,𝑣,𝑠,𝑟,𝑞)

Proof of Theorem genipv

Dummy variables 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq1 5929	. . . 4 ⊢ (𝑓 = 𝐴 → (𝑓𝐹𝑔) = (𝐴𝐹𝑔))
2		fveq2 5558	. . . . . . 7 ⊢ (𝑓 = 𝐴 → (1st ‘𝑓) = (1st ‘𝐴))
3	2	rexeqdv 2700	. . . . . 6 ⊢ (𝑓 = 𝐴 → (∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)))
4	3	rabbidv 2752	. . . . 5 ⊢ (𝑓 = 𝐴 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)})
5		fveq2 5558	. . . . . . 7 ⊢ (𝑓 = 𝐴 → (2nd ‘𝑓) = (2nd ‘𝐴))
6	5	rexeqdv 2700	. . . . . 6 ⊢ (𝑓 = 𝐴 → (∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)))
7	6	rabbidv 2752	. . . . 5 ⊢ (𝑓 = 𝐴 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)})
8	4, 7	opeq12d 3816	. . . 4 ⊢ (𝑓 = 𝐴 → ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩ = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩)
9	1, 8	eqeq12d 2211	. . 3 ⊢ (𝑓 = 𝐴 → ((𝑓𝐹𝑔) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩ ↔ (𝐴𝐹𝑔) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩))
10		oveq2 5930	. . . 4 ⊢ (𝑔 = 𝐵 → (𝐴𝐹𝑔) = (𝐴𝐹𝐵))
11		fveq2 5558	. . . . . . . 8 ⊢ (𝑔 = 𝐵 → (1st ‘𝑔) = (1st ‘𝐵))
12	11	rexeqdv 2700	. . . . . . 7 ⊢ (𝑔 = 𝐵 → (∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)))
13	12	rexbidv 2498	. . . . . 6 ⊢ (𝑔 = 𝐵 → (∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)))
14	13	rabbidv 2752	. . . . 5 ⊢ (𝑔 = 𝐵 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)})
15		fveq2 5558	. . . . . . . 8 ⊢ (𝑔 = 𝐵 → (2nd ‘𝑔) = (2nd ‘𝐵))
16	15	rexeqdv 2700	. . . . . . 7 ⊢ (𝑔 = 𝐵 → (∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)))
17	16	rexbidv 2498	. . . . . 6 ⊢ (𝑔 = 𝐵 → (∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)))
18	17	rabbidv 2752	. . . . 5 ⊢ (𝑔 = 𝐵 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)})
19	14, 18	opeq12d 3816	. . . 4 ⊢ (𝑔 = 𝐵 → ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩ = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)}⟩)
20	10, 19	eqeq12d 2211	. . 3 ⊢ (𝑔 = 𝐵 → ((𝐴𝐹𝑔) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩ ↔ (𝐴𝐹𝐵) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)}⟩))
21		nqex 7430	. . . . . . 7 ⊢ Q ∈ V
22	21	a1i 9	. . . . . 6 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → Q ∈ V)
23		rabssab 3271	. . . . . . 7 ⊢ {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ⊆ {𝑥 ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}
24		prop 7542	. . . . . . . . . . . 12 ⊢ (𝑓 ∈ P → ⟨(1st ‘𝑓), (2nd ‘𝑓)⟩ ∈ P)
25		elprnql 7548	. . . . . . . . . . . 12 ⊢ ((⟨(1st ‘𝑓), (2nd ‘𝑓)⟩ ∈ P ∧ 𝑦 ∈ (1st ‘𝑓)) → 𝑦 ∈ Q)
26	24, 25	sylan 283	. . . . . . . . . . 11 ⊢ ((𝑓 ∈ P ∧ 𝑦 ∈ (1st ‘𝑓)) → 𝑦 ∈ Q)
27		prop 7542	. . . . . . . . . . . 12 ⊢ (𝑔 ∈ P → ⟨(1st ‘𝑔), (2nd ‘𝑔)⟩ ∈ P)
28		elprnql 7548	. . . . . . . . . . . 12 ⊢ ((⟨(1st ‘𝑔), (2nd ‘𝑔)⟩ ∈ P ∧ 𝑧 ∈ (1st ‘𝑔)) → 𝑧 ∈ Q)
29	27, 28	sylan 283	. . . . . . . . . . 11 ⊢ ((𝑔 ∈ P ∧ 𝑧 ∈ (1st ‘𝑔)) → 𝑧 ∈ Q)
30		genp.2	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦𝐺𝑧) ∈ Q)
31		eleq1 2259	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑦𝐺𝑧) → (𝑥 ∈ Q ↔ (𝑦𝐺𝑧) ∈ Q))
32	30, 31	syl5ibrcom 157	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 = (𝑦𝐺𝑧) → 𝑥 ∈ Q))
33	26, 29, 32	syl2an 289	. . . . . . . . . 10 ⊢ (((𝑓 ∈ P ∧ 𝑦 ∈ (1st ‘𝑓)) ∧ (𝑔 ∈ P ∧ 𝑧 ∈ (1st ‘𝑔))) → (𝑥 = (𝑦𝐺𝑧) → 𝑥 ∈ Q))
34	33	an4s 588	. . . . . . . . 9 ⊢ (((𝑓 ∈ P ∧ 𝑔 ∈ P) ∧ (𝑦 ∈ (1st ‘𝑓) ∧ 𝑧 ∈ (1st ‘𝑔))) → (𝑥 = (𝑦𝐺𝑧) → 𝑥 ∈ Q))
35	34	rexlimdvva 2622	. . . . . . . 8 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → (∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧) → 𝑥 ∈ Q))
36	35	abssdv 3257	. . . . . . 7 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → {𝑥 ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ⊆ Q)
37	23, 36	sstrid 3194	. . . . . 6 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ⊆ Q)
38	22, 37	ssexd 4173	. . . . 5 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ∈ V)
39		rabssab 3271	. . . . . . 7 ⊢ {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ⊆ {𝑥 ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}
40		elprnqu 7549	. . . . . . . . . . . 12 ⊢ ((⟨(1st ‘𝑓), (2nd ‘𝑓)⟩ ∈ P ∧ 𝑦 ∈ (2nd ‘𝑓)) → 𝑦 ∈ Q)
41	24, 40	sylan 283	. . . . . . . . . . 11 ⊢ ((𝑓 ∈ P ∧ 𝑦 ∈ (2nd ‘𝑓)) → 𝑦 ∈ Q)
42		elprnqu 7549	. . . . . . . . . . . 12 ⊢ ((⟨(1st ‘𝑔), (2nd ‘𝑔)⟩ ∈ P ∧ 𝑧 ∈ (2nd ‘𝑔)) → 𝑧 ∈ Q)
43	27, 42	sylan 283	. . . . . . . . . . 11 ⊢ ((𝑔 ∈ P ∧ 𝑧 ∈ (2nd ‘𝑔)) → 𝑧 ∈ Q)
44	41, 43, 32	syl2an 289	. . . . . . . . . 10 ⊢ (((𝑓 ∈ P ∧ 𝑦 ∈ (2nd ‘𝑓)) ∧ (𝑔 ∈ P ∧ 𝑧 ∈ (2nd ‘𝑔))) → (𝑥 = (𝑦𝐺𝑧) → 𝑥 ∈ Q))
45	44	an4s 588	. . . . . . . . 9 ⊢ (((𝑓 ∈ P ∧ 𝑔 ∈ P) ∧ (𝑦 ∈ (2nd ‘𝑓) ∧ 𝑧 ∈ (2nd ‘𝑔))) → (𝑥 = (𝑦𝐺𝑧) → 𝑥 ∈ Q))
46	45	rexlimdvva 2622	. . . . . . . 8 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → (∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧) → 𝑥 ∈ Q))
47	46	abssdv 3257	. . . . . . 7 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → {𝑥 ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ⊆ Q)
48	39, 47	sstrid 3194	. . . . . 6 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ⊆ Q)
49	22, 48	ssexd 4173	. . . . 5 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ∈ V)
50		opelxp 4693	. . . . 5 ⊢ (⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩ ∈ (V × V) ↔ ({𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ∈ V ∧ {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)} ∈ V))
51	38, 49, 50	sylanbrc 417	. . . 4 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩ ∈ (V × V))
52		fveq2 5558	. . . . . . . 8 ⊢ (𝑤 = 𝑓 → (1st ‘𝑤) = (1st ‘𝑓))
53	52	rexeqdv 2700	. . . . . . 7 ⊢ (𝑤 = 𝑓 → (∃𝑦 ∈ (1st ‘𝑤)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)))
54	53	rabbidv 2752	. . . . . 6 ⊢ (𝑤 = 𝑓 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑤)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)})
55		fveq2 5558	. . . . . . . 8 ⊢ (𝑤 = 𝑓 → (2nd ‘𝑤) = (2nd ‘𝑓))
56	55	rexeqdv 2700	. . . . . . 7 ⊢ (𝑤 = 𝑓 → (∃𝑦 ∈ (2nd ‘𝑤)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)))
57	56	rabbidv 2752	. . . . . 6 ⊢ (𝑤 = 𝑓 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑤)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)})
58	54, 57	opeq12d 3816	. . . . 5 ⊢ (𝑤 = 𝑓 → ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑤)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑤)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)}⟩ = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)}⟩)
59		fveq2 5558	. . . . . . . . 9 ⊢ (𝑣 = 𝑔 → (1st ‘𝑣) = (1st ‘𝑔))
60	59	rexeqdv 2700	. . . . . . . 8 ⊢ (𝑣 = 𝑔 → (∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)))
61	60	rexbidv 2498	. . . . . . 7 ⊢ (𝑣 = 𝑔 → (∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)))
62	61	rabbidv 2752	. . . . . 6 ⊢ (𝑣 = 𝑔 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)})
63		fveq2 5558	. . . . . . . . 9 ⊢ (𝑣 = 𝑔 → (2nd ‘𝑣) = (2nd ‘𝑔))
64	63	rexeqdv 2700	. . . . . . . 8 ⊢ (𝑣 = 𝑔 → (∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)))
65	64	rexbidv 2498	. . . . . . 7 ⊢ (𝑣 = 𝑔 → (∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)))
66	65	rabbidv 2752	. . . . . 6 ⊢ (𝑣 = 𝑔 → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)} = {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)})
67	62, 66	opeq12d 3816	. . . . 5 ⊢ (𝑣 = 𝑔 → ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)}⟩ = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩)
68		genp.1	. . . . . 6 ⊢ 𝐹 = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1st ‘𝑤) ∧ 𝑧 ∈ (1st ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2nd ‘𝑤) ∧ 𝑧 ∈ (2nd ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}⟩)
69	68	genpdf 7575	. . . . 5 ⊢ 𝐹 = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑤)∃𝑧 ∈ (1st ‘𝑣)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑤)∃𝑧 ∈ (2nd ‘𝑣)𝑥 = (𝑦𝐺𝑧)}⟩)
70	58, 67, 69	ovmpog 6057	. . . 4 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P ∧ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩ ∈ (V × V)) → (𝑓𝐹𝑔) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩)
71	51, 70	mpd3an3 1349	. . 3 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → (𝑓𝐹𝑔) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝑓)∃𝑧 ∈ (1st ‘𝑔)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝑓)∃𝑧 ∈ (2nd ‘𝑔)𝑥 = (𝑦𝐺𝑧)}⟩)
72	9, 20, 71	vtocl2ga 2832	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴𝐹𝐵) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)}⟩)
73		eqeq1 2203	. . . . . 6 ⊢ (𝑥 = 𝑞 → (𝑥 = (𝑦𝐺𝑧) ↔ 𝑞 = (𝑦𝐺𝑧)))
74	73	2rexbidv 2522	. . . . 5 ⊢ (𝑥 = 𝑞 → (∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑞 = (𝑦𝐺𝑧)))
75		oveq1 5929	. . . . . . 7 ⊢ (𝑦 = 𝑟 → (𝑦𝐺𝑧) = (𝑟𝐺𝑧))
76	75	eqeq2d 2208	. . . . . 6 ⊢ (𝑦 = 𝑟 → (𝑞 = (𝑦𝐺𝑧) ↔ 𝑞 = (𝑟𝐺𝑧)))
77		oveq2 5930	. . . . . . 7 ⊢ (𝑧 = 𝑠 → (𝑟𝐺𝑧) = (𝑟𝐺𝑠))
78	77	eqeq2d 2208	. . . . . 6 ⊢ (𝑧 = 𝑠 → (𝑞 = (𝑟𝐺𝑧) ↔ 𝑞 = (𝑟𝐺𝑠)))
79	76, 78	cbvrex2v 2743	. . . . 5 ⊢ (∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑞 = (𝑦𝐺𝑧) ↔ ∃𝑟 ∈ (1st ‘𝐴)∃𝑠 ∈ (1st ‘𝐵)𝑞 = (𝑟𝐺𝑠))
80	74, 79	bitrdi 196	. . . 4 ⊢ (𝑥 = 𝑞 → (∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑟 ∈ (1st ‘𝐴)∃𝑠 ∈ (1st ‘𝐵)𝑞 = (𝑟𝐺𝑠)))
81	80	cbvrabv 2762	. . 3 ⊢ {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)} = {𝑞 ∈ Q ∣ ∃𝑟 ∈ (1st ‘𝐴)∃𝑠 ∈ (1st ‘𝐵)𝑞 = (𝑟𝐺𝑠)}
82	73	2rexbidv 2522	. . . . 5 ⊢ (𝑥 = 𝑞 → (∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑞 = (𝑦𝐺𝑧)))
83	76, 78	cbvrex2v 2743	. . . . 5 ⊢ (∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑞 = (𝑦𝐺𝑧) ↔ ∃𝑟 ∈ (2nd ‘𝐴)∃𝑠 ∈ (2nd ‘𝐵)𝑞 = (𝑟𝐺𝑠))
84	82, 83	bitrdi 196	. . . 4 ⊢ (𝑥 = 𝑞 → (∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧) ↔ ∃𝑟 ∈ (2nd ‘𝐴)∃𝑠 ∈ (2nd ‘𝐵)𝑞 = (𝑟𝐺𝑠)))
85	84	cbvrabv 2762	. . 3 ⊢ {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)} = {𝑞 ∈ Q ∣ ∃𝑟 ∈ (2nd ‘𝐴)∃𝑠 ∈ (2nd ‘𝐵)𝑞 = (𝑟𝐺𝑠)}
86	81, 85	opeq12i 3813	. 2 ⊢ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1st ‘𝐴)∃𝑧 ∈ (1st ‘𝐵)𝑥 = (𝑦𝐺𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2nd ‘𝐴)∃𝑧 ∈ (2nd ‘𝐵)𝑥 = (𝑦𝐺𝑧)}⟩ = ⟨{𝑞 ∈ Q ∣ ∃𝑟 ∈ (1st ‘𝐴)∃𝑠 ∈ (1st ‘𝐵)𝑞 = (𝑟𝐺𝑠)}, {𝑞 ∈ Q ∣ ∃𝑟 ∈ (2nd ‘𝐴)∃𝑠 ∈ (2nd ‘𝐵)𝑞 = (𝑟𝐺𝑠)}⟩
87	72, 86	eqtrdi 2245	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴𝐹𝐵) = ⟨{𝑞 ∈ Q ∣ ∃𝑟 ∈ (1st ‘𝐴)∃𝑠 ∈ (1st ‘𝐵)𝑞 = (𝑟𝐺𝑠)}, {𝑞 ∈ Q ∣ ∃𝑟 ∈ (2nd ‘𝐴)∃𝑠 ∈ (2nd ‘𝐵)𝑞 = (𝑟𝐺𝑠)}⟩)

Syntax hints:   → wi 4   ∧ wa 104   ∧ w3a 980   = wceq 1364   ∈ wcel 2167  {cab 2182  ∃wrex 2476  {crab 2479  Vcvv 2763  ⟨cop 3625   × cxp 4661  ‘cfv 5258  (class class class)co 5922   ∈ cmpo 5924  1^st c1st 6196  2^nd c2nd 6197  Qcnq 7347  Pcnp 7358

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4148  ax-sep 4151  ax-pow 4207  ax-pr 4242  ax-un 4468  ax-setind 4573  ax-iinf 4624

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-ral 2480  df-rex 2481  df-reu 2482  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-pw 3607  df-sn 3628  df-pr 3629  df-op 3631  df-uni 3840  df-int 3875  df-iun 3918  df-br 4034  df-opab 4095  df-mpt 4096  df-id 4328  df-iom 4627  df-xp 4669  df-rel 4670  df-cnv 4671  df-co 4672  df-dm 4673  df-rn 4674  df-res 4675  df-ima 4676  df-iota 5219  df-fun 5260  df-fn 5261  df-f 5262  df-f1 5263  df-fo 5264  df-f1o 5265  df-fv 5266  df-ov 5925  df-oprab 5926  df-mpo 5927  df-1st 6198  df-2nd 6199  df-qs 6598  df-ni 7371  df-nqqs 7415  df-inp 7533

This theorem is referenced by:  genpelvl  7579  genpelvu  7580  plpvlu  7605  mpvlu  7606