Theorem nosupbnd1lem3 27695

Description: Lemma for nosupbnd1 27699. If 𝑈 is a prolongment of 𝑆 and in 𝐴, then (𝑈‘dom 𝑆) is not 2_o. (Contributed by Scott Fenton, 6-Dec-2021.)

Hypothesis

Ref	Expression
nosupbnd1.1	⊢ 𝑆 = if(∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦, ((℩𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (℩𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢 ∈ 𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣 ∈ 𝐴 (¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥∃𝑢 ∈ 𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣 ∈ 𝐴 (¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢‘𝑔) = 𝑥))))

Assertion

Ref	Expression
nosupbnd1lem3	⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (𝑈‘dom 𝑆) ≠ 2o)

Distinct variable group:   𝐴,𝑔,𝑢,𝑣,𝑥,𝑦

Allowed substitution hints:   𝑆(𝑥,𝑦,𝑣,𝑢,𝑔)   𝑈(𝑥,𝑦,𝑣,𝑢,𝑔)

Proof of Theorem nosupbnd1lem3

Dummy variables 𝑝 𝑞 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nosupbnd1.1	. . . . . 6 ⊢ 𝑆 = if(∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦, ((℩𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (℩𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦), 2o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢 ∈ 𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣 ∈ 𝐴 (¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥∃𝑢 ∈ 𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣 ∈ 𝐴 (¬ 𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢‘𝑔) = 𝑥))))
2	1	nosupno 27688	. . . . 5 ⊢ ((𝐴 ⊆ No ∧ 𝐴 ∈ V) → 𝑆 ∈ No )
3	2	3ad2ant2 1135	. . . 4 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → 𝑆 ∈ No )
4		nodmord 27638	. . . 4 ⊢ (𝑆 ∈ No → Ord dom 𝑆)
5		ordirr 6345	. . . 4 ⊢ (Ord dom 𝑆 → ¬ dom 𝑆 ∈ dom 𝑆)
6	3, 4, 5	3syl 18	. . 3 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → ¬ dom 𝑆 ∈ dom 𝑆)
7		simpl3l 1230	. . . . 5 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → 𝑈 ∈ 𝐴)
8		ndmfv 6876	. . . . . . . 8 ⊢ (¬ dom 𝑆 ∈ dom 𝑈 → (𝑈‘dom 𝑆) = ∅)
9		2on 8422	. . . . . . . . . . . . 13 ⊢ 2o ∈ On
10	9	elexi 3465	. . . . . . . . . . . 12 ⊢ 2o ∈ V
11	10	prid2 4722	. . . . . . . . . . 11 ⊢ 2o ∈ {1o, 2o}
12	11	nosgnn0i 27644	. . . . . . . . . 10 ⊢ ∅ ≠ 2o
13		neeq1 2995	. . . . . . . . . 10 ⊢ ((𝑈‘dom 𝑆) = ∅ → ((𝑈‘dom 𝑆) ≠ 2o ↔ ∅ ≠ 2o))
14	12, 13	mpbiri 258	. . . . . . . . 9 ⊢ ((𝑈‘dom 𝑆) = ∅ → (𝑈‘dom 𝑆) ≠ 2o)
15	14	neneqd 2938	. . . . . . . 8 ⊢ ((𝑈‘dom 𝑆) = ∅ → ¬ (𝑈‘dom 𝑆) = 2o)
16	8, 15	syl 17	. . . . . . 7 ⊢ (¬ dom 𝑆 ∈ dom 𝑈 → ¬ (𝑈‘dom 𝑆) = 2o)
17	16	con4i 114	. . . . . 6 ⊢ ((𝑈‘dom 𝑆) = 2o → dom 𝑆 ∈ dom 𝑈)
18	17	adantl 481	. . . . 5 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → dom 𝑆 ∈ dom 𝑈)
19		simpl2l 1228	. . . . . . . . . 10 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → 𝐴 ⊆ No )
20	19	adantr 480	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝐴 ⊆ No )
21	7	adantr 480	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑈 ∈ 𝐴)
22	20, 21	sseldd 3936	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑈 ∈ No )
23		simprl 771	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑞 ∈ 𝐴)
24	20, 23	sseldd 3936	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑞 ∈ No )
25	3	adantr 480	. . . . . . . . . 10 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → 𝑆 ∈ No )
26	25	adantr 480	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑆 ∈ No )
27		nodmon 27635	. . . . . . . . 9 ⊢ (𝑆 ∈ No → dom 𝑆 ∈ On)
28	26, 27	syl 17	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → dom 𝑆 ∈ On)
29		simpl3r 1231	. . . . . . . . . 10 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → (𝑈 ↾ dom 𝑆) = 𝑆)
30	29	adantr 480	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ dom 𝑆) = 𝑆)
31		simpll1 1214	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → ¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦)
32		simpll2 1215	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝐴 ⊆ No ∧ 𝐴 ∈ V))
33		simpll3 1216	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆))
34		simpr 484	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈))
35	1	nosupbnd1lem2 27694	. . . . . . . . . 10 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ ((𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈))) → (𝑞 ↾ dom 𝑆) = 𝑆)
36	31, 32, 33, 34, 35	syl112anc 1377	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑞 ↾ dom 𝑆) = 𝑆)
37	30, 36	eqtr4d 2775	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ dom 𝑆) = (𝑞 ↾ dom 𝑆))
38		simplr 769	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈‘dom 𝑆) = 2o)
39		simprr 773	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → ¬ 𝑞 <s 𝑈)
40		nolesgn2ores 27657	. . . . . . . 8 ⊢ (((𝑈 ∈ No ∧ 𝑞 ∈ No ∧ dom 𝑆 ∈ On) ∧ ((𝑈 ↾ dom 𝑆) = (𝑞 ↾ dom 𝑆) ∧ (𝑈‘dom 𝑆) = 2o) ∧ ¬ 𝑞 <s 𝑈) → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))
41	22, 24, 28, 37, 38, 39, 40	syl321anc 1395	. . . . . . 7 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))
42	41	expr 456	. . . . . 6 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ 𝑞 ∈ 𝐴) → (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
43	42	ralrimiva 3130	. . . . 5 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
44		dmeq 5862	. . . . . . . 8 ⊢ (𝑝 = 𝑈 → dom 𝑝 = dom 𝑈)
45	44	eleq2d 2823	. . . . . . 7 ⊢ (𝑝 = 𝑈 → (dom 𝑆 ∈ dom 𝑝 ↔ dom 𝑆 ∈ dom 𝑈))
46		breq2 5104	. . . . . . . . . 10 ⊢ (𝑝 = 𝑈 → (𝑞 <s 𝑝 ↔ 𝑞 <s 𝑈))
47	46	notbid 318	. . . . . . . . 9 ⊢ (𝑝 = 𝑈 → (¬ 𝑞 <s 𝑝 ↔ ¬ 𝑞 <s 𝑈))
48		reseq1 5942	. . . . . . . . . 10 ⊢ (𝑝 = 𝑈 → (𝑝 ↾ suc dom 𝑆) = (𝑈 ↾ suc dom 𝑆))
49	48	eqeq1d 2739	. . . . . . . . 9 ⊢ (𝑝 = 𝑈 → ((𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆) ↔ (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
50	47, 49	imbi12d 344	. . . . . . . 8 ⊢ (𝑝 = 𝑈 → ((¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)) ↔ (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
51	50	ralbidv 3161	. . . . . . 7 ⊢ (𝑝 = 𝑈 → (∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)) ↔ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
52	45, 51	anbi12d 633	. . . . . 6 ⊢ (𝑝 = 𝑈 → ((dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))) ↔ (dom 𝑆 ∈ dom 𝑈 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
53	52	rspcev 3578	. . . . 5 ⊢ ((𝑈 ∈ 𝐴 ∧ (dom 𝑆 ∈ dom 𝑈 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))) → ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
54	7, 18, 43, 53	syl12anc 837	. . . 4 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
55	1	nosupdm 27689	. . . . . . . 8 ⊢ (¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 → dom 𝑆 = {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))})
56	55	eleq2d 2823	. . . . . . 7 ⊢ (¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 → (dom 𝑆 ∈ dom 𝑆 ↔ dom 𝑆 ∈ {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))}))
57	56	3ad2ant1 1134	. . . . . 6 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (dom 𝑆 ∈ dom 𝑆 ↔ dom 𝑆 ∈ {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))}))
58		eleq1 2825	. . . . . . . . . 10 ⊢ (𝑧 = dom 𝑆 → (𝑧 ∈ dom 𝑝 ↔ dom 𝑆 ∈ dom 𝑝))
59		suceq 6395	. . . . . . . . . . . . . 14 ⊢ (𝑧 = dom 𝑆 → suc 𝑧 = suc dom 𝑆)
60	59	reseq2d 5948	. . . . . . . . . . . . 13 ⊢ (𝑧 = dom 𝑆 → (𝑝 ↾ suc 𝑧) = (𝑝 ↾ suc dom 𝑆))
61	59	reseq2d 5948	. . . . . . . . . . . . 13 ⊢ (𝑧 = dom 𝑆 → (𝑞 ↾ suc 𝑧) = (𝑞 ↾ suc dom 𝑆))
62	60, 61	eqeq12d 2753	. . . . . . . . . . . 12 ⊢ (𝑧 = dom 𝑆 → ((𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧) ↔ (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
63	62	imbi2d 340	. . . . . . . . . . 11 ⊢ (𝑧 = dom 𝑆 → ((¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)) ↔ (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
64	63	ralbidv 3161	. . . . . . . . . 10 ⊢ (𝑧 = dom 𝑆 → (∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)) ↔ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
65	58, 64	anbi12d 633	. . . . . . . . 9 ⊢ (𝑧 = dom 𝑆 → ((𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧))) ↔ (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
66	65	rexbidv 3162	. . . . . . . 8 ⊢ (𝑧 = dom 𝑆 → (∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧))) ↔ ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
67	66	elabg 3633	. . . . . . 7 ⊢ (dom 𝑆 ∈ On → (dom 𝑆 ∈ {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))} ↔ ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
68	3, 27, 67	3syl 18	. . . . . 6 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (dom 𝑆 ∈ {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))} ↔ ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
69	57, 68	bitrd 279	. . . . 5 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (dom 𝑆 ∈ dom 𝑆 ↔ ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
70	69	adantr 480	. . . 4 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → (dom 𝑆 ∈ dom 𝑆 ↔ ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
71	54, 70	mpbird 257	. . 3 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → dom 𝑆 ∈ dom 𝑆)
72	6, 71	mtand 816	. 2 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → ¬ (𝑈‘dom 𝑆) = 2o)
73	72	neqned 2940	1 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (𝑈‘dom 𝑆) ≠ 2o)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  {cab 2715   ≠ wne 2933  ∀wral 3052  ∃wrex 3062  Vcvv 3442   ∪ cun 3901   ⊆ wss 3903  ∅c0 4287  ifcif 4481  {csn 4582  ⟨cop 4588   class class class wbr 5100   ↦ cmpt 5181  dom cdm 5634   ↾ cres 5636  Ord word 6326  Oncon0 6327  suc csuc 6329  ℩cio 6456  ‘cfv 6502  ℩crio 7326  1_oc1o 8402  2_oc2o 8403   No csur 27624   <s clts 27625

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 5226  ax-sep 5245  ax-nul 5255  ax-pow 5314  ax-pr 5381  ax-un 7692

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 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5529  df-eprel 5534  df-po 5542  df-so 5543  df-fr 5587  df-we 5589  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-ord 6330  df-on 6331  df-suc 6333  df-iota 6458  df-fun 6504  df-fn 6505  df-f 6506  df-fo 6508  df-fv 6510  df-riota 7327  df-1o 8409  df-2o 8410  df-no 27627  df-lts 27628  df-bday 27629

This theorem is referenced by:  nosupbnd1lem4  27696  nosupbnd1lem5  27697  nosupbnd1lem6  27698