genpassl - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > genpassl		GIF version

Theorem genpassl 7465

Description: Associativity of lower cuts. Lemma for genpassg 7467. (Contributed by Jim Kingdon, 11-Dec-2019.)

**Hypotheses**
Ref	Expression
genpelvl.1	⊢ 𝐹 = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1^st ‘𝑤) ∧ 𝑧 ∈ (1^st ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2^nd ‘𝑤) ∧ 𝑧 ∈ (2^nd ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}⟩)
genpelvl.2	⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦𝐺𝑧) ∈ Q)
genpassg.4	⊢ dom 𝐹 = (P × P)
genpassg.5	⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → (𝑓𝐹𝑔) ∈ P)
genpassg.6	⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q) → ((𝑓𝐺𝑔)𝐺ℎ) = (𝑓𝐺(𝑔𝐺ℎ)))

**Assertion**
Ref	Expression
genpassl	⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (1^st ‘((𝐴𝐹𝐵)𝐹𝐶)) = (1^st ‘(𝐴𝐹(𝐵𝐹𝐶))))

Distinct variable groups: 𝑥,𝑦,𝑧,𝑓,𝑔,ℎ,𝑤,𝑣,𝐴 𝑥,𝐵,𝑦,𝑧,𝑓,𝑔,ℎ,𝑤,𝑣 𝑥,𝐺,𝑦,𝑧,𝑓,𝑔,ℎ,𝑤,𝑣 𝑓,𝐹,𝑔 𝐶,𝑓,𝑔,ℎ,𝑣,𝑤,𝑥,𝑦,𝑧 ℎ,𝐹,𝑣,𝑤,𝑥,𝑦,𝑧

