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

Theorem sltmuls1 28377
Description: One surreal set less-than relationship for cuts of 𝐴 and 𝐵. (Contributed by Scott Fenton, 7-Mar-2025.)
Hypotheses
Ref Expression
sltmuls1.1 (𝜑𝐿 <<s 𝑅)
sltmuls1.2 (𝜑𝑀 <<s 𝑆)
sltmuls1.3 (𝜑𝐴 = (𝐿 |s 𝑅))
sltmuls1.4 (𝜑𝐵 = (𝑀 |s 𝑆))
Assertion
Ref Expression
sltmuls1 (𝜑 → ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) <<s {(𝐴 ·s 𝐵)})
Distinct variable groups:   𝐴,𝑎   𝐴,𝑏   𝐴,𝑝,𝑞   𝐴,𝑟,𝑠   𝐵,𝑎   𝐵,𝑏   𝐵,𝑝,𝑞   𝐵,𝑟,𝑠   𝐿,𝑎,𝑝,𝑞   𝑀,𝑎,𝑝,𝑞   𝑅,𝑏,𝑟,𝑠   𝑆,𝑏,𝑟,𝑠   𝜑,𝑝,𝑎,𝑞   𝜑,𝑏,𝑟,𝑠
Allowed substitution hints:   𝑅(𝑞, 𝑝, 𝑎)   𝑆(𝑞, 𝑝, 𝑎)   𝐿(𝑠, 𝑟, 𝑏)   𝑀(𝑠, 𝑟, 𝑏)

