Theorem recexprlem1ssu 7466

Description: The upper cut of one is a subset of the upper cut of 𝐴 ·_P 𝐵. Lemma for recexpr 7470. (Contributed by Jim Kingdon, 27-Dec-2019.)

Hypothesis

Ref	Expression
recexpr.1	⊢ 𝐵 = ⟨{𝑥 ∣ ∃𝑦(𝑥 <Q 𝑦 ∧ (*Q‘𝑦) ∈ (2nd ‘𝐴))}, {𝑥 ∣ ∃𝑦(𝑦 <Q 𝑥 ∧ (*Q‘𝑦) ∈ (1st ‘𝐴))}⟩

Assertion

Ref	Expression
recexprlem1ssu	⊢ (𝐴 ∈ P → (2nd ‘1P) ⊆ (2nd ‘(𝐴 ·P 𝐵)))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵,𝑦

Proof of Theorem recexprlem1ssu

Dummy variables 𝑧 𝑤 𝑣 𝑢 𝑓 𝑔 ℎ are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		1pru 7388	. . . 4 ⊢ (2nd ‘1P) = {𝑤 ∣ 1Q <Q 𝑤}
2	1	abeq2i 2251	. . 3 ⊢ (𝑤 ∈ (2nd ‘1P) ↔ 1Q <Q 𝑤)
3		prop 7307	. . . . . 6 ⊢ (𝐴 ∈ P → ⟨(1st ‘𝐴), (2nd ‘𝐴)⟩ ∈ P)
4		prmuloc2 7399	. . . . . 6 ⊢ ((⟨(1st ‘𝐴), (2nd ‘𝐴)⟩ ∈ P ∧ 1Q <Q 𝑤) → ∃𝑣 ∈ (1st ‘𝐴)(𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))
5	3, 4	sylan 281	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 1Q <Q 𝑤) → ∃𝑣 ∈ (1st ‘𝐴)(𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))
6		prnminu 7321	. . . . . . . 8 ⊢ ((⟨(1st ‘𝐴), (2nd ‘𝐴)⟩ ∈ P ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) → ∃𝑧 ∈ (2nd ‘𝐴)𝑧 <Q (𝑣 ·Q 𝑤))
7	3, 6	sylan 281	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) → ∃𝑧 ∈ (2nd ‘𝐴)𝑧 <Q (𝑣 ·Q 𝑤))
8	7	ad2ant2rl 503	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))) → ∃𝑧 ∈ (2nd ‘𝐴)𝑧 <Q (𝑣 ·Q 𝑤))
9		simp3 984	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → 𝑧 <Q (𝑣 ·Q 𝑤))
10		simp2l 1008	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → 𝑣 ∈ (1st ‘𝐴))
11		elprnql 7313	. . . . . . . . . . . . . . . . . 18 ⊢ ((⟨(1st ‘𝐴), (2nd ‘𝐴)⟩ ∈ P ∧ 𝑣 ∈ (1st ‘𝐴)) → 𝑣 ∈ Q)
12	3, 11	sylan 281	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ P ∧ 𝑣 ∈ (1st ‘𝐴)) → 𝑣 ∈ Q)
13	12	ad2ant2r 501	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))) → 𝑣 ∈ Q)
14	13	3adant3 1002	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → 𝑣 ∈ Q)
15		simp1r 1007	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → 1Q <Q 𝑤)
16		ltrelnq 7197	. . . . . . . . . . . . . . . . . 18 ⊢ <Q ⊆ (Q × Q)
17	16	brel 4599	. . . . . . . . . . . . . . . . 17 ⊢ (1Q <Q 𝑤 → (1Q ∈ Q ∧ 𝑤 ∈ Q))
18	17	simprd 113	. . . . . . . . . . . . . . . 16 ⊢ (1Q <Q 𝑤 → 𝑤 ∈ Q)
19	15, 18	syl 14	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → 𝑤 ∈ Q)
20		recclnq 7224	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ Q → (*Q‘𝑤) ∈ Q)
21	19, 20	syl 14	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (*Q‘𝑤) ∈ Q)
22		mulassnqg 7216	. . . . . . . . . . . . . . 15 ⊢ ((𝑣 ∈ Q ∧ 𝑤 ∈ Q ∧ (*Q‘𝑤) ∈ Q) → ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) = (𝑣 ·Q (𝑤 ·Q (*Q‘𝑤))))
23	14, 19, 21, 22	syl3anc 1217	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) = (𝑣 ·Q (𝑤 ·Q (*Q‘𝑤))))
24		recidnq 7225	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ Q → (𝑤 ·Q (*Q‘𝑤)) = 1Q)
25	19, 24	syl 14	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (𝑤 ·Q (*Q‘𝑤)) = 1Q)
26	25	oveq2d 5798	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (𝑣 ·Q (𝑤 ·Q (*Q‘𝑤))) = (𝑣 ·Q 1Q))
27		mulidnq 7221	. . . . . . . . . . . . . . 15 ⊢ (𝑣 ∈ Q → (𝑣 ·Q 1Q) = 𝑣)
28	14, 27	syl 14	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (𝑣 ·Q 1Q) = 𝑣)
29	23, 26, 28	3eqtrd 2177	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) = 𝑣)
30	29	eleq1d 2209	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ∈ (1st ‘𝐴) ↔ 𝑣 ∈ (1st ‘𝐴)))
31	10, 30	mpbird 166	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ∈ (1st ‘𝐴))
32		ltrnqi 7253	. . . . . . . . . . . . 13 ⊢ (𝑧 <Q (𝑣 ·Q 𝑤) → (*Q‘(𝑣 ·Q 𝑤)) <Q (*Q‘𝑧))
33		ltmnqg 7233	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑓 <Q 𝑔 ↔ (ℎ ·Q 𝑓) <Q (ℎ ·Q 𝑔)))
34	33	adantl 275	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q)) → (𝑓 <Q 𝑔 ↔ (ℎ ·Q 𝑓) <Q (ℎ ·Q 𝑔)))
35		mulclnq 7208	. . . . . . . . . . . . . . . 16 ⊢ ((𝑣 ∈ Q ∧ 𝑤 ∈ Q) → (𝑣 ·Q 𝑤) ∈ Q)
36	14, 19, 35	syl2anc 409	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (𝑣 ·Q 𝑤) ∈ Q)
37		recclnq 7224	. . . . . . . . . . . . . . 15 ⊢ ((𝑣 ·Q 𝑤) ∈ Q → (*Q‘(𝑣 ·Q 𝑤)) ∈ Q)
38	36, 37	syl 14	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (*Q‘(𝑣 ·Q 𝑤)) ∈ Q)
39	16	brel 4599	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 <Q (𝑣 ·Q 𝑤) → (𝑧 ∈ Q ∧ (𝑣 ·Q 𝑤) ∈ Q))
40	39	simpld 111	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 <Q (𝑣 ·Q 𝑤) → 𝑧 ∈ Q)
41	9, 40	syl 14	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → 𝑧 ∈ Q)
42		recclnq 7224	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ Q → (*Q‘𝑧) ∈ Q)
43	41, 42	syl 14	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (*Q‘𝑧) ∈ Q)
44		mulcomnqg 7215	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q) → (𝑓 ·Q 𝑔) = (𝑔 ·Q 𝑓))
45	44	adantl 275	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q)) → (𝑓 ·Q 𝑔) = (𝑔 ·Q 𝑓))
46	34, 38, 43, 19, 45	caovord2d 5948	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((*Q‘(𝑣 ·Q 𝑤)) <Q (*Q‘𝑧) ↔ ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) <Q ((*Q‘𝑧) ·Q 𝑤)))
47	32, 46	syl5ib 153	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (𝑧 <Q (𝑣 ·Q 𝑤) → ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) <Q ((*Q‘𝑧) ·Q 𝑤)))
48		1nq 7198	. . . . . . . . . . . . . . . . 17 ⊢ 1Q ∈ Q
49		mulidnq 7221	. . . . . . . . . . . . . . . . 17 ⊢ (1Q ∈ Q → (1Q ·Q 1Q) = 1Q)
50	48, 49	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ (1Q ·Q 1Q) = 1Q
51		mulcomnqg 7215	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑣 ·Q 𝑤) ∈ Q ∧ (*Q‘(𝑣 ·Q 𝑤)) ∈ Q) → ((𝑣 ·Q 𝑤) ·Q (*Q‘(𝑣 ·Q 𝑤))) = ((*Q‘(𝑣 ·Q 𝑤)) ·Q (𝑣 ·Q 𝑤)))
52	37, 51	mpdan 418	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑣 ·Q 𝑤) ∈ Q → ((𝑣 ·Q 𝑤) ·Q (*Q‘(𝑣 ·Q 𝑤))) = ((*Q‘(𝑣 ·Q 𝑤)) ·Q (𝑣 ·Q 𝑤)))
53		recidnq 7225	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑣 ·Q 𝑤) ∈ Q → ((𝑣 ·Q 𝑤) ·Q (*Q‘(𝑣 ·Q 𝑤))) = 1Q)
54	52, 53	eqtr3d 2175	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑣 ·Q 𝑤) ∈ Q → ((*Q‘(𝑣 ·Q 𝑤)) ·Q (𝑣 ·Q 𝑤)) = 1Q)
55	54, 24	oveqan12d 5801	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑣 ·Q 𝑤) ∈ Q ∧ 𝑤 ∈ Q) → (((*Q‘(𝑣 ·Q 𝑤)) ·Q (𝑣 ·Q 𝑤)) ·Q (𝑤 ·Q (*Q‘𝑤))) = (1Q ·Q 1Q))
56	36, 19, 55	syl2anc 409	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (((*Q‘(𝑣 ·Q 𝑤)) ·Q (𝑣 ·Q 𝑤)) ·Q (𝑤 ·Q (*Q‘𝑤))) = (1Q ·Q 1Q))
57		mulassnqg 7216	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q) → ((𝑓 ·Q 𝑔) ·Q ℎ) = (𝑓 ·Q (𝑔 ·Q ℎ)))
58	57	adantl 275	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q ∧ ℎ ∈ Q)) → ((𝑓 ·Q 𝑔) ·Q ℎ) = (𝑓 ·Q (𝑔 ·Q ℎ)))
59		mulclnq 7208	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑓 ∈ Q ∧ 𝑔 ∈ Q) → (𝑓 ·Q 𝑔) ∈ Q)
60	59	adantl 275	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) ∧ (𝑓 ∈ Q ∧ 𝑔 ∈ Q)) → (𝑓 ·Q 𝑔) ∈ Q)
61	38, 36, 19, 45, 58, 21, 60	caov4d 5963	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (((*Q‘(𝑣 ·Q 𝑤)) ·Q (𝑣 ·Q 𝑤)) ·Q (𝑤 ·Q (*Q‘𝑤))) = (((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ·Q ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤))))
62	56, 61	eqtr3d 2175	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (1Q ·Q 1Q) = (((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ·Q ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤))))
63	50, 62	syl5reqr 2188	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ·Q ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤))) = 1Q)
64	60, 38, 19	caovcld 5932	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ∈ Q)
65	60, 36, 21	caovcld 5932	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ∈ Q)
66		recmulnqg 7223	. . . . . . . . . . . . . . . 16 ⊢ ((((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ∈ Q ∧ ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ∈ Q) → ((*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) = ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ↔ (((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ·Q ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤))) = 1Q))
67	64, 65, 66	syl2anc 409	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) = ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ↔ (((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ·Q ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤))) = 1Q))
68	63, 67	mpbird 166	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) = ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)))
69	68	eleq1d 2209	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) ∈ (1st ‘𝐴) ↔ ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ∈ (1st ‘𝐴)))
70	69	biimprd 157	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → (((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ∈ (1st ‘𝐴) → (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) ∈ (1st ‘𝐴)))
71		breq1 3940	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) → (𝑦 <Q ((*Q‘𝑧) ·Q 𝑤) ↔ ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) <Q ((*Q‘𝑧) ·Q 𝑤)))
72		fveq2 5429	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) → (*Q‘𝑦) = (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)))
73	72	eleq1d 2209	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) → ((*Q‘𝑦) ∈ (1st ‘𝐴) ↔ (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) ∈ (1st ‘𝐴)))
74	71, 73	anbi12d 465	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = ((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) → ((𝑦 <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘𝑦) ∈ (1st ‘𝐴)) ↔ (((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) ∈ (1st ‘𝐴))))
75	74	spcegv 2777	. . . . . . . . . . . . . 14 ⊢ (((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) ∈ Q → ((((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) ∈ (1st ‘𝐴)) → ∃𝑦(𝑦 <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘𝑦) ∈ (1st ‘𝐴))))
76	64, 75	syl 14	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) ∈ (1st ‘𝐴)) → ∃𝑦(𝑦 <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘𝑦) ∈ (1st ‘𝐴))))
77		recexpr.1	. . . . . . . . . . . . . 14 ⊢ 𝐵 = ⟨{𝑥 ∣ ∃𝑦(𝑥 <Q 𝑦 ∧ (*Q‘𝑦) ∈ (2nd ‘𝐴))}, {𝑥 ∣ ∃𝑦(𝑦 <Q 𝑥 ∧ (*Q‘𝑦) ∈ (1st ‘𝐴))}⟩
78	77	recexprlemelu 7455	. . . . . . . . . . . . 13 ⊢ (((*Q‘𝑧) ·Q 𝑤) ∈ (2nd ‘𝐵) ↔ ∃𝑦(𝑦 <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘𝑦) ∈ (1st ‘𝐴)))
79	76, 78	syl6ibr 161	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤) <Q ((*Q‘𝑧) ·Q 𝑤) ∧ (*Q‘((*Q‘(𝑣 ·Q 𝑤)) ·Q 𝑤)) ∈ (1st ‘𝐴)) → ((*Q‘𝑧) ·Q 𝑤) ∈ (2nd ‘𝐵)))
80	47, 70, 79	syl2and 293	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((𝑧 <Q (𝑣 ·Q 𝑤) ∧ ((𝑣 ·Q 𝑤) ·Q (*Q‘𝑤)) ∈ (1st ‘𝐴)) → ((*Q‘𝑧) ·Q 𝑤) ∈ (2nd ‘𝐵)))
81	9, 31, 80	mp2and 430	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ((*Q‘𝑧) ·Q 𝑤) ∈ (2nd ‘𝐵))
82		mulidnq 7221	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ Q → (𝑤 ·Q 1Q) = 𝑤)
83		mulcomnqg 7215	. . . . . . . . . . . . . . 15 ⊢ ((𝑤 ∈ Q ∧ 1Q ∈ Q) → (𝑤 ·Q 1Q) = (1Q ·Q 𝑤))
84	48, 83	mpan2 422	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ Q → (𝑤 ·Q 1Q) = (1Q ·Q 𝑤))
85	82, 84	eqtr3d 2175	. . . . . . . . . . . . 13 ⊢ (𝑤 ∈ Q → 𝑤 = (1Q ·Q 𝑤))
86	85	adantl 275	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ Q ∧ 𝑤 ∈ Q) → 𝑤 = (1Q ·Q 𝑤))
87		recidnq 7225	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ Q → (𝑧 ·Q (*Q‘𝑧)) = 1Q)
88	87	oveq1d 5797	. . . . . . . . . . . . 13 ⊢ (𝑧 ∈ Q → ((𝑧 ·Q (*Q‘𝑧)) ·Q 𝑤) = (1Q ·Q 𝑤))
89	88	adantr 274	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ Q ∧ 𝑤 ∈ Q) → ((𝑧 ·Q (*Q‘𝑧)) ·Q 𝑤) = (1Q ·Q 𝑤))
90		mulassnqg 7216	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ∈ Q ∧ (*Q‘𝑧) ∈ Q ∧ 𝑤 ∈ Q) → ((𝑧 ·Q (*Q‘𝑧)) ·Q 𝑤) = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤)))
91	42, 90	syl3an2 1251	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ Q ∧ 𝑧 ∈ Q ∧ 𝑤 ∈ Q) → ((𝑧 ·Q (*Q‘𝑧)) ·Q 𝑤) = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤)))
92	91	3anidm12 1274	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ Q ∧ 𝑤 ∈ Q) → ((𝑧 ·Q (*Q‘𝑧)) ·Q 𝑤) = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤)))
93	86, 89, 92	3eqtr2d 2179	. . . . . . . . . . 11 ⊢ ((𝑧 ∈ Q ∧ 𝑤 ∈ Q) → 𝑤 = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤)))
94	41, 19, 93	syl2anc 409	. . . . . . . . . 10 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → 𝑤 = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤)))
95		oveq2 5790	. . . . . . . . . . . 12 ⊢ (𝑥 = ((*Q‘𝑧) ·Q 𝑤) → (𝑧 ·Q 𝑥) = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤)))
96	95	eqeq2d 2152	. . . . . . . . . . 11 ⊢ (𝑥 = ((*Q‘𝑧) ·Q 𝑤) → (𝑤 = (𝑧 ·Q 𝑥) ↔ 𝑤 = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤))))
97	96	rspcev 2793	. . . . . . . . . 10 ⊢ ((((*Q‘𝑧) ·Q 𝑤) ∈ (2nd ‘𝐵) ∧ 𝑤 = (𝑧 ·Q ((*Q‘𝑧) ·Q 𝑤))) → ∃𝑥 ∈ (2nd ‘𝐵)𝑤 = (𝑧 ·Q 𝑥))
98	81, 94, 97	syl2anc 409	. . . . . . . . 9 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴)) ∧ 𝑧 <Q (𝑣 ·Q 𝑤)) → ∃𝑥 ∈ (2nd ‘𝐵)𝑤 = (𝑧 ·Q 𝑥))
99	98	3expia 1184	. . . . . . . 8 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))) → (𝑧 <Q (𝑣 ·Q 𝑤) → ∃𝑥 ∈ (2nd ‘𝐵)𝑤 = (𝑧 ·Q 𝑥)))
100	99	reximdv 2536	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))) → (∃𝑧 ∈ (2nd ‘𝐴)𝑧 <Q (𝑣 ·Q 𝑤) → ∃𝑧 ∈ (2nd ‘𝐴)∃𝑥 ∈ (2nd ‘𝐵)𝑤 = (𝑧 ·Q 𝑥)))
101	77	recexprlempr 7464	. . . . . . . . 9 ⊢ (𝐴 ∈ P → 𝐵 ∈ P)
102		df-imp 7301	. . . . . . . . . 10 ⊢ ·P = (𝑦 ∈ P, 𝑤 ∈ P ↦ ⟨{𝑢 ∈ Q ∣ ∃𝑓 ∈ Q ∃𝑔 ∈ Q (𝑓 ∈ (1st ‘𝑦) ∧ 𝑔 ∈ (1st ‘𝑤) ∧ 𝑢 = (𝑓 ·Q 𝑔))}, {𝑢 ∈ Q ∣ ∃𝑓 ∈ Q ∃𝑔 ∈ Q (𝑓 ∈ (2nd ‘𝑦) ∧ 𝑔 ∈ (2nd ‘𝑤) ∧ 𝑢 = (𝑓 ·Q 𝑔))}⟩)
103	102, 59	genpelvu 7345	. . . . . . . . 9 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵)) ↔ ∃𝑧 ∈ (2nd ‘𝐴)∃𝑥 ∈ (2nd ‘𝐵)𝑤 = (𝑧 ·Q 𝑥)))
104	101, 103	mpdan 418	. . . . . . . 8 ⊢ (𝐴 ∈ P → (𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵)) ↔ ∃𝑧 ∈ (2nd ‘𝐴)∃𝑥 ∈ (2nd ‘𝐵)𝑤 = (𝑧 ·Q 𝑥)))
105	104	ad2antrr 480	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))) → (𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵)) ↔ ∃𝑧 ∈ (2nd ‘𝐴)∃𝑥 ∈ (2nd ‘𝐵)𝑤 = (𝑧 ·Q 𝑥)))
106	100, 105	sylibrd 168	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))) → (∃𝑧 ∈ (2nd ‘𝐴)𝑧 <Q (𝑣 ·Q 𝑤) → 𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵))))
107	8, 106	mpd 13	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 1Q <Q 𝑤) ∧ (𝑣 ∈ (1st ‘𝐴) ∧ (𝑣 ·Q 𝑤) ∈ (2nd ‘𝐴))) → 𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵)))
108	5, 107	rexlimddv 2557	. . . 4 ⊢ ((𝐴 ∈ P ∧ 1Q <Q 𝑤) → 𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵)))
109	108	ex 114	. . 3 ⊢ (𝐴 ∈ P → (1Q <Q 𝑤 → 𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵))))
110	2, 109	syl5bi 151	. 2 ⊢ (𝐴 ∈ P → (𝑤 ∈ (2nd ‘1P) → 𝑤 ∈ (2nd ‘(𝐴 ·P 𝐵))))
111	110	ssrdv 3108	1 ⊢ (𝐴 ∈ P → (2nd ‘1P) ⊆ (2nd ‘(𝐴 ·P 𝐵)))

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   ∧ w3a 963   = wceq 1332  ∃wex 1469   ∈ wcel 1481  {cab 2126  ∃wrex 2418   ⊆ wss 3076  ⟨cop 3535   class class class wbr 3937  ‘cfv 5131  (class class class)co 5782  1^st c1st 6044  2^nd c2nd 6045  Qcnq 7112  1_Qc1q 7113   ·_Q cmq 7115  *_Qcrq 7116   <_Q cltq 7117  Pcnp 7123  1_Pc1p 7124   ·_P cmp 7126

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 1424  ax-7 1425  ax-gen 1426  ax-ie1 1470  ax-ie2 1471  ax-8 1483  ax-10 1484  ax-11 1485  ax-i12 1486  ax-bndl 1487  ax-4 1488  ax-13 1492  ax-14 1493  ax-17 1507  ax-i9 1511  ax-ial 1515  ax-i5r 1516  ax-ext 2122  ax-coll 4051  ax-sep 4054  ax-nul 4062  ax-pow 4106  ax-pr 4139  ax-un 4363  ax-setind 4460  ax-iinf 4510

This theorem depends on definitions:  df-bi 116  df-dc 821  df-3or 964  df-3an 965  df-tru 1335  df-fal 1338  df-nf 1438  df-sb 1737  df-eu 2003  df-mo 2004  df-clab 2127  df-cleq 2133  df-clel 2136  df-nfc 2271  df-ne 2310  df-ral 2422  df-rex 2423  df-reu 2424  df-rab 2426  df-v 2691  df-sbc 2914  df-csb 3008  df-dif 3078  df-un 3080  df-in 3082  df-ss 3089  df-nul 3369  df-pw 3517  df-sn 3538  df-pr 3539  df-op 3541  df-uni 3745  df-int 3780  df-iun 3823  df-br 3938  df-opab 3998  df-mpt 3999  df-tr 4035  df-eprel 4219  df-id 4223  df-po 4226  df-iso 4227  df-iord 4296  df-on 4298  df-suc 4301  df-iom 4513  df-xp 4553  df-rel 4554  df-cnv 4555  df-co 4556  df-dm 4557  df-rn 4558  df-res 4559  df-ima 4560  df-iota 5096  df-fun 5133  df-fn 5134  df-f 5135  df-f1 5136  df-fo 5137  df-f1o 5138  df-fv 5139  df-ov 5785  df-oprab 5786  df-mpo 5787  df-1st 6046  df-2nd 6047  df-recs 6210  df-irdg 6275  df-1o 6321  df-2o 6322  df-oadd 6325  df-omul 6326  df-er 6437  df-ec 6439  df-qs 6443  df-ni 7136  df-pli 7137  df-mi 7138  df-lti 7139  df-plpq 7176  df-mpq 7177  df-enq 7179  df-nqqs 7180  df-plqqs 7181  df-mqqs 7182  df-1nqqs 7183  df-rq 7184  df-ltnqqs 7185  df-enq0 7256  df-nq0 7257  df-0nq0 7258  df-plq0 7259  df-mq0 7260  df-inp 7298  df-i1p 7299  df-imp 7301

This theorem is referenced by:  recexprlemex  7469