Proof of Theorem genpassl Dummy variable 𝑡 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		prop 7416	. . . . . . . . 9 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
2		elprnql 7422	. . . . . . . . 9 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑓 ∈ (1^st ‘𝐴)) → 𝑓 ∈ Q)
3	1, 2	sylan 281	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝑓 ∈ (1^st ‘𝐴)) → 𝑓 ∈ Q)
4		prop 7416	. . . . . . . . . . . . . . . 16 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
5		elprnql 7422	. . . . . . . . . . . . . . . 16 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑔 ∈ (1^st ‘𝐵)) → 𝑔 ∈ Q)
6	4, 5	sylan 281	. . . . . . . . . . . . . . 15 ⊢ ((𝐵 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐵)) → 𝑔 ∈ Q)
7		prop 7416	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐶 ∈ P → ⟨(1^st ‘𝐶), (2^nd ‘𝐶)⟩ ∈ P)
8		elprnql 7422	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((⟨(1^st ‘𝐶), (2^nd ‘𝐶)⟩ ∈ P ∧ ℎ ∈ (1^st ‘𝐶)) → ℎ ∈ Q)
9	7, 8	sylan 281	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐶 ∈ P ∧ ℎ ∈ (1^st ‘𝐶)) → ℎ ∈ Q)
10		oveq2 5850	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑡 = (𝑔𝐺ℎ) → (𝑓𝐺𝑡) = (𝑓𝐺(𝑔𝐺ℎ)))
11	10	adantr 274	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑡 = (𝑔𝐺ℎ) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q)) → (𝑓𝐺𝑡) = (𝑓𝐺(𝑔𝐺ℎ)))
12		genpassg.6	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q) → ((𝑓𝐺𝑔)𝐺ℎ) = (𝑓𝐺(𝑔𝐺ℎ)))
13	12	adantl 275	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑡 = (𝑔𝐺ℎ) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q)) → ((𝑓𝐺𝑔)𝐺ℎ) = (𝑓𝐺(𝑔𝐺ℎ)))
14	11, 13	eqtr4d 2201	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑡 = (𝑔𝐺ℎ) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q)) → (𝑓𝐺𝑡) = ((𝑓𝐺𝑔)𝐺ℎ))
15	14	eqeq2d 2177	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑡 = (𝑔𝐺ℎ) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q)) → (𝑥 = (𝑓𝐺𝑡) ↔ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
16	15	expcom 115	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑡 = (𝑔𝐺ℎ) → (𝑥 = (𝑓𝐺𝑡) ↔ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
17	16	pm5.32d 446	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q) → ((𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ (𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
18	17	3expa 1193	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑓 ∈ Q ∧ 𝑔 ∈ Q) ∧ ℎ ∈ Q) → ((𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ (𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
19	9, 18	sylan2 284	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑓 ∈ Q ∧ 𝑔 ∈ Q) ∧ (𝐶 ∈ P ∧ ℎ ∈ (1^st ‘𝐶))) → ((𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ (𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
20	19	anassrs 398	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑓 ∈ Q ∧ 𝑔 ∈ Q) ∧ 𝐶 ∈ P) ∧ ℎ ∈ (1^st ‘𝐶)) → ((𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ (𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
21	20	rexbidva 2463	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑓 ∈ Q ∧ 𝑔 ∈ Q) ∧ 𝐶 ∈ P) → (∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ ∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
22		r19.41v 2622	. . . . . . . . . . . . . . . . 17 ⊢ (∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ (∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)))
23	21, 22	bitr3di 194	. . . . . . . . . . . . . . . 16 ⊢ (((𝑓 ∈ Q ∧ 𝑔 ∈ Q) ∧ 𝐶 ∈ P) → (∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
24	23	an32s 558	. . . . . . . . . . . . . . 15 ⊢ (((𝑓 ∈ Q ∧ 𝐶 ∈ P) ∧ 𝑔 ∈ Q) → (∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
25	6, 24	sylan2 284	. . . . . . . . . . . . . 14 ⊢ (((𝑓 ∈ Q ∧ 𝐶 ∈ P) ∧ (𝐵 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐵))) → (∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
26	25	anassrs 398	. . . . . . . . . . . . 13 ⊢ ((((𝑓 ∈ Q ∧ 𝐶 ∈ P) ∧ 𝐵 ∈ P) ∧ 𝑔 ∈ (1^st ‘𝐵)) → (∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
27	26	rexbidva 2463	. . . . . . . . . . . 12 ⊢ (((𝑓 ∈ Q ∧ 𝐶 ∈ P) ∧ 𝐵 ∈ P) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ ∃𝑔 ∈ (1^st ‘𝐵)(∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
28		r19.41v 2622	. . . . . . . . . . . 12 ⊢ (∃𝑔 ∈ (1^st ‘𝐵)(∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡)))
29	27, 28	bitrdi 195	. . . . . . . . . . 11 ⊢ (((𝑓 ∈ Q ∧ 𝐶 ∈ P) ∧ 𝐵 ∈ P) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
30	29	an31s 560	. . . . . . . . . 10 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ 𝑓 ∈ Q) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
31	30	exbidv 1813	. . . . . . . . 9 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ 𝑓 ∈ Q) → (∃𝑡∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ ∃𝑡(∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
32		genpelvl.2	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦𝐺𝑧) ∈ Q)
33	32	caovcl 5996	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑔𝐺ℎ) ∈ Q)
34		elisset 2740	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑔𝐺ℎ) ∈ Q → ∃𝑡 𝑡 = (𝑔𝐺ℎ))
35	33, 34	syl 14	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → ∃𝑡 𝑡 = (𝑔𝐺ℎ))
36	35	biantrurd 303	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ (∃𝑡 𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
37		19.41v 1890	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (∃𝑡(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃𝑡 𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
38	36, 37	bitr4di 197	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
39	9, 38	sylan2 284	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑔 ∈ Q ∧ (𝐶 ∈ P ∧ ℎ ∈ (1^st ‘𝐶))) → (𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
40	39	anassrs 398	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑔 ∈ Q ∧ 𝐶 ∈ P) ∧ ℎ ∈ (1^st ‘𝐶)) → (𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
41	40	rexbidva 2463	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑔 ∈ Q ∧ 𝐶 ∈ P) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃ℎ ∈ (1^st ‘𝐶)∃𝑡(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
42		rexcom4 2749	. . . . . . . . . . . . . . . . 17 ⊢ (∃ℎ ∈ (1^st ‘𝐶)∃𝑡(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ ∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
43	41, 42	bitrdi 195	. . . . . . . . . . . . . . . 16 ⊢ ((𝑔 ∈ Q ∧ 𝐶 ∈ P) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
44	43	ancoms 266	. . . . . . . . . . . . . . 15 ⊢ ((𝐶 ∈ P ∧ 𝑔 ∈ Q) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
45	6, 44	sylan2 284	. . . . . . . . . . . . . 14 ⊢ ((𝐶 ∈ P ∧ (𝐵 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐵))) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
46	45	anassrs 398	. . . . . . . . . . . . 13 ⊢ (((𝐶 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑔 ∈ (1^st ‘𝐵)) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
47	46	rexbidva 2463	. . . . . . . . . . . 12 ⊢ ((𝐶 ∈ P ∧ 𝐵 ∈ P) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑔 ∈ (1^st ‘𝐵)∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
48	47	ancoms 266	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑔 ∈ (1^st ‘𝐵)∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
49		rexcom4 2749	. . . . . . . . . . 11 ⊢ (∃𝑔 ∈ (1^st ‘𝐵)∃𝑡∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
50	48, 49	bitrdi 195	. . . . . . . . . 10 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
51	50	adantr 274	. . . . . . . . 9 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ 𝑓 ∈ Q) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)(𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
52		df-rex 2450	. . . . . . . . . . 11 ⊢ (∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑡(𝑡 ∈ (1^st ‘(𝐵𝐹𝐶)) ∧ 𝑥 = (𝑓𝐺𝑡)))
53		genpelvl.1	. . . . . . . . . . . . . 14 ⊢ 𝐹 = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1^st ‘𝑤) ∧ 𝑧 ∈ (1^st ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2^nd ‘𝑤) ∧ 𝑧 ∈ (2^nd ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}⟩)
54	53, 32	genpelvl 7453	. . . . . . . . . . . . 13 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝑡 ∈ (1^st ‘(𝐵𝐹𝐶)) ↔ ∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ)))
55	54	anbi1d 461	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → ((𝑡 ∈ (1^st ‘(𝐵𝐹𝐶)) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
56	55	exbidv 1813	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑡(𝑡 ∈ (1^st ‘(𝐵𝐹𝐶)) ∧ 𝑥 = (𝑓𝐺𝑡)) ↔ ∃𝑡(∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
57	52, 56	syl5bb 191	. . . . . . . . . 10 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑡(∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
58	57	adantr 274	. . . . . . . . 9 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ 𝑓 ∈ Q) → (∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑡(∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑡 = (𝑔𝐺ℎ) ∧ 𝑥 = (𝑓𝐺𝑡))))
59	31, 51, 58	3bitr4rd 220	. . . . . . . 8 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ 𝑓 ∈ Q) → (∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
60	3, 59	sylan2 284	. . . . . . 7 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ (𝐴 ∈ P ∧ 𝑓 ∈ (1^st ‘𝐴))) → (∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
61	60	anassrs 398	. . . . . 6 ⊢ ((((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ 𝐴 ∈ P) ∧ 𝑓 ∈ (1^st ‘𝐴)) → (∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
62	61	rexbidva 2463	. . . . 5 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ 𝐴 ∈ P) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
63	62	ancoms 266	. . . 4 ⊢ ((𝐴 ∈ P ∧ (𝐵 ∈ P ∧ 𝐶 ∈ P)) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
64	63	3impb 1189	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
65		genpassg.5	. . . . . 6 ⊢ ((𝑓 ∈ P ∧ 𝑔 ∈ P) → (𝑓𝐹𝑔) ∈ P)
66	65	caovcl 5996	. . . . 5 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝐵𝐹𝐶) ∈ P)
67	53, 32	genpelvl 7453	. . . . 5 ⊢ ((𝐴 ∈ P ∧ (𝐵𝐹𝐶) ∈ P) → (𝑥 ∈ (1^st ‘(𝐴𝐹(𝐵𝐹𝐶))) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡)))
68	66, 67	sylan2 284	. . . 4 ⊢ ((𝐴 ∈ P ∧ (𝐵 ∈ P ∧ 𝐶 ∈ P)) → (𝑥 ∈ (1^st ‘(𝐴𝐹(𝐵𝐹𝐶))) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡)))
69	68	3impb 1189	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝑥 ∈ (1^st ‘(𝐴𝐹(𝐵𝐹𝐶))) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑡 ∈ (1^st ‘(𝐵𝐹𝐶))𝑥 = (𝑓𝐺𝑡)))
70		df-rex 2450	. . . . 5 ⊢ (∃𝑡 ∈ (1^st ‘(𝐴𝐹𝐵))∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ) ↔ ∃𝑡(𝑡 ∈ (1^st ‘(𝐴𝐹𝐵)) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
71	53, 32	genpelvl 7453	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑡 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔)))
72	71	3adant3 1007	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝑡 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔)))
73	72	anbi1d 461	. . . . . 6 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → ((𝑡 ∈ (1^st ‘(𝐴𝐹𝐵)) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
74	73	exbidv 1813	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑡(𝑡 ∈ (1^st ‘(𝐴𝐹𝐵)) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ ∃𝑡(∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
75	70, 74	syl5bb 191	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑡 ∈ (1^st ‘(𝐴𝐹𝐵))∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ) ↔ ∃𝑡(∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
76	65	caovcl 5996	. . . . . 6 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴𝐹𝐵) ∈ P)
77	53, 32	genpelvl 7453	. . . . . 6 ⊢ (((𝐴𝐹𝐵) ∈ P ∧ 𝐶 ∈ P) → (𝑥 ∈ (1^st ‘((𝐴𝐹𝐵)𝐹𝐶)) ↔ ∃𝑡 ∈ (1^st ‘(𝐴𝐹𝐵))∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
78	76, 77	sylan 281	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝐶 ∈ P) → (𝑥 ∈ (1^st ‘((𝐴𝐹𝐵)𝐹𝐶)) ↔ ∃𝑡 ∈ (1^st ‘(𝐴𝐹𝐵))∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
79	78	3impa 1184	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝑥 ∈ (1^st ‘((𝐴𝐹𝐵)𝐹𝐶)) ↔ ∃𝑡 ∈ (1^st ‘(𝐴𝐹𝐵))∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
80	32	caovcl 5996	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q) → (𝑓𝐺𝑔) ∈ Q)
81		elisset 2740	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑓𝐺𝑔) ∈ Q → ∃𝑡 𝑡 = (𝑓𝐺𝑔))
82	80, 81	syl 14	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q) → ∃𝑡 𝑡 = (𝑓𝐺𝑔))
83	82	biantrurd 303	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ (∃𝑡 𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ))))
84		oveq1 5849	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = (𝑓𝐺𝑔) → (𝑡𝐺ℎ) = ((𝑓𝐺𝑔)𝐺ℎ))
85	84	eqeq2d 2177	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = (𝑓𝐺𝑔) → (𝑥 = (𝑡𝐺ℎ) ↔ 𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
86	85	rexbidv 2467	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = (𝑓𝐺𝑔) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ) ↔ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
87	86	pm5.32i 450	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ (𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
88	87	exbii 1593	. . . . . . . . . . . . . . . . . 18 ⊢ (∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ ∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
89		19.41v 1890	. . . . . . . . . . . . . . . . . 18 ⊢ (∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)) ↔ (∃𝑡 𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
90	88, 89	bitri 183	. . . . . . . . . . . . . . . . 17 ⊢ (∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ (∃𝑡 𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
91	83, 90	bitr4di 197	. . . . . . . . . . . . . . . 16 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
92	6, 91	sylan2 284	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 ∈ Q ∧ (𝐵 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐵))) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
93	92	anassrs 398	. . . . . . . . . . . . . 14 ⊢ (((𝑓 ∈ Q ∧ 𝐵 ∈ P) ∧ 𝑔 ∈ (1^st ‘𝐵)) → (∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
94	93	rexbidva 2463	. . . . . . . . . . . . 13 ⊢ ((𝑓 ∈ Q ∧ 𝐵 ∈ P) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑔 ∈ (1^st ‘𝐵)∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
95		rexcom4 2749	. . . . . . . . . . . . 13 ⊢ (∃𝑔 ∈ (1^st ‘𝐵)∃𝑡(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
96	94, 95	bitrdi 195	. . . . . . . . . . . 12 ⊢ ((𝑓 ∈ Q ∧ 𝐵 ∈ P) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
97	96	ancoms 266	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ P ∧ 𝑓 ∈ Q) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
98	3, 97	sylan2 284	. . . . . . . . . 10 ⊢ ((𝐵 ∈ P ∧ (𝐴 ∈ P ∧ 𝑓 ∈ (1^st ‘𝐴))) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
99	98	anassrs 398	. . . . . . . . 9 ⊢ (((𝐵 ∈ P ∧ 𝐴 ∈ P) ∧ 𝑓 ∈ (1^st ‘𝐴)) → (∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
100	99	rexbidva 2463	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝐴 ∈ P) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑡∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
101		rexcom4 2749	. . . . . . . 8 ⊢ (∃𝑓 ∈ (1^st ‘𝐴)∃𝑡∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ ∃𝑡∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
102	100, 101	bitrdi 195	. . . . . . 7 ⊢ ((𝐵 ∈ P ∧ 𝐴 ∈ P) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
103		r19.41v 2622	. . . . . . . . . 10 ⊢ (∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ (∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
104	103	rexbii 2473	. . . . . . . . 9 ⊢ (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ ∃𝑓 ∈ (1^st ‘𝐴)(∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
105		r19.41v 2622	. . . . . . . . 9 ⊢ (∃𝑓 ∈ (1^st ‘𝐴)(∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
106	104, 105	bitri 183	. . . . . . . 8 ⊢ (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
107	106	exbii 1593	. . . . . . 7 ⊢ (∃𝑡∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)(𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)) ↔ ∃𝑡(∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ)))
108	102, 107	bitrdi 195	. . . . . 6 ⊢ ((𝐵 ∈ P ∧ 𝐴 ∈ P) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
109	108	ancoms 266	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
110	109	3adant3 1007	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ) ↔ ∃𝑡(∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)𝑡 = (𝑓𝐺𝑔) ∧ ∃ℎ ∈ (1^st ‘𝐶)𝑥 = (𝑡𝐺ℎ))))
111	75, 79, 110	3bitr4d 219	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝑥 ∈ (1^st ‘((𝐴𝐹𝐵)𝐹𝐶)) ↔ ∃𝑓 ∈ (1^st ‘𝐴)∃𝑔 ∈ (1^st ‘𝐵)∃ℎ ∈ (1^st ‘𝐶)𝑥 = ((𝑓𝐺𝑔)𝐺ℎ)))
112	64, 69, 111	3bitr4rd 220	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝑥 ∈ (1^st ‘((𝐴𝐹𝐵)𝐹𝐶)) ↔ 𝑥 ∈ (1^st ‘(𝐴𝐹(𝐵𝐹𝐶)))))
113	112	eqrdv 2163	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (1^st ‘((𝐴𝐹𝐵)𝐹𝐶)) = (1^st ‘(𝐴𝐹(𝐵𝐹𝐶))))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 ↔ wb 104 ∧ w3a 968 = wceq 1343 ∃wex 1480 ∈ wcel 2136 ∃wrex 2445 {crab 2448 ⟨cop 3579 × cxp 4602 dom cdm 4604 ‘cfv 5188 (class class class)co 5842 ∈ cmpo 5844 1^st c1st 6106 2^nd c2nd 6107 Qcnq 7221 Pcnp 7232

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 604 ax-in2 605 ax-io 699 ax-5 1435 ax-7 1436 ax-gen 1437 ax-ie1 1481 ax-ie2 1482 ax-8 1492 ax-10 1493 ax-11 1494 ax-i12 1495 ax-bndl 1497 ax-4 1498 ax-17 1514 ax-i9 1518 ax-ial 1522 ax-i5r 1523 ax-13 2138 ax-14 2139 ax-ext 2147 ax-coll 4097 ax-sep 4100 ax-pow 4153 ax-pr 4187 ax-un 4411 ax-setind 4514 ax-iinf 4565

This theorem depends on definitions: df-bi 116 df-3an 970 df-tru 1346 df-fal 1349 df-nf 1449 df-sb 1751 df-eu 2017 df-mo 2018 df-clab 2152 df-cleq 2158 df-clel 2161 df-nfc 2297 df-ne 2337 df-ral 2449 df-rex 2450 df-reu 2451 df-rab 2453 df-v 2728 df-sbc 2952 df-csb 3046 df-dif 3118 df-un 3120 df-in 3122 df-ss 3129 df-pw 3561 df-sn 3582 df-pr 3583 df-op 3585 df-uni 3790 df-int 3825 df-iun 3868 df-br 3983 df-opab 4044 df-mpt 4045 df-id 4271 df-iom 4568 df-xp 4610 df-rel 4611 df-cnv 4612 df-co 4613 df-dm 4614 df-rn 4615 df-res 4616 df-ima 4617 df-iota 5153 df-fun 5190 df-fn 5191 df-f 5192 df-f1 5193 df-fo 5194 df-f1o 5195 df-fv 5196 df-ov 5845 df-oprab 5846 df-mpo 5847 df-1st 6108 df-2nd 6109 df-qs 6507 df-ni 7245 df-nqqs 7289 df-inp 7407

This theorem is referenced by: genpassg 7467

W3C validator