Proof of Theorem sltmuls1
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2766 . . . . 5 (𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))) = (𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)))
21rnmpo 7556 . . . 4 ran (𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))) = {𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))}
3 sltmuls1.1 . . . . . . 7 (𝜑𝐿 <<s 𝑅)
4 sltsex1 27993 . . . . . . 7 (𝐿 <<s 𝑅𝐿 ∈ V)
53, 4syl 18 . . . . . 6 (𝜑𝐿 ∈ V)
6 sltmuls1.2 . . . . . . 7 (𝜑𝑀 <<s 𝑆)
7 sltsex1 27993 . . . . . . 7 (𝑀 <<s 𝑆𝑀 ∈ V)
86, 7syl 18 . . . . . 6 (𝜑𝑀 ∈ V)
91mpoexg 8082 . . . . . 6 ((𝐿 ∈ V ∧ 𝑀 ∈ V) → (𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))) ∈ V)
105, 8, 9syl2anc 596 . . . . 5 (𝜑 → (𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))) ∈ V)
11 rnexg 7908 . . . . 5 ((𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))) ∈ V → ran (𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))) ∈ V)
1210, 11syl 18 . . . 4 (𝜑 → ran (𝑝𝐿, 𝑞𝑀 ↦ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))) ∈ V)
132, 12eqeltrrid 2871 . . 3 (𝜑 → {𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∈ V)
14 eqid 2766 . . . . 5 (𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) = (𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)))
1514rnmpo 7556 . . . 4 ran (𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) = {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}
16 sltsex2 27994 . . . . . . 7 (𝐿 <<s 𝑅𝑅 ∈ V)
173, 16syl 18 . . . . . 6 (𝜑𝑅 ∈ V)
18 sltsex2 27994 . . . . . . 7 (𝑀 <<s 𝑆𝑆 ∈ V)
196, 18syl 18 . . . . . 6 (𝜑𝑆 ∈ V)
2014mpoexg 8082 . . . . . 6 ((𝑅 ∈ V ∧ 𝑆 ∈ V) → (𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) ∈ V)
2117, 19, 20syl2anc 596 . . . . 5 (𝜑 → (𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) ∈ V)
22 rnexg 7908 . . . . 5 ((𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) ∈ V → ran (𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) ∈ V)
2321, 22syl 18 . . . 4 (𝜑 → ran (𝑟𝑅, 𝑠𝑆 ↦ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) ∈ V)
2415, 23eqeltrrid 2871 . . 3 (𝜑 → {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))} ∈ V)
2513, 24unexd 7762 . 2 (𝜑 → ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) ∈ V)
26 snex 5415 . . 3 {(𝐴 ·s 𝐵)} ∈ V
2726a1i 11 . 2 (𝜑 → {(𝐴 ·s 𝐵)} ∈ V)
28 sltsss1 27995 . . . . . . . . . . . 12 (𝐿 <<s 𝑅𝐿 No )
293, 28syl 18 . . . . . . . . . . 11 (𝜑𝐿 No )
3029adantr 486 . . . . . . . . . 10 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝐿 No )
31 simprl 783 . . . . . . . . . 10 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑝𝐿)
3230, 31sseldd 3941 . . . . . . . . 9 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑝 No )
33 sltmuls1.4 . . . . . . . . . . 11 (𝜑𝐵 = (𝑀 |s 𝑆))
346cutscld 28013 . . . . . . . . . . 11 (𝜑 → (𝑀 |s 𝑆) ∈ No )
3533, 34eqeltrd 2866 . . . . . . . . . 10 (𝜑𝐵 No )
3635adantr 486 . . . . . . . . 9 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝐵 No )
3732, 36mulscld 28365 . . . . . . . 8 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (𝑝 ·s 𝐵) ∈ No )
38 sltmuls1.3 . . . . . . . . . . 11 (𝜑𝐴 = (𝐿 |s 𝑅))
393cutscld 28013 . . . . . . . . . . 11 (𝜑 → (𝐿 |s 𝑅) ∈ No )
4038, 39eqeltrd 2866 . . . . . . . . . 10 (𝜑𝐴 No )
4140adantr 486 . . . . . . . . 9 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝐴 No )
42 sltsss1 27995 . . . . . . . . . . . 12 (𝑀 <<s 𝑆𝑀 No )
436, 42syl 18 . . . . . . . . . . 11 (𝜑𝑀 No )
4443adantr 486 . . . . . . . . . 10 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑀 No )
45 simprr 785 . . . . . . . . . 10 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑞𝑀)
4644, 45sseldd 3941 . . . . . . . . 9 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑞 No )
4741, 46mulscld 28365 . . . . . . . 8 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (𝐴 ·s 𝑞) ∈ No )
4837, 47addscld 28210 . . . . . . 7 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → ((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) ∈ No )
4932, 46mulscld 28365 . . . . . . 7 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (𝑝 ·s 𝑞) ∈ No )
5048, 49subscld 28293 . . . . . 6 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ∈ No )
51 eleq1 2854 . . . . . 6 (𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) → (𝑎 No ↔ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ∈ No ))
5250, 51syl5ibrcom 250 . . . . 5 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) → 𝑎 No ))
5352rexlimdvva 3225 . . . 4 (𝜑 → (∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) → 𝑎 No ))
5453abssdv 4024 . . 3 (𝜑 → {𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ⊆ No )
55 sltsss2 27996 . . . . . . . . . . . 12 (𝐿 <<s 𝑅𝑅 No )
563, 55syl 18 . . . . . . . . . . 11 (𝜑𝑅 No )
5756adantr 486 . . . . . . . . . 10 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝑅 No )
58 simprl 783 . . . . . . . . . 10 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝑟𝑅)
5957, 58sseldd 3941 . . . . . . . . 9 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝑟 No )
6035adantr 486 . . . . . . . . 9 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐵 No )
6159, 60mulscld 28365 . . . . . . . 8 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (𝑟 ·s 𝐵) ∈ No )
6240adantr 486 . . . . . . . . 9 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐴 No )
63 sltsss2 27996 . . . . . . . . . . . 12 (𝑀 <<s 𝑆𝑆 No )
646, 63syl 18 . . . . . . . . . . 11 (𝜑𝑆 No )
6564adantr 486 . . . . . . . . . 10 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝑆 No )
66 simprr 785 . . . . . . . . . 10 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝑠𝑆)
6765, 66sseldd 3941 . . . . . . . . 9 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝑠 No )
6862, 67mulscld 28365 . . . . . . . 8 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (𝐴 ·s 𝑠) ∈ No )
6961, 68addscld 28210 . . . . . . 7 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → ((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) ∈ No )
7059, 67mulscld 28365 . . . . . . 7 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (𝑟 ·s 𝑠) ∈ No )
7169, 70subscld 28293 . . . . . 6 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) ∈ No )
72 eleq1 2854 . . . . . 6 (𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) → (𝑏 No ↔ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) ∈ No ))
7371, 72syl5ibrcom 250 . . . . 5 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) → 𝑏 No ))
7473rexlimdvva 3225 . . . 4 (𝜑 → (∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) → 𝑏 No ))
7574abssdv 4024 . . 3 (𝜑 → {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))} ⊆ No )
7654, 75unssd 4148 . 2 (𝜑 → ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) ⊆ No )
7740, 35mulscld 28365 . . 3 (𝜑 → (𝐴 ·s 𝐵) ∈ No )
7877snssd 4757 . 2 (𝜑 → {(𝐴 ·s 𝐵)} ⊆ No )
79 elun 4110 . . . . . . 7 (𝑥 ∈ ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) ↔ (𝑥 ∈ {𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∨ 𝑥 ∈ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}))
80 vex 3462 . . . . . . . . 9 𝑥 ∈ V
81 eqeq1 2770 . . . . . . . . . 10 (𝑎 = 𝑥 → (𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ 𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))))
82812rexbidv 3233 . . . . . . . . 9 (𝑎 = 𝑥 → (∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ↔ ∃𝑝𝐿𝑞𝑀 𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))))
8380, 82elab 3641 . . . . . . . 8 (𝑥 ∈ {𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ↔ ∃𝑝𝐿𝑞𝑀 𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)))
84 eqeq1 2770 . . . . . . . . . 10 (𝑏 = 𝑥 → (𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) ↔ 𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))))
85842rexbidv 3233 . . . . . . . . 9 (𝑏 = 𝑥 → (∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) ↔ ∃𝑟𝑅𝑠𝑆 𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))))
8680, 85elab 3641 . . . . . . . 8 (𝑥 ∈ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))} ↔ ∃𝑟𝑅𝑠𝑆 𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)))
8783, 86orbi12i 928 . . . . . . 7 ((𝑥 ∈ {𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∨ 𝑥 ∈ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) ↔ (∃𝑝𝐿𝑞𝑀 𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ∨ ∃𝑟𝑅𝑠𝑆 𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))))
8879, 87bitri 278 . . . . . 6 (𝑥 ∈ ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) ↔ (∃𝑝𝐿𝑞𝑀 𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ∨ ∃𝑟𝑅𝑠𝑆 𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))))
8937, 47, 49addsubsd 28312 . . . . . . . . . 10 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) = (((𝑝 ·s 𝐵) -s (𝑝 ·s 𝑞)) +s (𝐴 ·s 𝑞)))
90 cutcuts 28011 . . . . . . . . . . . . . . . 16 (𝐿 <<s 𝑅 → ((𝐿 |s 𝑅) ∈ No 𝐿 <<s {(𝐿 |s 𝑅)} ∧ {(𝐿 |s 𝑅)} <<s 𝑅))
913, 90syl 18 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐿 |s 𝑅) ∈ No 𝐿 <<s {(𝐿 |s 𝑅)} ∧ {(𝐿 |s 𝑅)} <<s 𝑅))
9291simp2d 1161 . . . . . . . . . . . . . 14 (𝜑𝐿 <<s {(𝐿 |s 𝑅)})
9392adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝐿 <<s {(𝐿 |s 𝑅)})
94 ovex 7456 . . . . . . . . . . . . . . . 16 (𝐿 |s 𝑅) ∈ V
9594snid 4633 . . . . . . . . . . . . . . 15 (𝐿 |s 𝑅) ∈ {(𝐿 |s 𝑅)}
9638, 95eqeltrdi 2874 . . . . . . . . . . . . . 14 (𝜑𝐴 ∈ {(𝐿 |s 𝑅)})
9796adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝐴 ∈ {(𝐿 |s 𝑅)})
9893, 31, 97sltssepcd 28002 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑝 <s 𝐴)
99 cutcuts 28011 . . . . . . . . . . . . . . . 16 (𝑀 <<s 𝑆 → ((𝑀 |s 𝑆) ∈ No 𝑀 <<s {(𝑀 |s 𝑆)} ∧ {(𝑀 |s 𝑆)} <<s 𝑆))
1006, 99syl 18 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑀 |s 𝑆) ∈ No 𝑀 <<s {(𝑀 |s 𝑆)} ∧ {(𝑀 |s 𝑆)} <<s 𝑆))
101100simp2d 1161 . . . . . . . . . . . . . 14 (𝜑𝑀 <<s {(𝑀 |s 𝑆)})
102101adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑀 <<s {(𝑀 |s 𝑆)})
103 ovex 7456 . . . . . . . . . . . . . . . 16 (𝑀 |s 𝑆) ∈ V
104103snid 4633 . . . . . . . . . . . . . . 15 (𝑀 |s 𝑆) ∈ {(𝑀 |s 𝑆)}
10533, 104eqeltrdi 2874 . . . . . . . . . . . . . 14 (𝜑𝐵 ∈ {(𝑀 |s 𝑆)})
106105adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝐵 ∈ {(𝑀 |s 𝑆)})
107102, 45, 106sltssepcd 28002 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → 𝑞 <s 𝐵)
10832, 41, 46, 36, 98, 107ltmulsd 28367 . . . . . . . . . . 11 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → ((𝑝 ·s 𝐵) -s (𝑝 ·s 𝑞)) <s ((𝐴 ·s 𝐵) -s (𝐴 ·s 𝑞)))
10937, 49subscld 28293 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → ((𝑝 ·s 𝐵) -s (𝑝 ·s 𝑞)) ∈ No )
11077adantr 486 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (𝐴 ·s 𝐵) ∈ No )
111109, 47, 110ltaddsubsd 28321 . . . . . . . . . . 11 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → ((((𝑝 ·s 𝐵) -s (𝑝 ·s 𝑞)) +s (𝐴 ·s 𝑞)) <s (𝐴 ·s 𝐵) ↔ ((𝑝 ·s 𝐵) -s (𝑝 ·s 𝑞)) <s ((𝐴 ·s 𝐵) -s (𝐴 ·s 𝑞))))
112108, 111mpbird 260 . . . . . . . . . 10 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (((𝑝 ·s 𝐵) -s (𝑝 ·s 𝑞)) +s (𝐴 ·s 𝑞)) <s (𝐴 ·s 𝐵))
11389, 112eqbrtrd 5138 . . . . . . . . 9 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) <s (𝐴 ·s 𝐵))
114 breq1 5117 . . . . . . . . 9 (𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) → (𝑥 <s (𝐴 ·s 𝐵) ↔ (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) <s (𝐴 ·s 𝐵)))
115113, 114syl5ibrcom 250 . . . . . . . 8 ((𝜑 ∧ (𝑝𝐿𝑞𝑀)) → (𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) → 𝑥 <s (𝐴 ·s 𝐵)))
116115rexlimdvva 3225 . . . . . . 7 (𝜑 → (∃𝑝𝐿𝑞𝑀 𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) → 𝑥 <s (𝐴 ·s 𝐵)))
11761, 68, 70addsubsd 28312 . . . . . . . . . 10 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) = (((𝑟 ·s 𝐵) -s (𝑟 ·s 𝑠)) +s (𝐴 ·s 𝑠)))
1183adantr 486 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐿 <<s 𝑅)
119118, 90syl 18 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → ((𝐿 |s 𝑅) ∈ No 𝐿 <<s {(𝐿 |s 𝑅)} ∧ {(𝐿 |s 𝑅)} <<s 𝑅))
120119simp3d 1162 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → {(𝐿 |s 𝑅)} <<s 𝑅)
12138adantr 486 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐴 = (𝐿 |s 𝑅))
122121, 95eqeltrdi 2874 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐴 ∈ {(𝐿 |s 𝑅)})
123120, 122, 58sltssepcd 28002 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐴 <s 𝑟)
1246adantr 486 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝑀 <<s 𝑆)
125124, 99syl 18 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → ((𝑀 |s 𝑆) ∈ No 𝑀 <<s {(𝑀 |s 𝑆)} ∧ {(𝑀 |s 𝑆)} <<s 𝑆))
126125simp3d 1162 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → {(𝑀 |s 𝑆)} <<s 𝑆)
12733adantr 486 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐵 = (𝑀 |s 𝑆))
128127, 104eqeltrdi 2874 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐵 ∈ {(𝑀 |s 𝑆)})
129126, 128, 66sltssepcd 28002 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → 𝐵 <s 𝑠)
13062, 59, 60, 67, 123, 129ltmulsd 28367 . . . . . . . . . . 11 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → ((𝐴 ·s 𝑠) -s (𝐴 ·s 𝐵)) <s ((𝑟 ·s 𝑠) -s (𝑟 ·s 𝐵)))
13161, 70subscld 28293 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → ((𝑟 ·s 𝐵) -s (𝑟 ·s 𝑠)) ∈ No )
13277adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (𝐴 ·s 𝐵) ∈ No )
133131, 68, 132ltaddsubsd 28321 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → ((((𝑟 ·s 𝐵) -s (𝑟 ·s 𝑠)) +s (𝐴 ·s 𝑠)) <s (𝐴 ·s 𝐵) ↔ ((𝑟 ·s 𝐵) -s (𝑟 ·s 𝑠)) <s ((𝐴 ·s 𝐵) -s (𝐴 ·s 𝑠))))
13461, 70, 132, 68ltsubsubs2bd 28314 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (((𝑟 ·s 𝐵) -s (𝑟 ·s 𝑠)) <s ((𝐴 ·s 𝐵) -s (𝐴 ·s 𝑠)) ↔ ((𝐴 ·s 𝑠) -s (𝐴 ·s 𝐵)) <s ((𝑟 ·s 𝑠) -s (𝑟 ·s 𝐵))))
135133, 134bitrd 282 . . . . . . . . . . 11 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → ((((𝑟 ·s 𝐵) -s (𝑟 ·s 𝑠)) +s (𝐴 ·s 𝑠)) <s (𝐴 ·s 𝐵) ↔ ((𝐴 ·s 𝑠) -s (𝐴 ·s 𝐵)) <s ((𝑟 ·s 𝑠) -s (𝑟 ·s 𝐵))))
136130, 135mpbird 260 . . . . . . . . . 10 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (((𝑟 ·s 𝐵) -s (𝑟 ·s 𝑠)) +s (𝐴 ·s 𝑠)) <s (𝐴 ·s 𝐵))
137117, 136eqbrtrd 5138 . . . . . . . . 9 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) <s (𝐴 ·s 𝐵))
138 breq1 5117 . . . . . . . . 9 (𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) → (𝑥 <s (𝐴 ·s 𝐵) ↔ (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) <s (𝐴 ·s 𝐵)))
139137, 138syl5ibrcom 250 . . . . . . . 8 ((𝜑 ∧ (𝑟𝑅𝑠𝑆)) → (𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) → 𝑥 <s (𝐴 ·s 𝐵)))
140139rexlimdvva 3225 . . . . . . 7 (𝜑 → (∃𝑟𝑅𝑠𝑆 𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠)) → 𝑥 <s (𝐴 ·s 𝐵)))
141116, 140jaod 873 . . . . . 6 (𝜑 → ((∃𝑝𝐿𝑞𝑀 𝑥 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞)) ∨ ∃𝑟𝑅𝑠𝑆 𝑥 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))) → 𝑥 <s (𝐴 ·s 𝐵)))
14288, 141biimtrid 245 . . . . 5 (𝜑 → (𝑥 ∈ ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) → 𝑥 <s (𝐴 ·s 𝐵)))
143142imp 412 . . . 4 ((𝜑𝑥 ∈ ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))})) → 𝑥 <s (𝐴 ·s 𝐵))
144 velsn 4610 . . . . 5 (𝑦 ∈ {(𝐴 ·s 𝐵)} ↔ 𝑦 = (𝐴 ·s 𝐵))
145 breq2 5118 . . . . 5 (𝑦 = (𝐴 ·s 𝐵) → (𝑥 <s 𝑦𝑥 <s (𝐴 ·s 𝐵)))
146144, 145sylbi 220 . . . 4 (𝑦 ∈ {(𝐴 ·s 𝐵)} → (𝑥 <s 𝑦𝑥 <s (𝐴 ·s 𝐵)))
147143, 146syl5ibrcom 250 . . 3 ((𝜑𝑥 ∈ ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))})) → (𝑦 ∈ {(𝐴 ·s 𝐵)} → 𝑥 <s 𝑦))
1481473impia 1135 . 2 ((𝜑𝑥 ∈ ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) ∧ 𝑦 ∈ {(𝐴 ·s 𝐵)}) → 𝑥 <s 𝑦)
14925, 27, 76, 78, 148sltsd 27998 1 (𝜑 → ({𝑎 ∣ ∃𝑝𝐿𝑞𝑀 𝑎 = (((𝑝 ·s 𝐵) +s (𝐴 ·s 𝑞)) -s (𝑝 ·s 𝑞))} ∪ {𝑏 ∣ ∃𝑟𝑅𝑠𝑆 𝑏 = (((𝑟 ·s 𝐵) +s (𝐴 ·s 𝑠)) -s (𝑟 ·s 𝑠))}) <<s {(𝐴 ·s 𝐵)})
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  wo 861  w3a 1103   = wceq 1570  wcel 2146  {cab 2744  wrex 3092  Vcvv 3458  cun 3906  wss 3908  {csn 4594   class class class wbr 5114  ran crn 5667  (class class class)co 7423  cmpo 7425   No csur 27841   <s clts 27842   <<s cslts 27987   |s ccuts 27989   +s cadds 28189   -s csubs 28250   ·s cmuls 28336
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-ot 4603  df-uni 4878  df-int 4918  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-se 5620  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-1o 8462  df-2o 8463  df-nadd 8661  df-no 27844  df-lts 27845  df-bday 27846  df-les 27946  df-slts 27988  df-cuts 27990  df-0s 28037  df-made 28057  df-old 28058  df-left 28060  df-right 28061  df-norec 28168  df-norec2 28179  df-adds 28190  df-negs 28251  df-subs 28252  df-muls 28337
This theorem is used by:  mulsuniflem  28379
  Copyright terms: Public domain W3C validator