Theorem mulsproplem4 28128

Description: Lemma for surreal multiplication. Under the inductive hypothesis, the product of a member of the old set of 𝐴 and a member of the old set of 𝐵 is a surreal number. (Contributed by Scott Fenton, 4-Mar-2025.)

Hypotheses

Ref	Expression
mulsproplem.1	⊢ (𝜑 → ∀𝑎 ∈ No ∀𝑏 ∈ No ∀𝑐 ∈ No ∀𝑑 ∈ No ∀𝑒 ∈ No ∀𝑓 ∈ No (((( bday ‘𝑎) +no ( bday ‘𝑏)) ∪ (((( bday ‘𝑐) +no ( bday ‘𝑒)) ∪ (( bday ‘𝑑) +no ( bday ‘𝑓))) ∪ ((( bday ‘𝑐) +no ( bday ‘𝑓)) ∪ (( bday ‘𝑑) +no ( bday ‘𝑒))))) ∈ ((( bday ‘𝐴) +no ( bday ‘𝐵)) ∪ (((( bday ‘𝐶) +no ( bday ‘𝐸)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐹))) ∪ ((( bday ‘𝐶) +no ( bday ‘𝐹)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐸))))) → ((𝑎 ·s 𝑏) ∈ No ∧ ((𝑐 <s 𝑑 ∧ 𝑒 <s 𝑓) → ((𝑐 ·s 𝑓) -s (𝑐 ·s 𝑒)) <s ((𝑑 ·s 𝑓) -s (𝑑 ·s 𝑒))))))
mulsproplem4.1	⊢ (𝜑 → 𝑋 ∈ ( O ‘( bday ‘𝐴)))
mulsproplem4.2	⊢ (𝜑 → 𝑌 ∈ ( O ‘( bday ‘𝐵)))

Assertion

Ref	Expression
mulsproplem4	⊢ (𝜑 → (𝑋 ·s 𝑌) ∈ No )

Distinct variable groups:   𝐴,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝐵,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝐶,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝐷,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝐸,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝐹,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝑋,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝑌,𝑏,𝑐,𝑑,𝑒,𝑓

Allowed substitution hints:   𝜑(𝑒,𝑓,𝑎,𝑏,𝑐,𝑑)   𝑌(𝑎)

Proof of Theorem mulsproplem4

