Theorem distrlem4pru 7902

Description: Lemma for distributive law for positive reals. (Contributed by Jim Kingdon, 12-Dec-2019.)

Assertion

Ref	Expression
distrlem4pru	⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))

Distinct variable groups:   𝑥,𝑦,𝑧,𝑓,𝐴   𝑥,𝐵,𝑦,𝑧,𝑓   𝑥,𝐶,𝑦,𝑧,𝑓

Proof of Theorem distrlem4pru

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

Step	Hyp	Ref	Expression
1		ltmnqg 7718	. . . . . . 7 ⊢ ((𝑤 ∈ Q ∧ 𝑣 ∈ Q ∧ 𝑢 ∈ Q) → (𝑤 <Q 𝑣 ↔ (𝑢 ·Q 𝑤) <Q (𝑢 ·Q 𝑣)))
2	1	adantl 277	. . . . . 6 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) ∧ (𝑤 ∈ Q ∧ 𝑣 ∈ Q ∧ 𝑢 ∈ Q)) → (𝑤 <Q 𝑣 ↔ (𝑢 ·Q 𝑤) <Q (𝑢 ·Q 𝑣)))
3		simp1 1024	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → 𝐴 ∈ P)
4		simpll 527	. . . . . . 7 ⊢ (((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶))) → 𝑥 ∈ (2nd ‘𝐴))
5		prop 7792	. . . . . . . 8 ⊢ (𝐴 ∈ P → ⟨(1st ‘𝐴), (2nd ‘𝐴)⟩ ∈ P)
6		elprnqu 7799	. . . . . . . 8 ⊢ ((⟨(1st ‘𝐴), (2nd ‘𝐴)⟩ ∈ P ∧ 𝑥 ∈ (2nd ‘𝐴)) → 𝑥 ∈ Q)
7	5, 6	sylan 283	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝑥 ∈ (2nd ‘𝐴)) → 𝑥 ∈ Q)
8	3, 4, 7	syl2an 289	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑥 ∈ Q)
9		simprl 531	. . . . . . 7 ⊢ (((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶))) → 𝑓 ∈ (2nd ‘𝐴))
10		elprnqu 7799	. . . . . . . 8 ⊢ ((⟨(1st ‘𝐴), (2nd ‘𝐴)⟩ ∈ P ∧ 𝑓 ∈ (2nd ‘𝐴)) → 𝑓 ∈ Q)
11	5, 10	sylan 283	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝑓 ∈ (2nd ‘𝐴)) → 𝑓 ∈ Q)
12	3, 9, 11	syl2an 289	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑓 ∈ Q)
13		simpl3 1029	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝐶 ∈ P)
14		simprrr 542	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑧 ∈ (2nd ‘𝐶))
15		prop 7792	. . . . . . . 8 ⊢ (𝐶 ∈ P → ⟨(1st ‘𝐶), (2nd ‘𝐶)⟩ ∈ P)
16		elprnqu 7799	. . . . . . . 8 ⊢ ((⟨(1st ‘𝐶), (2nd ‘𝐶)⟩ ∈ P ∧ 𝑧 ∈ (2nd ‘𝐶)) → 𝑧 ∈ Q)
17	15, 16	sylan 283	. . . . . . 7 ⊢ ((𝐶 ∈ P ∧ 𝑧 ∈ (2nd ‘𝐶)) → 𝑧 ∈ Q)
18	13, 14, 17	syl2anc 411	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑧 ∈ Q)
19		mulcomnqg 7700	. . . . . . 7 ⊢ ((𝑤 ∈ Q ∧ 𝑣 ∈ Q) → (𝑤 ·Q 𝑣) = (𝑣 ·Q 𝑤))
20	19	adantl 277	. . . . . 6 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) ∧ (𝑤 ∈ Q ∧ 𝑣 ∈ Q)) → (𝑤 ·Q 𝑣) = (𝑣 ·Q 𝑤))
21	2, 8, 12, 18, 20	caovord2d 6226	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 <Q 𝑓 ↔ (𝑥 ·Q 𝑧) <Q (𝑓 ·Q 𝑧)))
22		mulclnq 7693	. . . . . . 7 ⊢ ((𝑥 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 ·Q 𝑧) ∈ Q)
23	8, 18, 22	syl2anc 411	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 ·Q 𝑧) ∈ Q)
24		mulclnq 7693	. . . . . . 7 ⊢ ((𝑓 ∈ Q ∧ 𝑧 ∈ Q) → (𝑓 ·Q 𝑧) ∈ Q)
25	12, 18, 24	syl2anc 411	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑓 ·Q 𝑧) ∈ Q)
26		simpl2 1028	. . . . . . . 8 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝐵 ∈ P)
27		simprlr 540	. . . . . . . 8 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑦 ∈ (2nd ‘𝐵))
28		prop 7792	. . . . . . . . 9 ⊢ (𝐵 ∈ P → ⟨(1st ‘𝐵), (2nd ‘𝐵)⟩ ∈ P)
29		elprnqu 7799	. . . . . . . . 9 ⊢ ((⟨(1st ‘𝐵), (2nd ‘𝐵)⟩ ∈ P ∧ 𝑦 ∈ (2nd ‘𝐵)) → 𝑦 ∈ Q)
30	28, 29	sylan 283	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝑦 ∈ (2nd ‘𝐵)) → 𝑦 ∈ Q)
31	26, 27, 30	syl2anc 411	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑦 ∈ Q)
32		mulclnq 7693	. . . . . . 7 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 ·Q 𝑦) ∈ Q)
33	8, 31, 32	syl2anc 411	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 ·Q 𝑦) ∈ Q)
34		ltanqg 7717	. . . . . 6 ⊢ (((𝑥 ·Q 𝑧) ∈ Q ∧ (𝑓 ·Q 𝑧) ∈ Q ∧ (𝑥 ·Q 𝑦) ∈ Q) → ((𝑥 ·Q 𝑧) <Q (𝑓 ·Q 𝑧) ↔ ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧))))
35	23, 25, 33, 34	syl3anc 1274	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑥 ·Q 𝑧) <Q (𝑓 ·Q 𝑧) ↔ ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧))))
36	21, 35	bitrd 188	. . . 4 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 <Q 𝑓 ↔ ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧))))
37		simpl1 1027	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝐴 ∈ P)
38		addclpr 7854	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝐵 +P 𝐶) ∈ P)
39	38	3adant1 1042	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) → (𝐵 +P 𝐶) ∈ P)
40	39	adantr 276	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝐵 +P 𝐶) ∈ P)
41		mulclpr 7889	. . . . . 6 ⊢ ((𝐴 ∈ P ∧ (𝐵 +P 𝐶) ∈ P) → (𝐴 ·P (𝐵 +P 𝐶)) ∈ P)
42	37, 40, 41	syl2anc 411	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝐴 ·P (𝐵 +P 𝐶)) ∈ P)
43		distrnqg 7704	. . . . . . 7 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 ·Q (𝑦 +Q 𝑧)) = ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)))
44	8, 31, 18, 43	syl3anc 1274	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 ·Q (𝑦 +Q 𝑧)) = ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)))
45		simprll 539	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑥 ∈ (2nd ‘𝐴))
46		df-iplp 7785	. . . . . . . . . 10 ⊢ +P = (𝑢 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑤 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (1st ‘𝑢) ∧ ℎ ∈ (1st ‘𝑣) ∧ 𝑤 = (𝑔 +Q ℎ))}, {𝑤 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (2nd ‘𝑢) ∧ ℎ ∈ (2nd ‘𝑣) ∧ 𝑤 = (𝑔 +Q ℎ))}⟩)
47		addclnq 7692	. . . . . . . . . 10 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑔 +Q ℎ) ∈ Q)
48	46, 47	genppreclu 7832	. . . . . . . . 9 ⊢ ((𝐵 ∈ P ∧ 𝐶 ∈ P) → ((𝑦 ∈ (2nd ‘𝐵) ∧ 𝑧 ∈ (2nd ‘𝐶)) → (𝑦 +Q 𝑧) ∈ (2nd ‘(𝐵 +P 𝐶))))
49	48	imp 124	. . . . . . . 8 ⊢ (((𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ (𝑦 ∈ (2nd ‘𝐵) ∧ 𝑧 ∈ (2nd ‘𝐶))) → (𝑦 +Q 𝑧) ∈ (2nd ‘(𝐵 +P 𝐶)))
50	26, 13, 27, 14, 49	syl22anc 1275	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑦 +Q 𝑧) ∈ (2nd ‘(𝐵 +P 𝐶)))
51		df-imp 7786	. . . . . . . . 9 ⊢ ·P = (𝑢 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑤 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (1st ‘𝑢) ∧ ℎ ∈ (1st ‘𝑣) ∧ 𝑤 = (𝑔 ·Q ℎ))}, {𝑤 ∈ Q ∣ ∃𝑔 ∈ Q ∃ℎ ∈ Q (𝑔 ∈ (2nd ‘𝑢) ∧ ℎ ∈ (2nd ‘𝑣) ∧ 𝑤 = (𝑔 ·Q ℎ))}⟩)
52		mulclnq 7693	. . . . . . . . 9 ⊢ ((𝑔 ∈ Q ∧ ℎ ∈ Q) → (𝑔 ·Q ℎ) ∈ Q)
53	51, 52	genppreclu 7832	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ (𝐵 +P 𝐶) ∈ P) → ((𝑥 ∈ (2nd ‘𝐴) ∧ (𝑦 +Q 𝑧) ∈ (2nd ‘(𝐵 +P 𝐶))) → (𝑥 ·Q (𝑦 +Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
54	53	imp 124	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ (𝐵 +P 𝐶) ∈ P) ∧ (𝑥 ∈ (2nd ‘𝐴) ∧ (𝑦 +Q 𝑧) ∈ (2nd ‘(𝐵 +P 𝐶)))) → (𝑥 ·Q (𝑦 +Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
55	37, 40, 45, 50, 54	syl22anc 1275	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 ·Q (𝑦 +Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
56	44, 55	eqeltrrd 2312	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
57		prop 7792	. . . . . 6 ⊢ ((𝐴 ·P (𝐵 +P 𝐶)) ∈ P → ⟨(1st ‘(𝐴 ·P (𝐵 +P 𝐶))), (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))⟩ ∈ P)
58		prcunqu 7802	. . . . . 6 ⊢ ((⟨(1st ‘(𝐴 ·P (𝐵 +P 𝐶))), (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))⟩ ∈ P ∧ ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))) → (((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
59	57, 58	sylan 283	. . . . 5 ⊢ (((𝐴 ·P (𝐵 +P 𝐶)) ∈ P ∧ ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))) → (((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
60	42, 56, 59	syl2anc 411	. . . 4 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
61	36, 60	sylbid 150	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 <Q 𝑓 → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
62	2, 12, 8, 31, 20	caovord2d 6226	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑓 <Q 𝑥 ↔ (𝑓 ·Q 𝑦) <Q (𝑥 ·Q 𝑦)))
63		ltanqg 7717	. . . . . . 7 ⊢ ((𝑤 ∈ Q ∧ 𝑣 ∈ Q ∧ 𝑢 ∈ Q) → (𝑤 <Q 𝑣 ↔ (𝑢 +Q 𝑤) <Q (𝑢 +Q 𝑣)))
64	63	adantl 277	. . . . . 6 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) ∧ (𝑤 ∈ Q ∧ 𝑣 ∈ Q ∧ 𝑢 ∈ Q)) → (𝑤 <Q 𝑣 ↔ (𝑢 +Q 𝑤) <Q (𝑢 +Q 𝑣)))
65		mulclnq 7693	. . . . . . 7 ⊢ ((𝑓 ∈ Q ∧ 𝑦 ∈ Q) → (𝑓 ·Q 𝑦) ∈ Q)
66	12, 31, 65	syl2anc 411	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑓 ·Q 𝑦) ∈ Q)
67		addcomnqg 7698	. . . . . . 7 ⊢ ((𝑤 ∈ Q ∧ 𝑣 ∈ Q) → (𝑤 +Q 𝑣) = (𝑣 +Q 𝑤))
68	67	adantl 277	. . . . . 6 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) ∧ (𝑤 ∈ Q ∧ 𝑣 ∈ Q)) → (𝑤 +Q 𝑣) = (𝑣 +Q 𝑤))
69	64, 66, 33, 25, 68	caovord2d 6226	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑓 ·Q 𝑦) <Q (𝑥 ·Q 𝑦) ↔ ((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧))))
70	62, 69	bitrd 188	. . . 4 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑓 <Q 𝑥 ↔ ((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧))))
71		distrnqg 7704	. . . . . . 7 ⊢ ((𝑓 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑓 ·Q (𝑦 +Q 𝑧)) = ((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)))
72	12, 31, 18, 71	syl3anc 1274	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑓 ·Q (𝑦 +Q 𝑧)) = ((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)))
73		simprrl 541	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → 𝑓 ∈ (2nd ‘𝐴))
74	51, 52	genppreclu 7832	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ (𝐵 +P 𝐶) ∈ P) → ((𝑓 ∈ (2nd ‘𝐴) ∧ (𝑦 +Q 𝑧) ∈ (2nd ‘(𝐵 +P 𝐶))) → (𝑓 ·Q (𝑦 +Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
75	74	imp 124	. . . . . . 7 ⊢ (((𝐴 ∈ P ∧ (𝐵 +P 𝐶) ∈ P) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ (𝑦 +Q 𝑧) ∈ (2nd ‘(𝐵 +P 𝐶)))) → (𝑓 ·Q (𝑦 +Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
76	37, 40, 73, 50, 75	syl22anc 1275	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑓 ·Q (𝑦 +Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
77	72, 76	eqeltrrd 2312	. . . . 5 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
78		prcunqu 7802	. . . . . 6 ⊢ ((⟨(1st ‘(𝐴 ·P (𝐵 +P 𝐶))), (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))⟩ ∈ P ∧ ((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))) → (((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
79	57, 78	sylan 283	. . . . 5 ⊢ (((𝐴 ·P (𝐵 +P 𝐶)) ∈ P ∧ ((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))) → (((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
80	42, 77, 79	syl2anc 411	. . . 4 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (((𝑓 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) <Q ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
81	70, 80	sylbid 150	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑓 <Q 𝑥 → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
82	61, 81	jaod 725	. 2 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
83		ltsonq 7715	. . . . 5 ⊢ <Q Or Q
84		nqtri3or 7713	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑓 ∈ Q) → (𝑥 <Q 𝑓 ∨ 𝑥 = 𝑓 ∨ 𝑓 <Q 𝑥))
85	83, 84	sotritrieq 4448	. . . 4 ⊢ ((𝑥 ∈ Q ∧ 𝑓 ∈ Q) → (𝑥 = 𝑓 ↔ ¬ (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥)))
86	8, 12, 85	syl2anc 411	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 = 𝑓 ↔ ¬ (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥)))
87		oveq1 6059	. . . . . . 7 ⊢ (𝑥 = 𝑓 → (𝑥 ·Q 𝑧) = (𝑓 ·Q 𝑧))
88	87	oveq2d 6068	. . . . . 6 ⊢ (𝑥 = 𝑓 → ((𝑥 ·Q 𝑦) +Q (𝑥 ·Q 𝑧)) = ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)))
89	44, 88	sylan9eq 2287	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) ∧ 𝑥 = 𝑓) → (𝑥 ·Q (𝑦 +Q 𝑧)) = ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)))
90	55	adantr 276	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) ∧ 𝑥 = 𝑓) → (𝑥 ·Q (𝑦 +Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
91	89, 90	eqeltrrd 2312	. . . 4 ⊢ ((((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) ∧ 𝑥 = 𝑓) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))
92	91	ex 115	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (𝑥 = 𝑓 → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
93	86, 92	sylbird 170	. 2 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → (¬ (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶)))))
94		ltdcnq 7714	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑓 ∈ Q) → DECID 𝑥 <Q 𝑓)
95		ltdcnq 7714	. . . . . 6 ⊢ ((𝑓 ∈ Q ∧ 𝑥 ∈ Q) → DECID 𝑓 <Q 𝑥)
96	95	ancoms 268	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑓 ∈ Q) → DECID 𝑓 <Q 𝑥)
97		dcor 944	. . . . 5 ⊢ (DECID 𝑥 <Q 𝑓 → (DECID 𝑓 <Q 𝑥 → DECID (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥)))
98	94, 96, 97	sylc 62	. . . 4 ⊢ ((𝑥 ∈ Q ∧ 𝑓 ∈ Q) → DECID (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥))
99	8, 12, 98	syl2anc 411	. . 3 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → DECID (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥))
100		df-dc 843	. . 3 ⊢ (DECID (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥) ↔ ((𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥) ∨ ¬ (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥)))
101	99, 100	sylib 122	. 2 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥) ∨ ¬ (𝑥 <Q 𝑓 ∨ 𝑓 <Q 𝑥)))
102	82, 93, 101	mpjaod 726	1 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P ∧ 𝐶 ∈ P) ∧ ((𝑥 ∈ (2nd ‘𝐴) ∧ 𝑦 ∈ (2nd ‘𝐵)) ∧ (𝑓 ∈ (2nd ‘𝐴) ∧ 𝑧 ∈ (2nd ‘𝐶)))) → ((𝑥 ·Q 𝑦) +Q (𝑓 ·Q 𝑧)) ∈ (2nd ‘(𝐴 ·P (𝐵 +P 𝐶))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 716  DECID wdc 842   ∧ w3a 1005   = wceq 1398   ∈ wcel 2205  ⟨cop 3694   class class class wbr 4111  ‘cfv 5354  (class class class)co 6052  1^st c1st 6334  2^nd c2nd 6335  Qcnq 7597   +_Q cplq 7599   ·_Q cmq 7600   <_Q cltq 7602  Pcnp 7608   +_P cpp 7610   ·_P cmp 7611

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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2207  ax-14 2208  ax-ext 2216  ax-coll 4227  ax-sep 4230  ax-nul 4238  ax-pow 4289  ax-pr 4324  ax-un 4556  ax-setind 4661  ax-iinf 4712

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-ral 2527  df-rex 2528  df-reu 2529  df-rab 2531  df-v 2817  df-sbc 3045  df-csb 3141  df-dif 3215  df-un 3217  df-in 3219  df-ss 3226  df-nul 3511  df-pw 3673  df-sn 3697  df-pr 3698  df-op 3700  df-uni 3917  df-int 3952  df-iun 3995  df-br 4112  df-opab 4174  df-mpt 4175  df-tr 4211  df-eprel 4412  df-id 4416  df-po 4419  df-iso 4420  df-iord 4489  df-on 4491  df-suc 4494  df-iom 4715  df-xp 4757  df-rel 4758  df-cnv 4759  df-co 4760  df-dm 4761  df-rn 4762  df-res 4763  df-ima 4764  df-iota 5314  df-fun 5356  df-fn 5357  df-f 5358  df-f1 5359  df-fo 5360  df-f1o 5361  df-fv 5362  df-ov 6055  df-oprab 6056  df-mpo 6057  df-1st 6336  df-2nd 6337  df-recs 6538  df-irdg 6603  df-1o 6649  df-2o 6650  df-oadd 6653  df-omul 6654  df-er 6769  df-ec 6771  df-qs 6775  df-ni 7621  df-pli 7622  df-mi 7623  df-lti 7624  df-plpq 7661  df-mpq 7662  df-enq 7664  df-nqqs 7665  df-plqqs 7666  df-mqqs 7667  df-1nqqs 7668  df-rq 7669  df-ltnqqs 7670  df-enq0 7741  df-nq0 7742  df-0nq0 7743  df-plq0 7744  df-mq0 7745  df-inp 7783  df-iplp 7785  df-imp 7786

This theorem is referenced by:  distrlem5pru  7904