Theorem ltslpss 27925

Description: If two surreals share a birthday, then 𝑋 <s 𝑌 iff the left set of 𝑋 is a proper subset of the left set of 𝑌. (Contributed by Scott Fenton, 17-Sep-2024.)

Assertion

Ref	Expression
ltslpss	⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (𝑋 <s 𝑌 ↔ ( L ‘𝑋) ⊊ ( L ‘𝑌)))

Proof of Theorem ltslpss

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		oldno 27861	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ( O ‘( bday ‘𝑋)) → 𝑥 ∈ No )
2	1	3ad2ant2 1140	. . . . . . . . . 10 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → 𝑥 ∈ No )
3		simp1l1 1273	. . . . . . . . . 10 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → 𝑋 ∈ No )
4		simp1l2 1274	. . . . . . . . . 10 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → 𝑌 ∈ No )
5		simp3 1144	. . . . . . . . . 10 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → 𝑥 <s 𝑋)
6		simp1r 1205	. . . . . . . . . 10 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → 𝑋 <s 𝑌)
7	2, 3, 4, 5, 6	ltstrd 27752	. . . . . . . . 9 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → 𝑥 <s 𝑌)
8	7	3exp 1125	. . . . . . . 8 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (𝑥 ∈ ( O ‘( bday ‘𝑋)) → (𝑥 <s 𝑋 → 𝑥 <s 𝑌)))
9	8	imdistand 575	. . . . . . 7 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ((𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → (𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑌)))
10		fveq2 6834	. . . . . . . . . . 11 ⊢ (( bday ‘𝑋) = ( bday ‘𝑌) → ( O ‘( bday ‘𝑋)) = ( O ‘( bday ‘𝑌)))
11	10	3ad2ant3 1141	. . . . . . . . . 10 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → ( O ‘( bday ‘𝑋)) = ( O ‘( bday ‘𝑌)))
12	11	adantr 481	. . . . . . . . 9 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ( O ‘( bday ‘𝑋)) = ( O ‘( bday ‘𝑌)))
13	12	eleq2d 2826	. . . . . . . 8 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (𝑥 ∈ ( O ‘( bday ‘𝑋)) ↔ 𝑥 ∈ ( O ‘( bday ‘𝑌))))
14	13	anbi1d 637	. . . . . . 7 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ((𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑌) ↔ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)))
15	9, 14	sylibd 240	. . . . . 6 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ((𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) → (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)))
16		leftval 27866	. . . . . . . . 9 ⊢ ( L ‘𝑋) = {𝑥 ∈ ( O ‘( bday ‘𝑋)) ∣ 𝑥 <s 𝑋}
17	16	a1i 11	. . . . . . . 8 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ( L ‘𝑋) = {𝑥 ∈ ( O ‘( bday ‘𝑋)) ∣ 𝑥 <s 𝑋})
18	17	eleq2d 2826	. . . . . . 7 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (𝑥 ∈ ( L ‘𝑋) ↔ 𝑥 ∈ {𝑥 ∈ ( O ‘( bday ‘𝑋)) ∣ 𝑥 <s 𝑋}))
19		rabid 3413	. . . . . . 7 ⊢ (𝑥 ∈ {𝑥 ∈ ( O ‘( bday ‘𝑋)) ∣ 𝑥 <s 𝑋} ↔ (𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋))
20	18, 19	bitrdi 288	. . . . . 6 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (𝑥 ∈ ( L ‘𝑋) ↔ (𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋)))
21		leftval 27866	. . . . . . . . 9 ⊢ ( L ‘𝑌) = {𝑥 ∈ ( O ‘( bday ‘𝑌)) ∣ 𝑥 <s 𝑌}
22	21	a1i 11	. . . . . . . 8 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ( L ‘𝑌) = {𝑥 ∈ ( O ‘( bday ‘𝑌)) ∣ 𝑥 <s 𝑌})
23	22	eleq2d 2826	. . . . . . 7 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (𝑥 ∈ ( L ‘𝑌) ↔ 𝑥 ∈ {𝑥 ∈ ( O ‘( bday ‘𝑌)) ∣ 𝑥 <s 𝑌}))
24		rabid 3413	. . . . . . 7 ⊢ (𝑥 ∈ {𝑥 ∈ ( O ‘( bday ‘𝑌)) ∣ 𝑥 <s 𝑌} ↔ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌))
25	23, 24	bitrdi 288	. . . . . 6 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (𝑥 ∈ ( L ‘𝑌) ↔ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)))
26	15, 20, 25	3imtr4d 295	. . . . 5 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (𝑥 ∈ ( L ‘𝑋) → 𝑥 ∈ ( L ‘𝑌)))
27	26	ssrdv 3928	. . . 4 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ( L ‘𝑋) ⊆ ( L ‘𝑌))
28		ltsirr 27735	. . . . . . . . 9 ⊢ (𝑌 ∈ No → ¬ 𝑌 <s 𝑌)
29	28	3ad2ant2 1140	. . . . . . . 8 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → ¬ 𝑌 <s 𝑌)
30		breq1 5082	. . . . . . . . 9 ⊢ (𝑋 = 𝑌 → (𝑋 <s 𝑌 ↔ 𝑌 <s 𝑌))
31	30	notbid 319	. . . . . . . 8 ⊢ (𝑋 = 𝑌 → (¬ 𝑋 <s 𝑌 ↔ ¬ 𝑌 <s 𝑌))
32	29, 31	syl5ibrcom 248	. . . . . . 7 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (𝑋 = 𝑌 → ¬ 𝑋 <s 𝑌))
33	32	con2d 134	. . . . . 6 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (𝑋 <s 𝑌 → ¬ 𝑋 = 𝑌))
34	33	imp 407	. . . . 5 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ¬ 𝑋 = 𝑌)
35		simpr 485	. . . . . . 7 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → ( L ‘𝑋) = ( L ‘𝑌))
36		lruneq 27924	. . . . . . . . . . 11 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (( L ‘𝑋) ∪ ( R ‘𝑋)) = (( L ‘𝑌) ∪ ( R ‘𝑌)))
37	36	adantr 481	. . . . . . . . . 10 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → (( L ‘𝑋) ∪ ( R ‘𝑋)) = (( L ‘𝑌) ∪ ( R ‘𝑌)))
38	37	adantr 481	. . . . . . . . 9 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( L ‘𝑋) ∪ ( R ‘𝑋)) = (( L ‘𝑌) ∪ ( R ‘𝑌)))
39	38, 35	difeq12d 4065	. . . . . . . 8 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → ((( L ‘𝑋) ∪ ( R ‘𝑋)) ∖ ( L ‘𝑋)) = ((( L ‘𝑌) ∪ ( R ‘𝑌)) ∖ ( L ‘𝑌)))
40		difundir 4226	. . . . . . . . . 10 ⊢ ((( L ‘𝑋) ∪ ( R ‘𝑋)) ∖ ( L ‘𝑋)) = ((( L ‘𝑋) ∖ ( L ‘𝑋)) ∪ (( R ‘𝑋) ∖ ( L ‘𝑋)))
41		difid 4311	. . . . . . . . . . 11 ⊢ (( L ‘𝑋) ∖ ( L ‘𝑋)) = ∅
42	41	uneq1i 4101	. . . . . . . . . 10 ⊢ ((( L ‘𝑋) ∖ ( L ‘𝑋)) ∪ (( R ‘𝑋) ∖ ( L ‘𝑋))) = (∅ ∪ (( R ‘𝑋) ∖ ( L ‘𝑋)))
43		0un 4331	. . . . . . . . . 10 ⊢ (∅ ∪ (( R ‘𝑋) ∖ ( L ‘𝑋))) = (( R ‘𝑋) ∖ ( L ‘𝑋))
44	40, 42, 43	3eqtri 2767	. . . . . . . . 9 ⊢ ((( L ‘𝑋) ∪ ( R ‘𝑋)) ∖ ( L ‘𝑋)) = (( R ‘𝑋) ∖ ( L ‘𝑋))
45		incom 4145	. . . . . . . . . . 11 ⊢ (( L ‘𝑋) ∩ ( R ‘𝑋)) = (( R ‘𝑋) ∩ ( L ‘𝑋))
46		lltr 27879	. . . . . . . . . . . 12 ⊢ ( L ‘𝑋) <<s ( R ‘𝑋)
47		sltsdisj 27820	. . . . . . . . . . . 12 ⊢ (( L ‘𝑋) <<s ( R ‘𝑋) → (( L ‘𝑋) ∩ ( R ‘𝑋)) = ∅)
48	46, 47	mp1i 13	. . . . . . . . . . 11 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( L ‘𝑋) ∩ ( R ‘𝑋)) = ∅)
49	45, 48	eqtr3id 2789	. . . . . . . . . 10 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( R ‘𝑋) ∩ ( L ‘𝑋)) = ∅)
50		disjdif2 4415	. . . . . . . . . 10 ⊢ ((( R ‘𝑋) ∩ ( L ‘𝑋)) = ∅ → (( R ‘𝑋) ∖ ( L ‘𝑋)) = ( R ‘𝑋))
51	49, 50	syl 17	. . . . . . . . 9 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( R ‘𝑋) ∖ ( L ‘𝑋)) = ( R ‘𝑋))
52	44, 51	eqtrid 2787	. . . . . . . 8 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → ((( L ‘𝑋) ∪ ( R ‘𝑋)) ∖ ( L ‘𝑋)) = ( R ‘𝑋))
53		difundir 4226	. . . . . . . . . 10 ⊢ ((( L ‘𝑌) ∪ ( R ‘𝑌)) ∖ ( L ‘𝑌)) = ((( L ‘𝑌) ∖ ( L ‘𝑌)) ∪ (( R ‘𝑌) ∖ ( L ‘𝑌)))
54		difid 4311	. . . . . . . . . . 11 ⊢ (( L ‘𝑌) ∖ ( L ‘𝑌)) = ∅
55	54	uneq1i 4101	. . . . . . . . . 10 ⊢ ((( L ‘𝑌) ∖ ( L ‘𝑌)) ∪ (( R ‘𝑌) ∖ ( L ‘𝑌))) = (∅ ∪ (( R ‘𝑌) ∖ ( L ‘𝑌)))
56		0un 4331	. . . . . . . . . 10 ⊢ (∅ ∪ (( R ‘𝑌) ∖ ( L ‘𝑌))) = (( R ‘𝑌) ∖ ( L ‘𝑌))
57	53, 55, 56	3eqtri 2767	. . . . . . . . 9 ⊢ ((( L ‘𝑌) ∪ ( R ‘𝑌)) ∖ ( L ‘𝑌)) = (( R ‘𝑌) ∖ ( L ‘𝑌))
58		incom 4145	. . . . . . . . . . 11 ⊢ (( L ‘𝑌) ∩ ( R ‘𝑌)) = (( R ‘𝑌) ∩ ( L ‘𝑌))
59		lltr 27879	. . . . . . . . . . . 12 ⊢ ( L ‘𝑌) <<s ( R ‘𝑌)
60		sltsdisj 27820	. . . . . . . . . . . 12 ⊢ (( L ‘𝑌) <<s ( R ‘𝑌) → (( L ‘𝑌) ∩ ( R ‘𝑌)) = ∅)
61	59, 60	mp1i 13	. . . . . . . . . . 11 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( L ‘𝑌) ∩ ( R ‘𝑌)) = ∅)
62	58, 61	eqtr3id 2789	. . . . . . . . . 10 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( R ‘𝑌) ∩ ( L ‘𝑌)) = ∅)
63		disjdif2 4415	. . . . . . . . . 10 ⊢ ((( R ‘𝑌) ∩ ( L ‘𝑌)) = ∅ → (( R ‘𝑌) ∖ ( L ‘𝑌)) = ( R ‘𝑌))
64	62, 63	syl 17	. . . . . . . . 9 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( R ‘𝑌) ∖ ( L ‘𝑌)) = ( R ‘𝑌))
65	57, 64	eqtrid 2787	. . . . . . . 8 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → ((( L ‘𝑌) ∪ ( R ‘𝑌)) ∖ ( L ‘𝑌)) = ( R ‘𝑌))
66	39, 52, 65	3eqtr3d 2783	. . . . . . 7 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → ( R ‘𝑋) = ( R ‘𝑌))
67	35, 66	oveq12d 7381	. . . . . 6 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( L ‘𝑋) |s ( R ‘𝑋)) = (( L ‘𝑌) |s ( R ‘𝑌)))
68		simpll1 1219	. . . . . . 7 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → 𝑋 ∈ No )
69		lrcut 27921	. . . . . . 7 ⊢ (𝑋 ∈ No → (( L ‘𝑋) |s ( R ‘𝑋)) = 𝑋)
70	68, 69	syl 17	. . . . . 6 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( L ‘𝑋) |s ( R ‘𝑋)) = 𝑋)
71		simpll2 1220	. . . . . . 7 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → 𝑌 ∈ No )
72		lrcut 27921	. . . . . . 7 ⊢ (𝑌 ∈ No → (( L ‘𝑌) |s ( R ‘𝑌)) = 𝑌)
73	71, 72	syl 17	. . . . . 6 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → (( L ‘𝑌) |s ( R ‘𝑌)) = 𝑌)
74	67, 70, 73	3eqtr3d 2783	. . . . 5 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) ∧ ( L ‘𝑋) = ( L ‘𝑌)) → 𝑋 = 𝑌)
75	34, 74	mtand 821	. . . 4 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ¬ ( L ‘𝑋) = ( L ‘𝑌))
76		dfpss2 4026	. . . 4 ⊢ (( L ‘𝑋) ⊊ ( L ‘𝑌) ↔ (( L ‘𝑋) ⊆ ( L ‘𝑌) ∧ ¬ ( L ‘𝑋) = ( L ‘𝑌)))
77	27, 75, 76	sylanbrc 589	. . 3 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ 𝑋 <s 𝑌) → ( L ‘𝑋) ⊊ ( L ‘𝑌))
78	77	ex 413	. 2 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (𝑋 <s 𝑌 → ( L ‘𝑋) ⊊ ( L ‘𝑌)))
79		dfpss3 4027	. . 3 ⊢ (( L ‘𝑋) ⊊ ( L ‘𝑌) ↔ (( L ‘𝑋) ⊆ ( L ‘𝑌) ∧ ¬ ( L ‘𝑌) ⊆ ( L ‘𝑋)))
80		ssdif0 4301	. . . . . . 7 ⊢ (( L ‘𝑌) ⊆ ( L ‘𝑋) ↔ (( L ‘𝑌) ∖ ( L ‘𝑋)) = ∅)
81	80	necon3bbii 2982	. . . . . 6 ⊢ (¬ ( L ‘𝑌) ⊆ ( L ‘𝑋) ↔ (( L ‘𝑌) ∖ ( L ‘𝑋)) ≠ ∅)
82		n0 4288	. . . . . 6 ⊢ ((( L ‘𝑌) ∖ ( L ‘𝑋)) ≠ ∅ ↔ ∃𝑥 𝑥 ∈ (( L ‘𝑌) ∖ ( L ‘𝑋)))
83	81, 82	bitri 276	. . . . 5 ⊢ (¬ ( L ‘𝑌) ⊆ ( L ‘𝑋) ↔ ∃𝑥 𝑥 ∈ (( L ‘𝑌) ∖ ( L ‘𝑋)))
84		eldif 3900	. . . . . . 7 ⊢ (𝑥 ∈ (( L ‘𝑌) ∖ ( L ‘𝑋)) ↔ (𝑥 ∈ ( L ‘𝑌) ∧ ¬ 𝑥 ∈ ( L ‘𝑋)))
85	21	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑌 ∈ No → ( L ‘𝑌) = {𝑥 ∈ ( O ‘( bday ‘𝑌)) ∣ 𝑥 <s 𝑌})
86	85	eleq2d 2826	. . . . . . . . . . 11 ⊢ (𝑌 ∈ No → (𝑥 ∈ ( L ‘𝑌) ↔ 𝑥 ∈ {𝑥 ∈ ( O ‘( bday ‘𝑌)) ∣ 𝑥 <s 𝑌}))
87	86, 24	bitrdi 288	. . . . . . . . . 10 ⊢ (𝑌 ∈ No → (𝑥 ∈ ( L ‘𝑌) ↔ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)))
88	16	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ No → ( L ‘𝑋) = {𝑥 ∈ ( O ‘( bday ‘𝑋)) ∣ 𝑥 <s 𝑋})
89	88	eleq2d 2826	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ No → (𝑥 ∈ ( L ‘𝑋) ↔ 𝑥 ∈ {𝑥 ∈ ( O ‘( bday ‘𝑋)) ∣ 𝑥 <s 𝑋}))
90	89, 19	bitrdi 288	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ No → (𝑥 ∈ ( L ‘𝑋) ↔ (𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋)))
91	90	notbid 319	. . . . . . . . . . 11 ⊢ (𝑋 ∈ No → (¬ 𝑥 ∈ ( L ‘𝑋) ↔ ¬ (𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋)))
92		ianor 989	. . . . . . . . . . 11 ⊢ (¬ (𝑥 ∈ ( O ‘( bday ‘𝑋)) ∧ 𝑥 <s 𝑋) ↔ (¬ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∨ ¬ 𝑥 <s 𝑋))
93	91, 92	bitrdi 288	. . . . . . . . . 10 ⊢ (𝑋 ∈ No → (¬ 𝑥 ∈ ( L ‘𝑋) ↔ (¬ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∨ ¬ 𝑥 <s 𝑋)))
94	87, 93	bi2anan9r 645	. . . . . . . . 9 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ) → ((𝑥 ∈ ( L ‘𝑌) ∧ ¬ 𝑥 ∈ ( L ‘𝑋)) ↔ ((𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌) ∧ (¬ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∨ ¬ 𝑥 <s 𝑋))))
95	94	3adant3 1138	. . . . . . . 8 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → ((𝑥 ∈ ( L ‘𝑌) ∧ ¬ 𝑥 ∈ ( L ‘𝑋)) ↔ ((𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌) ∧ (¬ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∨ ¬ 𝑥 <s 𝑋))))
96		simprl 776	. . . . . . . . . . . 12 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → 𝑥 ∈ ( O ‘( bday ‘𝑌)))
97		simpl3 1200	. . . . . . . . . . . . 13 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → ( bday ‘𝑋) = ( bday ‘𝑌))
98	97	fveq2d 6838	. . . . . . . . . . . 12 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → ( O ‘( bday ‘𝑋)) = ( O ‘( bday ‘𝑌)))
99	96, 98	eleqtrrd 2843	. . . . . . . . . . 11 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → 𝑥 ∈ ( O ‘( bday ‘𝑋)))
100	99	pm2.24d 151	. . . . . . . . . 10 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → (¬ 𝑥 ∈ ( O ‘( bday ‘𝑋)) → 𝑋 <s 𝑌))
101		simpll1 1219	. . . . . . . . . . . 12 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) ∧ ¬ 𝑥 <s 𝑋) → 𝑋 ∈ No )
102	96	oldnod 27864	. . . . . . . . . . . . 13 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → 𝑥 ∈ No )
103	102	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) ∧ ¬ 𝑥 <s 𝑋) → 𝑥 ∈ No )
104		simpll2 1220	. . . . . . . . . . . 12 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) ∧ ¬ 𝑥 <s 𝑋) → 𝑌 ∈ No )
105		simpl1 1198	. . . . . . . . . . . . . 14 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → 𝑋 ∈ No )
106		lenlts 27741	. . . . . . . . . . . . . 14 ⊢ ((𝑋 ∈ No ∧ 𝑥 ∈ No ) → (𝑋 ≤s 𝑥 ↔ ¬ 𝑥 <s 𝑋))
107	105, 102, 106	syl2anc 590	. . . . . . . . . . . . 13 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → (𝑋 ≤s 𝑥 ↔ ¬ 𝑥 <s 𝑋))
108	107	biimpar 478	. . . . . . . . . . . 12 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) ∧ ¬ 𝑥 <s 𝑋) → 𝑋 ≤s 𝑥)
109		simplrr 783	. . . . . . . . . . . 12 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) ∧ ¬ 𝑥 <s 𝑋) → 𝑥 <s 𝑌)
110	101, 103, 104, 108, 109	leltstrd 27754	. . . . . . . . . . 11 ⊢ ((((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) ∧ ¬ 𝑥 <s 𝑋) → 𝑋 <s 𝑌)
111	110	ex 413	. . . . . . . . . 10 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → (¬ 𝑥 <s 𝑋 → 𝑋 <s 𝑌))
112	100, 111	jaod 865	. . . . . . . . 9 ⊢ (((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) ∧ (𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌)) → ((¬ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∨ ¬ 𝑥 <s 𝑋) → 𝑋 <s 𝑌))
113	112	expimpd 454	. . . . . . . 8 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (((𝑥 ∈ ( O ‘( bday ‘𝑌)) ∧ 𝑥 <s 𝑌) ∧ (¬ 𝑥 ∈ ( O ‘( bday ‘𝑋)) ∨ ¬ 𝑥 <s 𝑋)) → 𝑋 <s 𝑌))
114	95, 113	sylbid 241	. . . . . . 7 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → ((𝑥 ∈ ( L ‘𝑌) ∧ ¬ 𝑥 ∈ ( L ‘𝑋)) → 𝑋 <s 𝑌))
115	84, 114	biimtrid 243	. . . . . 6 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (𝑥 ∈ (( L ‘𝑌) ∖ ( L ‘𝑋)) → 𝑋 <s 𝑌))
116	115	exlimdv 1940	. . . . 5 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (∃𝑥 𝑥 ∈ (( L ‘𝑌) ∖ ( L ‘𝑋)) → 𝑋 <s 𝑌))
117	83, 116	biimtrid 243	. . . 4 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (¬ ( L ‘𝑌) ⊆ ( L ‘𝑋) → 𝑋 <s 𝑌))
118	117	adantld 491	. . 3 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → ((( L ‘𝑋) ⊆ ( L ‘𝑌) ∧ ¬ ( L ‘𝑌) ⊆ ( L ‘𝑋)) → 𝑋 <s 𝑌))
119	79, 118	biimtrid 243	. 2 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (( L ‘𝑋) ⊊ ( L ‘𝑌) → 𝑋 <s 𝑌))
120	78, 119	impbid 213	1 ⊢ ((𝑋 ∈ No ∧ 𝑌 ∈ No ∧ ( bday ‘𝑋) = ( bday ‘𝑌)) → (𝑋 <s 𝑌 ↔ ( L ‘𝑋) ⊊ ( L ‘𝑌)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∨ wo 853   ∧ w3a 1092   = wceq 1547  ∃wex 1786   ∈ wcel 2119   ≠ wne 2935  {crab 3392   ∖ cdif 3887   ∪ cun 3888   ∩ cin 3889   ⊆ wss 3890   ⊊ wpss 3891  ∅c0 4268   class class class wbr 5079  ‘cfv 6492  (class class class)co 7363   No csur 27628   <s clts 27629   bday cbday 27630   ≤s cles 27733   <<s cslts 27774   |s ccuts 27776   O cold 27840   L cleft 27842   R cright 27843

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4846  df-int 4885  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  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 6259  df-ord 6320  df-on 6321  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-1o 8402  df-2o 8403  df-no 27631  df-lts 27632  df-bday 27633  df-les 27734  df-slts 27775  df-cuts 27777  df-made 27844  df-old 27845  df-left 27847  df-right 27848

This theorem is referenced by:  leslss  27926