Step	Hyp	Ref	Expression
1		mulsproplem.1	. . 3 ⊢ (𝜑 → ∀𝑎 ∈ No ∀𝑏 ∈ No ∀𝑐 ∈ No ∀𝑑 ∈ No ∀𝑒 ∈ No ∀𝑓 ∈ No (((( bday ‘𝑎) +no ( bday ‘𝑏)) ∪ (((( bday ‘𝑐) +no ( bday ‘𝑒)) ∪ (( bday ‘𝑑) +no ( bday ‘𝑓))) ∪ ((( bday ‘𝑐) +no ( bday ‘𝑓)) ∪ (( bday ‘𝑑) +no ( bday ‘𝑒))))) ∈ ((( bday ‘𝐴) +no ( bday ‘𝐵)) ∪ (((( bday ‘𝐶) +no ( bday ‘𝐸)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐹))) ∪ ((( bday ‘𝐶) +no ( bday ‘𝐹)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐸))))) → ((𝑎 ·s 𝑏) ∈ No ∧ ((𝑐 <s 𝑑 ∧ 𝑒 <s 𝑓) → ((𝑐 ·s 𝑓) -s (𝑐 ·s 𝑒)) <s ((𝑑 ·s 𝑓) -s (𝑑 ·s 𝑒))))))
2		mulsproplem4.1	. . . 4 ⊢ (𝜑 → 𝑋 ∈ ( O ‘( bday ‘𝐴)))
3	2	oldnod 27856	. . 3 ⊢ (𝜑 → 𝑋 ∈ No )
4		mulsproplem4.2	. . . 4 ⊢ (𝜑 → 𝑌 ∈ ( O ‘( bday ‘𝐵)))
5	4	oldnod 27856	. . 3 ⊢ (𝜑 → 𝑌 ∈ No )
6		0no 27818	. . . 4 ⊢ 0s ∈ No
7	6	a1i 11	. . 3 ⊢ (𝜑 → 0s ∈ No )
8		bday0 27820	. . . . . . . . . . . 12 ⊢ ( bday ‘ 0s ) = ∅
9	8, 8	oveq12i 7373	. . . . . . . . . . 11 ⊢ (( bday ‘ 0s ) +no ( bday ‘ 0s )) = (∅ +no ∅)
10		0elon 6373	. . . . . . . . . . . 12 ⊢ ∅ ∈ On
11		naddrid 8613	. . . . . . . . . . . 12 ⊢ (∅ ∈ On → (∅ +no ∅) = ∅)
12	10, 11	ax-mp 5	. . . . . . . . . . 11 ⊢ (∅ +no ∅) = ∅
13	9, 12	eqtri 2760	. . . . . . . . . 10 ⊢ (( bday ‘ 0s ) +no ( bday ‘ 0s )) = ∅
14	13, 13	uneq12i 4107	. . . . . . . . 9 ⊢ ((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))) = (∅ ∪ ∅)
15		un0 4335	. . . . . . . . 9 ⊢ (∅ ∪ ∅) = ∅
16	14, 15	eqtri 2760	. . . . . . . 8 ⊢ ((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))) = ∅
17	16, 16	uneq12i 4107	. . . . . . 7 ⊢ (((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))) ∪ ((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s )))) = (∅ ∪ ∅)
18	17, 15	eqtri 2760	. . . . . 6 ⊢ (((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))) ∪ ((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s )))) = ∅
19	18	uneq2i 4106	. . . . 5 ⊢ ((( bday ‘𝑋) +no ( bday ‘𝑌)) ∪ (((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))) ∪ ((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))))) = ((( bday ‘𝑋) +no ( bday ‘𝑌)) ∪ ∅)
20		un0 4335	. . . . 5 ⊢ ((( bday ‘𝑋) +no ( bday ‘𝑌)) ∪ ∅) = (( bday ‘𝑋) +no ( bday ‘𝑌))
21	19, 20	eqtri 2760	. . . 4 ⊢ ((( bday ‘𝑋) +no ( bday ‘𝑌)) ∪ (((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))) ∪ ((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))))) = (( bday ‘𝑋) +no ( bday ‘𝑌))
22		oldbdayim 27898	. . . . . . 7 ⊢ (𝑋 ∈ ( O ‘( bday ‘𝐴)) → ( bday ‘𝑋) ∈ ( bday ‘𝐴))
23	2, 22	syl 17	. . . . . 6 ⊢ (𝜑 → ( bday ‘𝑋) ∈ ( bday ‘𝐴))
24		oldbdayim 27898	. . . . . . 7 ⊢ (𝑌 ∈ ( O ‘( bday ‘𝐵)) → ( bday ‘𝑌) ∈ ( bday ‘𝐵))
25	4, 24	syl 17	. . . . . 6 ⊢ (𝜑 → ( bday ‘𝑌) ∈ ( bday ‘𝐵))
26		bdayon 27761	. . . . . . 7 ⊢ ( bday ‘𝐴) ∈ On
27		bdayon 27761	. . . . . . 7 ⊢ ( bday ‘𝐵) ∈ On
28		naddel12 8630	. . . . . . 7 ⊢ ((( bday ‘𝐴) ∈ On ∧ ( bday ‘𝐵) ∈ On) → ((( bday ‘𝑋) ∈ ( bday ‘𝐴) ∧ ( bday ‘𝑌) ∈ ( bday ‘𝐵)) → (( bday ‘𝑋) +no ( bday ‘𝑌)) ∈ (( bday ‘𝐴) +no ( bday ‘𝐵))))
29	26, 27, 28	mp2an 693	. . . . . 6 ⊢ ((( bday ‘𝑋) ∈ ( bday ‘𝐴) ∧ ( bday ‘𝑌) ∈ ( bday ‘𝐵)) → (( bday ‘𝑋) +no ( bday ‘𝑌)) ∈ (( bday ‘𝐴) +no ( bday ‘𝐵)))
30	23, 25, 29	syl2anc 585	. . . . 5 ⊢ (𝜑 → (( bday ‘𝑋) +no ( bday ‘𝑌)) ∈ (( bday ‘𝐴) +no ( bday ‘𝐵)))
31		elun1 4123	. . . . 5 ⊢ ((( bday ‘𝑋) +no ( bday ‘𝑌)) ∈ (( bday ‘𝐴) +no ( bday ‘𝐵)) → (( bday ‘𝑋) +no ( bday ‘𝑌)) ∈ ((( bday ‘𝐴) +no ( bday ‘𝐵)) ∪ (((( bday ‘𝐶) +no ( bday ‘𝐸)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐹))) ∪ ((( bday ‘𝐶) +no ( bday ‘𝐹)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐸))))))
32	30, 31	syl 17	. . . 4 ⊢ (𝜑 → (( bday ‘𝑋) +no ( bday ‘𝑌)) ∈ ((( bday ‘𝐴) +no ( bday ‘𝐵)) ∪ (((( bday ‘𝐶) +no ( bday ‘𝐸)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐹))) ∪ ((( bday ‘𝐶) +no ( bday ‘𝐹)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐸))))))
33	21, 32	eqeltrid 2841	. . 3 ⊢ (𝜑 → ((( bday ‘𝑋) +no ( bday ‘𝑌)) ∪ (((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))) ∪ ((( bday ‘ 0s ) +no ( bday ‘ 0s )) ∪ (( bday ‘ 0s ) +no ( bday ‘ 0s ))))) ∈ ((( bday ‘𝐴) +no ( bday ‘𝐵)) ∪ (((( bday ‘𝐶) +no ( bday ‘𝐸)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐹))) ∪ ((( bday ‘𝐶) +no ( bday ‘𝐹)) ∪ (( bday ‘𝐷) +no ( bday ‘𝐸))))))
34	1, 3, 5, 7, 7, 7, 7, 33	mulsproplem1 28125	. 2 ⊢ (𝜑 → ((𝑋 ·s 𝑌) ∈ No ∧ (( 0s <s 0s ∧ 0s <s 0s ) → (( 0s ·s 0s ) -s ( 0s ·s 0s )) <s (( 0s ·s 0s ) -s ( 0s ·s 0s )))))
35	34	simpld 494	1 ⊢ (𝜑 → (𝑋 ·s 𝑌) ∈ No )

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∀wral 3052   ∪ cun 3888  ∅c0 4274   class class class wbr 5086  Oncon0 6318  ‘cfv 6493  (class class class)co 7361   +no cnadd 8595   No csur 27620   <s clts 27621   bday cbday 27622   0_s c0s 27814   O cold 27832   -_s csubs 28029   ·_s cmuls 28115

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5303  ax-pr 5371  ax-un 7683

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7318  df-ov 7364  df-oprab 7365  df-mpo 7366  df-1st 7936  df-2nd 7937  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-1o 8399  df-2o 8400  df-nadd 8596  df-no 27623  df-lts 27624  df-bday 27625  df-slts 27767  df-cuts 27769  df-0s 27816  df-made 27836  df-old 27837

This theorem is referenced by:  mulsproplem5  28129  mulsproplem6  28130  mulsproplem7  28131  mulsproplem8  28132  mulsproplem9  28133