Theorem nosupbnd1lem3 27679

Description: Lemma for nosupbnd1 27683. 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 27672	. . . . 5 ⊢ ((𝐴 ⊆ No ∧ 𝐴 ∈ V) → 𝑆 ∈ No )
3	2	3ad2ant2 1134	. . . 4 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → 𝑆 ∈ No )
4		nodmord 27622	. . . 4 ⊢ (𝑆 ∈ No → Ord dom 𝑆)
5		ordirr 6375	. . . 4 ⊢ (Ord dom 𝑆 → ¬ dom 𝑆 ∈ dom 𝑆)
6	3, 4, 5	3syl 18	. . 3 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → ¬ dom 𝑆 ∈ dom 𝑆)
7		simpl3l 1229	. . . . 5 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → 𝑈 ∈ 𝐴)
8		ndmfv 6916	. . . . . . . 8 ⊢ (¬ dom 𝑆 ∈ dom 𝑈 → (𝑈‘dom 𝑆) = ∅)
9		2on 8499	. . . . . . . . . . . . 13 ⊢ 2o ∈ On
10	9	elexi 3487	. . . . . . . . . . . 12 ⊢ 2o ∈ V
11	10	prid2 4744	. . . . . . . . . . 11 ⊢ 2o ∈ {1o, 2o}
12	11	nosgnn0i 27628	. . . . . . . . . 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 1227	. . . . . . . . . 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 3964	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑈 ∈ No )
23		simprl 770	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑞 ∈ 𝐴)
24	20, 23	sseldd 3964	. . . . . . . 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 27619	. . . . . . . . 9 ⊢ (𝑆 ∈ No → dom 𝑆 ∈ On)
28	26, 27	syl 17	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → dom 𝑆 ∈ On)
29		simpl3r 1230	. . . . . . . . . 10 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → (𝑈 ↾ dom 𝑆) = 𝑆)
30	29	adantr 480	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ dom 𝑆) = 𝑆)
31		simpll1 1213	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → ¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦)
32		simpll2 1214	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝐴 ⊆ No ∧ 𝐴 ∈ V))
33		simpll3 1215	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆))
34		simpr 484	. . . . . . . . . 10 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈))
35	1	nosupbnd1lem2 27678	. . . . . . . . . 10 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ ((𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈))) → (𝑞 ↾ dom 𝑆) = 𝑆)
36	31, 32, 33, 34, 35	syl112anc 1376	. . . . . . . . 9 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑞 ↾ dom 𝑆) = 𝑆)
37	30, 36	eqtr4d 2774	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ dom 𝑆) = (𝑞 ↾ dom 𝑆))
38		simplr 768	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈‘dom 𝑆) = 2o)
39		simprr 772	. . . . . . . 8 ⊢ ((((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 <s 𝑈)) → ¬ 𝑞 <s 𝑈)
40		nolesgn2ores 27641	. . . . . . . 8 ⊢ (((𝑈 ∈ No ∧ 𝑞 ∈ No ∧ dom 𝑆 ∈ On) ∧ ((𝑈 ↾ dom 𝑆) = (𝑞 ↾ dom 𝑆) ∧ (𝑈‘dom 𝑆) = 2o) ∧ ¬ 𝑞 <s 𝑈) → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))
41	22, 24, 28, 37, 38, 39, 40	syl321anc 1394	. . . . . . 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 3133	. . . . 5 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
44		dmeq 5888	. . . . . . . 8 ⊢ (𝑝 = 𝑈 → dom 𝑝 = dom 𝑈)
45	44	eleq2d 2821	. . . . . . 7 ⊢ (𝑝 = 𝑈 → (dom 𝑆 ∈ dom 𝑝 ↔ dom 𝑆 ∈ dom 𝑈))
46		breq2 5128	. . . . . . . . . 10 ⊢ (𝑝 = 𝑈 → (𝑞 <s 𝑝 ↔ 𝑞 <s 𝑈))
47	46	notbid 318	. . . . . . . . 9 ⊢ (𝑝 = 𝑈 → (¬ 𝑞 <s 𝑝 ↔ ¬ 𝑞 <s 𝑈))
48		reseq1 5965	. . . . . . . . . 10 ⊢ (𝑝 = 𝑈 → (𝑝 ↾ suc dom 𝑆) = (𝑈 ↾ suc dom 𝑆))
49	48	eqeq1d 2738	. . . . . . . . 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 3164	. . . . . . 7 ⊢ (𝑝 = 𝑈 → (∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)) ↔ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
52	45, 51	anbi12d 632	. . . . . 6 ⊢ (𝑝 = 𝑈 → ((dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))) ↔ (dom 𝑆 ∈ dom 𝑈 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
53	52	rspcev 3606	. . . . 5 ⊢ ((𝑈 ∈ 𝐴 ∧ (dom 𝑆 ∈ dom 𝑈 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))) → ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
54	7, 18, 43, 53	syl12anc 836	. . . 4 ⊢ (((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2o) → ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
55	1	nosupdm 27673	. . . . . . . 8 ⊢ (¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 → dom 𝑆 = {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))})
56	55	eleq2d 2821	. . . . . . 7 ⊢ (¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 → (dom 𝑆 ∈ dom 𝑆 ↔ dom 𝑆 ∈ {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))}))
57	56	3ad2ant1 1133	. . . . . 6 ⊢ ((¬ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 ⊆ No ∧ 𝐴 ∈ V) ∧ (𝑈 ∈ 𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (dom 𝑆 ∈ dom 𝑆 ↔ dom 𝑆 ∈ {𝑧 ∣ ∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))}))
58		eleq1 2823	. . . . . . . . . 10 ⊢ (𝑧 = dom 𝑆 → (𝑧 ∈ dom 𝑝 ↔ dom 𝑆 ∈ dom 𝑝))
59		suceq 6424	. . . . . . . . . . . . . 14 ⊢ (𝑧 = dom 𝑆 → suc 𝑧 = suc dom 𝑆)
60	59	reseq2d 5971	. . . . . . . . . . . . 13 ⊢ (𝑧 = dom 𝑆 → (𝑝 ↾ suc 𝑧) = (𝑝 ↾ suc dom 𝑆))
61	59	reseq2d 5971	. . . . . . . . . . . . 13 ⊢ (𝑧 = dom 𝑆 → (𝑞 ↾ suc 𝑧) = (𝑞 ↾ suc dom 𝑆))
62	60, 61	eqeq12d 2752	. . . . . . . . . . . 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 3164	. . . . . . . . . 10 ⊢ (𝑧 = dom 𝑆 → (∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)) ↔ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
65	58, 64	anbi12d 632	. . . . . . . . 9 ⊢ (𝑧 = dom 𝑆 → ((𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧))) ↔ (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
66	65	rexbidv 3165	. . . . . . . 8 ⊢ (𝑧 = dom 𝑆 → (∃𝑝 ∈ 𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧))) ↔ ∃𝑝 ∈ 𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞 ∈ 𝐴 (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
67	66	elabg 3660	. . . . . . 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 815	. 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 1086   = wceq 1540   ∈ wcel 2109  {cab 2714   ≠ wne 2933  ∀wral 3052  ∃wrex 3061  Vcvv 3464   ∪ cun 3929   ⊆ wss 3931  ∅c0 4313  ifcif 4505  {csn 4606  ⟨cop 4612   class class class wbr 5124   ↦ cmpt 5206  dom cdm 5659   ↾ cres 5661  Ord word 6356  Oncon0 6357  suc csuc 6359  ℩cio 6487  ‘cfv 6536  ℩crio 7366  1_oc1o 8478  2_oc2o 8479   No csur 27608   <s cslt 27609

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2708  ax-rep 5254  ax-sep 5271  ax-nul 5281  ax-pow 5340  ax-pr 5407  ax-un 7734

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2810  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3062  df-rmo 3364  df-reu 3365  df-rab 3421  df-v 3466  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-tp 4611  df-op 4613  df-uni 4889  df-int 4928  df-br 5125  df-opab 5187  df-mpt 5207  df-tr 5235  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-we 5613  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-ord 6360  df-on 6361  df-suc 6363  df-iota 6489  df-fun 6538  df-fn 6539  df-f 6540  df-fo 6542  df-fv 6544  df-riota 7367  df-1o 8485  df-2o 8486  df-no 27611  df-slt 27612  df-bday 27613

This theorem is referenced by:  nosupbnd1lem4  27680  nosupbnd1lem5  27681  nosupbnd1lem6  27682