genprndl - Intuitionistic Logic Explorer

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

Theorem genprndl 7696

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 7687	. . . . . . . . 9 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ ∃𝑎 ∈ (1^st ‘𝐴)∃𝑏 ∈ (1^st ‘𝐵)𝑞 = (𝑎𝐺𝑏)))
4		r2ex 2550	. . . . . . . . 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 7650	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
9		prnmaxl 7663	. . . . . . . . . . . . . . . 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 7650	. . . . . . . . . . . . . . . 16 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
12		prnmaxl 7663	. . . . . . . . . . . . . . . 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 590	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑎 ∈ (1^st ‘𝐴) ∧ 𝑏 ∈ (1^st ‘𝐵))) → (∃𝑐 ∈ (1^st ‘𝐴)𝑎 <_Q 𝑐 ∧ ∃𝑑 ∈ (1^st ‘𝐵)𝑏 <_Q 𝑑))
16		reeanv 2701	. . . . . . . . . . . . 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 7685	. . . . . . . . . . . . . 14 ⊢ ((𝑎 <_Q 𝑐 ∧ 𝑏 <_Q 𝑑) → (𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑))
21	20	reximi 2627	. . . . . . . . . . . . 13 ⊢ (∃𝑑 ∈ (1^st ‘𝐵)(𝑎 <_Q 𝑐 ∧ 𝑏 <_Q 𝑑) → ∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑))
22	21	reximi 2627	. . . . . . . . . . . 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 4085	. . . . . . . . . . . . . 14 ⊢ (𝑞 = (𝑎𝐺𝑏) → (𝑞 <_Q (𝑐𝐺𝑑) ↔ (𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑)))
26	25	biimprd 158	. . . . . . . . . . . . 13 ⊢ (𝑞 = (𝑎𝐺𝑏) → ((𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑) → 𝑞 <_Q (𝑐𝐺𝑑)))
27	26	reximdv 2631	. . . . . . . . . . . 12 ⊢ (𝑞 = (𝑎𝐺𝑏) → (∃𝑑 ∈ (1^st ‘𝐵)(𝑎𝐺𝑏) <_Q (𝑐𝐺𝑑) → ∃𝑑 ∈ (1^st ‘𝐵)𝑞 <_Q (𝑐𝐺𝑑)))
28	27	reximdv 2631	. . . . . . . . . . 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 1944	. . . . . . 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 7689	. . . . . . . . 9 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵)) → (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵))))
36	35	imp 124	. . . . . . . 8 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑐𝐺𝑑) ∈ (1^st ‘(𝐴𝐹𝐵)))
37		elprnql 7656	. . . . . . . . . . . . 13 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑐 ∈ (1^st ‘𝐴)) → 𝑐 ∈ Q)
38	8, 37	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝑐 ∈ (1^st ‘𝐴)) → 𝑐 ∈ Q)
39		elprnql 7656	. . . . . . . . . . . . 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 590	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑐 ∈ Q ∧ 𝑑 ∈ Q))
43	2	caovcl 6151	. . . . . . . . . 10 ⊢ ((𝑐 ∈ Q ∧ 𝑑 ∈ Q) → (𝑐𝐺𝑑) ∈ Q)
44	42, 43	syl 14	. . . . . . . . 9 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ (𝑐 ∈ (1^st ‘𝐴) ∧ 𝑑 ∈ (1^st ‘𝐵))) → (𝑐𝐺𝑑) ∈ Q)
45		breq2 4086	. . . . . . . . . . 11 ⊢ (𝑟 = (𝑐𝐺𝑑) → (𝑞 <_Q 𝑟 ↔ 𝑞 <_Q (𝑐𝐺𝑑)))
46		eleq1 2292	. . . . . . . . . . 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 2911	. . . . . . . 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 2656	. . . . . 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 7694	. . . . . . . . . 10 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) → (𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵)))))
57	56	alrimdv 1922	. . . . . . . . 9 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) → ∀𝑥(𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵)))))
58		breq1 4085	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑞 → (𝑥 <_Q 𝑟 ↔ 𝑞 <_Q 𝑟))
59		eleq1 2292	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑞 → (𝑥 ∈ (1^st ‘(𝐴𝐹𝐵)) ↔ 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
60	58, 59	imbi12d 234	. . . . . . . . . 10 ⊢ (𝑥 = 𝑞 → ((𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵))) ↔ (𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))))
61	60	cbvalv 1964	. . . . . . . . 9 ⊢ (∀𝑥(𝑥 <_Q 𝑟 → 𝑥 ∈ (1^st ‘(𝐴𝐹𝐵))) ↔ ∀𝑞(𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵))))
62	57, 61	imbitrdi 161	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑟 ∈ (1^st ‘(𝐴𝐹𝐵)) → ∀𝑞(𝑞 <_Q 𝑟 → 𝑞 ∈ (1^st ‘(𝐴𝐹𝐵)))))
63		sp 1557	. . . . . . . 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 2648	. . 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 2603	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 1002 ∀wal 1393 = wceq 1395 ∃wex 1538 ∈ wcel 2200 ∀wral 2508 ∃wrex 2509 {crab 2512 ⟨cop 3669 class class class wbr 4082 ‘cfv 5314 (class class class)co 5994 ∈ cmpo 5996 1^st c1st 6274 2^nd c2nd 6275 Qcnq 7455 <_Q cltq 7460 Pcnp 7466

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 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4198 ax-sep 4201 ax-nul 4209 ax-pow 4257 ax-pr 4292 ax-un 4521 ax-setind 4626 ax-iinf 4677

This theorem depends on definitions: df-bi 117 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-ral 2513 df-rex 2514 df-reu 2515 df-rab 2517 df-v 2801 df-sbc 3029 df-csb 3125 df-dif 3199 df-un 3201 df-in 3203 df-ss 3210 df-nul 3492 df-pw 3651 df-sn 3672 df-pr 3673 df-op 3675 df-uni 3888 df-int 3923 df-iun 3966 df-br 4083 df-opab 4145 df-mpt 4146 df-tr 4182 df-eprel 4377 df-id 4381 df-po 4384 df-iso 4385 df-iord 4454 df-on 4456 df-suc 4459 df-iom 4680 df-xp 4722 df-rel 4723 df-cnv 4724 df-co 4725 df-dm 4726 df-rn 4727 df-res 4728 df-ima 4729 df-iota 5274 df-fun 5316 df-fn 5317 df-f 5318 df-f1 5319 df-fo 5320 df-f1o 5321 df-fv 5322 df-ov 5997 df-oprab 5998 df-mpo 5999 df-1st 6276 df-2nd 6277 df-recs 6441 df-irdg 6506 df-oadd 6556 df-omul 6557 df-er 6670 df-ec 6672 df-qs 6676 df-ni 7479 df-mi 7481 df-lti 7482 df-enq 7522 df-nqqs 7523 df-ltnqqs 7528 df-inp 7641

This theorem is referenced by: addclpr 7712 mulclpr 7747

W3C validator