Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  addclprlem2 Structured version   Visualization version   GIF version

 Description: Lemma to prove downward closure in positive real addition. Part of proof of Proposition 9-3.5 of [Gleason] p. 123. (Contributed by NM, 13-Mar-1996.) (New usage is discouraged.)
Assertion
Ref Expression
addclprlem2 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → 𝑥 ∈ (𝐴 +P 𝐵)))
Distinct variable groups:   𝑥,𝑔,   𝑥,𝐴   𝑥,𝐵
Allowed substitution hints:   𝐴(𝑔,)   𝐵(𝑔,)

Dummy variables 𝑦 𝑧 𝑤 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 addclprlem1 9876 . . . . 5 (((𝐴P𝑔𝐴) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) ∈ 𝐴))
21adantlr 751 . . . 4 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) ∈ 𝐴))
3 addclprlem1 9876 . . . . . 6 (((𝐵P𝐵) ∧ 𝑥Q) → (𝑥 <Q ( +Q 𝑔) → ((𝑥 ·Q (*Q‘( +Q 𝑔))) ·Q ) ∈ 𝐵))
4 addcomnq 9811 . . . . . . 7 (𝑔 +Q ) = ( +Q 𝑔)
54breq2i 4693 . . . . . 6 (𝑥 <Q (𝑔 +Q ) ↔ 𝑥 <Q ( +Q 𝑔))
64fveq2i 6232 . . . . . . . . 9 (*Q‘(𝑔 +Q )) = (*Q‘( +Q 𝑔))
76oveq2i 6701 . . . . . . . 8 (𝑥 ·Q (*Q‘(𝑔 +Q ))) = (𝑥 ·Q (*Q‘( +Q 𝑔)))
87oveq1i 6700 . . . . . . 7 ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ) = ((𝑥 ·Q (*Q‘( +Q 𝑔))) ·Q )
98eleq1i 2721 . . . . . 6 (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ) ∈ 𝐵 ↔ ((𝑥 ·Q (*Q‘( +Q 𝑔))) ·Q ) ∈ 𝐵)
103, 5, 93imtr4g 285 . . . . 5 (((𝐵P𝐵) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ) ∈ 𝐵))
1110adantll 750 . . . 4 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ) ∈ 𝐵))
122, 11jcad 554 . . 3 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) ∈ 𝐴 ∧ ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ) ∈ 𝐵)))
13 simpl 472 . . . 4 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → ((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)))
14 simpl 472 . . . . 5 ((𝐴P𝑔𝐴) → 𝐴P)
15 simpl 472 . . . . 5 ((𝐵P𝐵) → 𝐵P)
1614, 15anim12i 589 . . . 4 (((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) → (𝐴P𝐵P))
17 df-plp 9843 . . . . 5 +P = (𝑤P, 𝑣P ↦ {𝑥 ∣ ∃𝑦𝑤𝑧𝑣 𝑥 = (𝑦 +Q 𝑧)})
18 addclnq 9805 . . . . 5 ((𝑦Q𝑧Q) → (𝑦 +Q 𝑧) ∈ Q)
1917, 18genpprecl 9861 . . . 4 ((𝐴P𝐵P) → ((((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) ∈ 𝐴 ∧ ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ) ∈ 𝐵) → (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) +Q ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q )) ∈ (𝐴 +P 𝐵)))
2013, 16, 193syl 18 . . 3 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → ((((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) ∈ 𝐴 ∧ ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ) ∈ 𝐵) → (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) +Q ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q )) ∈ (𝐴 +P 𝐵)))
2112, 20syld 47 . 2 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) +Q ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q )) ∈ (𝐴 +P 𝐵)))
22 distrnq 9821 . . . . 5 ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q (𝑔 +Q )) = (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) +Q ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q ))
23 mulassnq 9819 . . . . 5 ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q (𝑔 +Q )) = (𝑥 ·Q ((*Q‘(𝑔 +Q )) ·Q (𝑔 +Q )))
2422, 23eqtr3i 2675 . . . 4 (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) +Q ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q )) = (𝑥 ·Q ((*Q‘(𝑔 +Q )) ·Q (𝑔 +Q )))
25 mulcomnq 9813 . . . . . . 7 ((*Q‘(𝑔 +Q )) ·Q (𝑔 +Q )) = ((𝑔 +Q ) ·Q (*Q‘(𝑔 +Q )))
26 elprnq 9851 . . . . . . . . 9 ((𝐴P𝑔𝐴) → 𝑔Q)
27 elprnq 9851 . . . . . . . . 9 ((𝐵P𝐵) → Q)
2826, 27anim12i 589 . . . . . . . 8 (((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) → (𝑔QQ))
29 addclnq 9805 . . . . . . . 8 ((𝑔QQ) → (𝑔 +Q ) ∈ Q)
30 recidnq 9825 . . . . . . . 8 ((𝑔 +Q ) ∈ Q → ((𝑔 +Q ) ·Q (*Q‘(𝑔 +Q ))) = 1Q)
3128, 29, 303syl 18 . . . . . . 7 (((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) → ((𝑔 +Q ) ·Q (*Q‘(𝑔 +Q ))) = 1Q)
3225, 31syl5eq 2697 . . . . . 6 (((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) → ((*Q‘(𝑔 +Q )) ·Q (𝑔 +Q )) = 1Q)
3332oveq2d 6706 . . . . 5 (((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) → (𝑥 ·Q ((*Q‘(𝑔 +Q )) ·Q (𝑔 +Q ))) = (𝑥 ·Q 1Q))
34 mulidnq 9823 . . . . 5 (𝑥Q → (𝑥 ·Q 1Q) = 𝑥)
3533, 34sylan9eq 2705 . . . 4 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (𝑥 ·Q ((*Q‘(𝑔 +Q )) ·Q (𝑔 +Q ))) = 𝑥)
3624, 35syl5eq 2697 . . 3 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) +Q ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q )) = 𝑥)
3736eleq1d 2715 . 2 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → ((((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q 𝑔) +Q ((𝑥 ·Q (*Q‘(𝑔 +Q ))) ·Q )) ∈ (𝐴 +P 𝐵) ↔ 𝑥 ∈ (𝐴 +P 𝐵)))
3821, 37sylibd 229 1 ((((𝐴P𝑔𝐴) ∧ (𝐵P𝐵)) ∧ 𝑥Q) → (𝑥 <Q (𝑔 +Q ) → 𝑥 ∈ (𝐴 +P 𝐵)))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 383   = wceq 1523   ∈ wcel 2030   class class class wbr 4685  ‘cfv 5926  (class class class)co 6690  Qcnq 9712  1Qc1q 9713   +Q cplq 9715   ·Q cmq 9716  *Qcrq 9717
 Copyright terms: Public domain W3C validator