Mathbox for Scott Fenton < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  nosupbnd1lem3 Structured version   Visualization version   GIF version

Theorem nosupbnd1lem3 31981
 Description: Lemma for nosupbnd1 31985. If 𝑈 is a prolongment of 𝑆 and in 𝐴, then (𝑈‘dom 𝑆) is not 2𝑜. (Contributed by Scott Fenton, 6-Dec-2021.)
Hypothesis
Ref Expression
nosupbnd1.1 𝑆 = if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2𝑜⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
Assertion
Ref Expression
nosupbnd1lem3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (𝑈‘dom 𝑆) ≠ 2𝑜)
Distinct variable group:   𝐴,𝑔,𝑢,𝑣,𝑥,𝑦
Allowed substitution hints:   𝑆(𝑥,𝑦,𝑣,𝑢,𝑔)   𝑈(𝑥,𝑦,𝑣,𝑢,𝑔)

Proof of Theorem nosupbnd1lem3
Dummy variables 𝑝 𝑞 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nosupbnd1.1 . . . . . 6 𝑆 = if(∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦, ((𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦) ∪ {⟨dom (𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦), 2𝑜⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐴 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐴 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐴𝑣 <s 𝑢 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
21nosupno 31974 . . . . 5 ((𝐴 No 𝐴 ∈ V) → 𝑆 No )
323ad2ant2 1103 . . . 4 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → 𝑆 No )
4 nodmord 31931 . . . 4 (𝑆 No → Ord dom 𝑆)
5 ordirr 5779 . . . 4 (Ord dom 𝑆 → ¬ dom 𝑆 ∈ dom 𝑆)
63, 4, 53syl 18 . . 3 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → ¬ dom 𝑆 ∈ dom 𝑆)
7 simpl3l 1136 . . . . 5 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → 𝑈𝐴)
8 ndmfv 6256 . . . . . . . 8 (¬ dom 𝑆 ∈ dom 𝑈 → (𝑈‘dom 𝑆) = ∅)
9 2on 7613 . . . . . . . . . . . . 13 2𝑜 ∈ On
109elexi 3244 . . . . . . . . . . . 12 2𝑜 ∈ V
1110prid2 4330 . . . . . . . . . . 11 2𝑜 ∈ {1𝑜, 2𝑜}
1211nosgnn0i 31937 . . . . . . . . . 10 ∅ ≠ 2𝑜
13 neeq1 2885 . . . . . . . . . 10 ((𝑈‘dom 𝑆) = ∅ → ((𝑈‘dom 𝑆) ≠ 2𝑜 ↔ ∅ ≠ 2𝑜))
1412, 13mpbiri 248 . . . . . . . . 9 ((𝑈‘dom 𝑆) = ∅ → (𝑈‘dom 𝑆) ≠ 2𝑜)
1514neneqd 2828 . . . . . . . 8 ((𝑈‘dom 𝑆) = ∅ → ¬ (𝑈‘dom 𝑆) = 2𝑜)
168, 15syl 17 . . . . . . 7 (¬ dom 𝑆 ∈ dom 𝑈 → ¬ (𝑈‘dom 𝑆) = 2𝑜)
1716con4i 113 . . . . . 6 ((𝑈‘dom 𝑆) = 2𝑜 → dom 𝑆 ∈ dom 𝑈)
1817adantl 481 . . . . 5 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → dom 𝑆 ∈ dom 𝑈)
19 simpl2l 1134 . . . . . . . . . 10 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → 𝐴 No )
2019adantr 480 . . . . . . . . 9 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝐴 No )
217adantr 480 . . . . . . . . 9 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑈𝐴)
2220, 21sseldd 3637 . . . . . . . 8 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑈 No )
23 simprl 809 . . . . . . . . 9 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑞𝐴)
2420, 23sseldd 3637 . . . . . . . 8 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑞 No )
253adantr 480 . . . . . . . . . 10 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → 𝑆 No )
2625adantr 480 . . . . . . . . 9 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → 𝑆 No )
27 nodmon 31928 . . . . . . . . 9 (𝑆 No → dom 𝑆 ∈ On)
2826, 27syl 17 . . . . . . . 8 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → dom 𝑆 ∈ On)
29 simpl3r 1137 . . . . . . . . . 10 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → (𝑈 ↾ dom 𝑆) = 𝑆)
3029adantr 480 . . . . . . . . 9 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ dom 𝑆) = 𝑆)
31 simpll1 1120 . . . . . . . . . 10 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → ¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦)
32 simpll2 1121 . . . . . . . . . 10 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝐴 No 𝐴 ∈ V))
33 simpll3 1122 . . . . . . . . . 10 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆))
34 simpr 476 . . . . . . . . . 10 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈))
351nosupbnd1lem2 31980 . . . . . . . . . 10 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ ((𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈))) → (𝑞 ↾ dom 𝑆) = 𝑆)
3631, 32, 33, 34, 35syl112anc 1370 . . . . . . . . 9 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑞 ↾ dom 𝑆) = 𝑆)
3730, 36eqtr4d 2688 . . . . . . . 8 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ dom 𝑆) = (𝑞 ↾ dom 𝑆))
38 simplr 807 . . . . . . . 8 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈‘dom 𝑆) = 2𝑜)
39 simprr 811 . . . . . . . 8 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → ¬ 𝑞 <s 𝑈)
40 nolesgn2ores 31950 . . . . . . . 8 (((𝑈 No 𝑞 No ∧ dom 𝑆 ∈ On) ∧ ((𝑈 ↾ dom 𝑆) = (𝑞 ↾ dom 𝑆) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ ¬ 𝑞 <s 𝑈) → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))
4122, 24, 28, 37, 38, 39, 40syl321anc 1388 . . . . . . 7 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ (𝑞𝐴 ∧ ¬ 𝑞 <s 𝑈)) → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))
4241expr 642 . . . . . 6 ((((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) ∧ 𝑞𝐴) → (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
4342ralrimiva 2995 . . . . 5 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → ∀𝑞𝐴𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
44 dmeq 5356 . . . . . . . 8 (𝑝 = 𝑈 → dom 𝑝 = dom 𝑈)
4544eleq2d 2716 . . . . . . 7 (𝑝 = 𝑈 → (dom 𝑆 ∈ dom 𝑝 ↔ dom 𝑆 ∈ dom 𝑈))
46 breq2 4689 . . . . . . . . . 10 (𝑝 = 𝑈 → (𝑞 <s 𝑝𝑞 <s 𝑈))
4746notbid 307 . . . . . . . . 9 (𝑝 = 𝑈 → (¬ 𝑞 <s 𝑝 ↔ ¬ 𝑞 <s 𝑈))
48 reseq1 5422 . . . . . . . . . 10 (𝑝 = 𝑈 → (𝑝 ↾ suc dom 𝑆) = (𝑈 ↾ suc dom 𝑆))
4948eqeq1d 2653 . . . . . . . . 9 (𝑝 = 𝑈 → ((𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆) ↔ (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
5047, 49imbi12d 333 . . . . . . . 8 (𝑝 = 𝑈 → ((¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)) ↔ (¬ 𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
5150ralbidv 3015 . . . . . . 7 (𝑝 = 𝑈 → (∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)) ↔ ∀𝑞𝐴𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
5245, 51anbi12d 747 . . . . . 6 (𝑝 = 𝑈 → ((dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))) ↔ (dom 𝑆 ∈ dom 𝑈 ∧ ∀𝑞𝐴𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
5352rspcev 3340 . . . . 5 ((𝑈𝐴 ∧ (dom 𝑆 ∈ dom 𝑈 ∧ ∀𝑞𝐴𝑞 <s 𝑈 → (𝑈 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))) → ∃𝑝𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
547, 18, 43, 53syl12anc 1364 . . . 4 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → ∃𝑝𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
551nosupdm 31975 . . . . . . . 8 (¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → dom 𝑆 = {𝑧 ∣ ∃𝑝𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))})
5655eleq2d 2716 . . . . . . 7 (¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 → (dom 𝑆 ∈ dom 𝑆 ↔ dom 𝑆 ∈ {𝑧 ∣ ∃𝑝𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))}))
57563ad2ant1 1102 . . . . . 6 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (dom 𝑆 ∈ dom 𝑆 ↔ dom 𝑆 ∈ {𝑧 ∣ ∃𝑝𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))}))
58 eleq1 2718 . . . . . . . . . 10 (𝑧 = dom 𝑆 → (𝑧 ∈ dom 𝑝 ↔ dom 𝑆 ∈ dom 𝑝))
59 suceq 5828 . . . . . . . . . . . . . 14 (𝑧 = dom 𝑆 → suc 𝑧 = suc dom 𝑆)
6059reseq2d 5428 . . . . . . . . . . . . 13 (𝑧 = dom 𝑆 → (𝑝 ↾ suc 𝑧) = (𝑝 ↾ suc dom 𝑆))
6159reseq2d 5428 . . . . . . . . . . . . 13 (𝑧 = dom 𝑆 → (𝑞 ↾ suc 𝑧) = (𝑞 ↾ suc dom 𝑆))
6260, 61eqeq12d 2666 . . . . . . . . . . . 12 (𝑧 = dom 𝑆 → ((𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧) ↔ (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))
6362imbi2d 329 . . . . . . . . . . 11 (𝑧 = dom 𝑆 → ((¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)) ↔ (¬ 𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
6463ralbidv 3015 . . . . . . . . . 10 (𝑧 = dom 𝑆 → (∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)) ↔ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆))))
6558, 64anbi12d 747 . . . . . . . . 9 (𝑧 = dom 𝑆 → ((𝑧 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧))) ↔ (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
6665rexbidv 3081 . . . . . . . 8 (𝑧 = dom 𝑆 → (∃𝑝𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧))) ↔ ∃𝑝𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
6766elabg 3383 . . . . . . 7 (dom 𝑆 ∈ On → (dom 𝑆 ∈ {𝑧 ∣ ∃𝑝𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))} ↔ ∃𝑝𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
683, 27, 673syl 18 . . . . . 6 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (dom 𝑆 ∈ {𝑧 ∣ ∃𝑝𝐴 (𝑧 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc 𝑧) = (𝑞 ↾ suc 𝑧)))} ↔ ∃𝑝𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
6957, 68bitrd 268 . . . . 5 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (dom 𝑆 ∈ dom 𝑆 ↔ ∃𝑝𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
7069adantr 480 . . . 4 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → (dom 𝑆 ∈ dom 𝑆 ↔ ∃𝑝𝐴 (dom 𝑆 ∈ dom 𝑝 ∧ ∀𝑞𝐴𝑞 <s 𝑝 → (𝑝 ↾ suc dom 𝑆) = (𝑞 ↾ suc dom 𝑆)))))
7154, 70mpbird 247 . . 3 (((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) ∧ (𝑈‘dom 𝑆) = 2𝑜) → dom 𝑆 ∈ dom 𝑆)
726, 71mtand 692 . 2 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → ¬ (𝑈‘dom 𝑆) = 2𝑜)
7372neqned 2830 1 ((¬ ∃𝑥𝐴𝑦𝐴 ¬ 𝑥 <s 𝑦 ∧ (𝐴 No 𝐴 ∈ V) ∧ (𝑈𝐴 ∧ (𝑈 ↾ dom 𝑆) = 𝑆)) → (𝑈‘dom 𝑆) ≠ 2𝑜)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 196   ∧ wa 383   ∧ w3a 1054   = wceq 1523   ∈ wcel 2030  {cab 2637   ≠ wne 2823  ∀wral 2941  ∃wrex 2942  Vcvv 3231   ∪ cun 3605   ⊆ wss 3607  ∅c0 3948  ifcif 4119  {csn 4210  ⟨cop 4216   class class class wbr 4685   ↦ cmpt 4762  dom cdm 5143   ↾ cres 5145  Ord word 5760  Oncon0 5761  suc csuc 5763  ℩cio 5887  ‘cfv 5926  ℩crio 6650  1𝑜c1o 7598  2𝑜c2o 7599   No csur 31918
 Copyright terms: Public domain W3C validator