genprndl - Intuitionistic Logic Explorer

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

Theorem genprndl 7550

Description: The lower cut produced by addition or multiplication on positive reals is rounded. (Contributed by Jim Kingdon, 7-Oct-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)
genprndl.ord	⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 <_Q 𝑦 ↔ (𝑧𝐺𝑥) <_Q (𝑧𝐺𝑦)))
genprndl.com	⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥𝐺𝑦) = (𝑦𝐺𝑥))
genprndl.lower	⊢ ((((𝐴 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ ℎ ∈ (1^st ‘𝐵))) ∧ 𝑥 ∈ Q) → (𝑥 <_Q (𝑔𝐺ℎ) → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵))))

**Assertion**
Ref	Expression
genprndl	⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))

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

Proof of Theorem genprndl Dummy variables 𝑎 𝑏 𝑐 𝑑 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		genpelvl.1	. . . . . . . . . 10 ⊢ 𝐹 = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1^st ‘𝑤) ∧ 𝑧 ∈ (1^st ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2^nd ‘𝑤) ∧ 𝑧 ∈ (2^nd ‘𝑣) ∧ 𝑥 = (𝑦𝐺𝑧))}⟩)
2		genpelvl.2	. . . . . . . . . 10 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦𝐺𝑧) ∈ Q)
3	1, 2	genpelvl 7541	. . . . . . . . 9 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑎 ∈ (1^st ‘𝐴)∃𝑏 ∈ (1^st ‘𝐵)𝑞 = (𝑎𝐺𝑏)))
4		r2ex 2510	. . . . . . . . 9 ⊢ (∃𝑎 ∈ (1^st ‘𝐴)∃𝑏 ∈ (1^st ‘𝐵)𝑞 = (𝑎𝐺𝑏) ↔ ∃𝑎∃𝑏((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏)))
5	3, 4	bitrdi 196	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑎∃𝑏((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏))))
6	5	biimpa 296	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))) → ∃𝑎∃𝑏((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏)))
7	6	adantrl 478	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑞 ∈ Q ∧ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))) → ∃𝑎∃𝑏((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏)))
8		prop 7504	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
9		prnmaxl 7517	. . . . . . . . . . . . . . . 16 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑎 ∈ (1^st ‘𝐴)) → ∃𝑐 ∈ (1^st ‘𝐴)𝑎 <_Q 𝑐)
10	8, 9	sylan 283	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ P ∧ 𝑎 ∈ (1^st ‘𝐴)) → ∃𝑐 ∈ (1^st ‘𝐴)𝑎 <_Q 𝑐)
11		prop 7504	. . . . . . . . . . . . . . . 16 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
12		prnmaxl 7517	. . . . . . . . . . . . . . . 16 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑏 ∈ (1^st ‘𝐵)) → ∃𝑑 ∈ (1^st ‘𝐵)𝑏 <_Q 𝑑)
13	11, 12	sylan 283	. . . . . . . . . . . . . . 15 ⊢ ((𝐵 ∈ P ∧ 𝑏 ∈ (1^st ‘𝐵)) → ∃𝑑 ∈ (1^st ‘𝐵)𝑏 <_Q 𝑑)
14	10, 13	anim12i 338	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ P ∧ 𝑎 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ 𝑏 ∈ (1^st ‘𝐵))) → (∃𝑐 ∈ (1^st ‘𝐴)𝑎 <_Q 𝑐 ∧ ∃𝑑 ∈ (1^st ‘𝐵)𝑏 <_Q 𝑑))
15	14	an4s 588	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵))) → (∃𝑐 ∈ (1^st ‘𝐴)𝑎 <_Q 𝑐 ∧ ∃𝑑 ∈ (1^st ‘𝐵)𝑏 <_Q 𝑑))
16		reeanv 2660	. . . . . . . . . . . . 13 ⊢ (∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎 <_Q 𝑐 ∧ 𝑏 <_Q 𝑑) ↔ (∃𝑐 ∈ (1^st ‘𝐴)𝑎 <_Q 𝑐 ∧ ∃𝑑 ∈ (1^st ‘𝐵)𝑏 <_Q 𝑑))
17	15, 16	sylibr 134	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵))) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎 <_Q 𝑐 ∧ 𝑏 <_Q 𝑑))
18		genprndl.ord	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 <_Q 𝑦 ↔ (𝑧𝐺𝑥) <_Q (𝑧𝐺𝑦)))
19		genprndl.com	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥𝐺𝑦) = (𝑦𝐺𝑥))
20	18, 19	genplt2i 7539	. . . . . . . . . . . . . 14 ⊢ ((𝑎 <_Q 𝑐 ∧ 𝑏 <_Q 𝑑) → (𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑))
21	20	reximi 2587	. . . . . . . . . . . . 13 ⊢ (∃𝑑 ∈ (1^st ‘𝐵)(𝑎 <_Q 𝑐 ∧ 𝑏 <_Q 𝑑) → ∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑))
22	21	reximi 2587	. . . . . . . . . . . 12 ⊢ (∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎 <_Q 𝑐 ∧ 𝑏 <_Q 𝑑) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑))
23	17, 22	syl 14	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵))) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑))
24	23	adantrr 479	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ ((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏))) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑))
25		breq1 4021	. . . . . . . . . . . . . 14 ⊢ (𝑞 = (𝑎𝐺𝑏) → (𝑞 <_Q (𝑐𝐺𝑑) ↔ (𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑)))
26	25	biimprd 158	. . . . . . . . . . . . 13 ⊢ (𝑞 = (𝑎𝐺𝑏) → ((𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑) → 𝑞 <_Q (𝑐𝐺𝑑)))
27	26	reximdv 2591	. . . . . . . . . . . 12 ⊢ (𝑞 = (𝑎𝐺𝑏) → (∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑) → ∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑)))
28	27	reximdv 2591	. . . . . . . . . . 11 ⊢ (𝑞 = (𝑎𝐺𝑏) → (∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑)))
29	28	ad2antll 491	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ ((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏))) → (∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑)))
30	24, 29	mpd 13	. . . . . . . . 9 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ ((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏))) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑))
31	30	ex 115	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏)) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑)))
32	31	exlimdvv 1909	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑎∃𝑏((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏)) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑)))
33	32	adantr 276	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑞 ∈ Q ∧ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))) → (∃𝑎∃𝑏((𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵)) ∧ 𝑞 = (𝑎𝐺𝑏)) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑)))
34	7, 33	mpd 13	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑞 ∈ Q ∧ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))) → ∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑))
35	1, 2	genpprecll 7543	. . . . . . . . 9 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵)) → (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵))))
36	35	imp 124	. . . . . . . 8 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵)))
37		elprnql 7510	. . . . . . . . . . . . 13 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑐 ∈ (1^st ‘𝐴)) → 𝑐 ∈ Q)
38	8, 37	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝑐 ∈ (1^st ‘𝐴)) → 𝑐 ∈ Q)
39		elprnql 7510	. . . . . . . . . . . . 13 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑑 ∈ (1^st ‘𝐵)) → 𝑑 ∈ Q)
40	11, 39	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ P ∧ 𝑑 ∈ (1^st ‘𝐵)) → 𝑑 ∈ Q)
41	38, 40	anim12i 338	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ P ∧ 𝑐 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑐 ∈ Q ∧ 𝑑 ∈ Q))
42	41	an4s 588	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑐 ∈ Q ∧ 𝑑 ∈ Q))
43	2	caovcl 6051	. . . . . . . . . 10 ⊢ ((𝑐 ∈ Q ∧ 𝑑 ∈ Q) → (𝑐𝐺𝑑) ∈ Q)
44	42, 43	syl 14	. . . . . . . . 9 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑐𝐺𝑑) ∈ Q)
45		breq2 4022	. . . . . . . . . . 11 ⊢ (𝑟 = (𝑐𝐺𝑑) → (𝑞 <_Q 𝑟 ↔ 𝑞 <_Q (𝑐𝐺𝑑)))
46		eleq1 2252	. . . . . . . . . . 11 ⊢ (𝑟 = (𝑐𝐺𝑑) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵))))
47	45, 46	anbi12d 473	. . . . . . . . . 10 ⊢ (𝑟 = (𝑐𝐺𝑑) → ((𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵))) ↔ (𝑞 <_Q (𝑐𝐺𝑑) ∧ (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵)))))
48	47	adantl 277	. . . . . . . . 9 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) ∧ 𝑟 = (𝑐𝐺𝑑)) → ((𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵))) ↔ (𝑞 <_Q (𝑐𝐺𝑑) ∧ (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵)))))
49	44, 48	rspcedv 2860	. . . . . . . 8 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → ((𝑞 <_Q (𝑐𝐺𝑑) ∧ (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵))) → ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))
50	36, 49	mpan2d 428	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑞 <_Q (𝑐𝐺𝑑) → ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))
51	50	rexlimdvva 2615	. . . . . 6 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑) → ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))
52	51	adantr 276	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑞 ∈ Q ∧ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))) → (∃𝑐 ∈ (1^st ‘𝐴)∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑) → ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))
53	34, 52	mpd 13	. . . 4 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑞 ∈ Q ∧ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))) → ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵))))
54	53	expr 375	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑞 ∈ Q) → (𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)) → ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))
55		genprndl.lower	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ P ∧ 𝑔 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ ℎ ∈ (1^st ‘𝐵))) ∧ 𝑥 ∈ Q) → (𝑥 <_Q (𝑔𝐺ℎ) → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵))))
56	1, 2, 55	genpcdl 7548	. . . . . . . . . 10 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) → (𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵)))))
57	56	alrimdv 1887	. . . . . . . . 9 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) → ∀𝑥(𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵)))))
58		breq1 4021	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑞 → (𝑥 <_Q 𝑟 ↔ 𝑞 <_Q 𝑟))
59		eleq1 2252	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑞 → (𝑥 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
60	58, 59	imbi12d 234	. . . . . . . . . 10 ⊢ (𝑥 = 𝑞 → ((𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵))) ↔ (𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))))
61	60	cbvalv 1929	. . . . . . . . 9 ⊢ (∀𝑥(𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵))) ↔ ∀𝑞(𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
62	57, 61	imbitrdi 161	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) → ∀𝑞(𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))))
63		sp 1522	. . . . . . . 8 ⊢ (∀𝑞(𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))) → (𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
64	62, 63	syl6 33	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) → (𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))))
65	64	impd 254	. . . . . 6 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) ∧ 𝑞 <_Q 𝑟) → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
66	65	ancomsd 269	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵))) → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
67	66	ad2antrr 488	. . . 4 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑞 ∈ Q) ∧ 𝑟 ∈ Q) → ((𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵))) → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
68	67	rexlimdva 2607	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑞 ∈ Q) → (∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵))) → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
69	54, 68	impbid 129	. 2 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑞 ∈ Q) → (𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))
70	69	ralrimiva 2563	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)))))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 980 ∀wal 1362 = wceq 1364 ∃wex 1503 ∈ wcel 2160 ∀wral 2468 ∃wrex 2469 {crab 2472 ⟨cop 3610 class class class wbr 4018 ‘cfv 5235 (class class class)co 5896 ∈ cmpo 5898 1^st c1st 6163 2^nd c2nd 6164 Qcnq 7309 <_Q cltq 7314 Pcnp 7320

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 1458 ax-7 1459 ax-gen 1460 ax-ie1 1504 ax-ie2 1505 ax-8 1515 ax-10 1516 ax-11 1517 ax-i12 1518 ax-bndl 1520 ax-4 1521 ax-17 1537 ax-i9 1541 ax-ial 1545 ax-i5r 1546 ax-13 2162 ax-14 2163 ax-ext 2171 ax-coll 4133 ax-sep 4136 ax-nul 4144 ax-pow 4192 ax-pr 4227 ax-un 4451 ax-setind 4554 ax-iinf 4605

This theorem depends on definitions: df-bi 117 df-dc 836 df-3or 981 df-3an 982 df-tru 1367 df-fal 1370 df-nf 1472 df-sb 1774 df-eu 2041 df-mo 2042 df-clab 2176 df-cleq 2182 df-clel 2185 df-nfc 2321 df-ne 2361 df-ral 2473 df-rex 2474 df-reu 2475 df-rab 2477 df-v 2754 df-sbc 2978 df-csb 3073 df-dif 3146 df-un 3148 df-in 3150 df-ss 3157 df-nul 3438 df-pw 3592 df-sn 3613 df-pr 3614 df-op 3616 df-uni 3825 df-int 3860 df-iun 3903 df-br 4019 df-opab 4080 df-mpt 4081 df-tr 4117 df-eprel 4307 df-id 4311 df-po 4314 df-iso 4315 df-iord 4384 df-on 4386 df-suc 4389 df-iom 4608 df-xp 4650 df-rel 4651 df-cnv 4652 df-co 4653 df-dm 4654 df-rn 4655 df-res 4656 df-ima 4657 df-iota 5196 df-fun 5237 df-fn 5238 df-f 5239 df-f1 5240 df-fo 5241 df-f1o 5242 df-fv 5243 df-ov 5899 df-oprab 5900 df-mpo 5901 df-1st 6165 df-2nd 6166 df-recs 6330 df-irdg 6395 df-oadd 6445 df-omul 6446 df-er 6559 df-ec 6561 df-qs 6565 df-ni 7333 df-mi 7335 df-lti 7336 df-enq 7376 df-nqqs 7377 df-ltnqqs 7382 df-inp 7495

This theorem is referenced by: addclpr 7566 mulclpr 7601

W3C validator