MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  nogesgn1ores Structured version   Visualization version   GIF version

Theorem nogesgn1ores 27734
Description: Given 𝐴 greater than or equal to 𝐵, equal to 𝐵 up to 𝑋, and 𝐴(𝑋) = 1o, then (𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋). (Contributed by Scott Fenton, 6-Dec-2021.)
Assertion
Ref Expression
nogesgn1ores (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋))

Proof of Theorem nogesgn1ores
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 dmres 6032 . . . 4 dom (𝐴 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐴)
2 simp11 1202 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → 𝐴 No )
3 nodmord 27713 . . . . . . 7 (𝐴 No → Ord dom 𝐴)
42, 3syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Ord dom 𝐴)
5 ndmfv 6942 . . . . . . . . . 10 𝑋 ∈ dom 𝐴 → (𝐴𝑋) = ∅)
6 1n0 8525 . . . . . . . . . . . . 13 1o ≠ ∅
76necomi 2993 . . . . . . . . . . . 12 ∅ ≠ 1o
8 neeq1 3001 . . . . . . . . . . . 12 ((𝐴𝑋) = ∅ → ((𝐴𝑋) ≠ 1o ↔ ∅ ≠ 1o))
97, 8mpbiri 258 . . . . . . . . . . 11 ((𝐴𝑋) = ∅ → (𝐴𝑋) ≠ 1o)
109neneqd 2943 . . . . . . . . . 10 ((𝐴𝑋) = ∅ → ¬ (𝐴𝑋) = 1o)
115, 10syl 17 . . . . . . . . 9 𝑋 ∈ dom 𝐴 → ¬ (𝐴𝑋) = 1o)
1211con4i 114 . . . . . . . 8 ((𝐴𝑋) = 1o𝑋 ∈ dom 𝐴)
1312adantl 481 . . . . . . 7 (((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) → 𝑋 ∈ dom 𝐴)
14133ad2ant2 1133 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → 𝑋 ∈ dom 𝐴)
15 ordsucss 7838 . . . . . 6 (Ord dom 𝐴 → (𝑋 ∈ dom 𝐴 → suc 𝑋 ⊆ dom 𝐴))
164, 14, 15sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → suc 𝑋 ⊆ dom 𝐴)
17 dfss2 3981 . . . . 5 (suc 𝑋 ⊆ dom 𝐴 ↔ (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
1816, 17sylib 218 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
191, 18eqtrid 2787 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → dom (𝐴 ↾ suc 𝑋) = suc 𝑋)
20 dmres 6032 . . . 4 dom (𝐵 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐵)
21 simp12 1203 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → 𝐵 No )
22 nodmord 27713 . . . . . . 7 (𝐵 No → Ord dom 𝐵)
2321, 22syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Ord dom 𝐵)
24 nogesgn1o 27733 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐵𝑋) = 1o)
25 ndmfv 6942 . . . . . . . . 9 𝑋 ∈ dom 𝐵 → (𝐵𝑋) = ∅)
26 neeq1 3001 . . . . . . . . . . 11 ((𝐵𝑋) = ∅ → ((𝐵𝑋) ≠ 1o ↔ ∅ ≠ 1o))
277, 26mpbiri 258 . . . . . . . . . 10 ((𝐵𝑋) = ∅ → (𝐵𝑋) ≠ 1o)
2827neneqd 2943 . . . . . . . . 9 ((𝐵𝑋) = ∅ → ¬ (𝐵𝑋) = 1o)
2925, 28syl 17 . . . . . . . 8 𝑋 ∈ dom 𝐵 → ¬ (𝐵𝑋) = 1o)
3029con4i 114 . . . . . . 7 ((𝐵𝑋) = 1o𝑋 ∈ dom 𝐵)
3124, 30syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → 𝑋 ∈ dom 𝐵)
32 ordsucss 7838 . . . . . 6 (Ord dom 𝐵 → (𝑋 ∈ dom 𝐵 → suc 𝑋 ⊆ dom 𝐵))
3323, 31, 32sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → suc 𝑋 ⊆ dom 𝐵)
34 dfss2 3981 . . . . 5 (suc 𝑋 ⊆ dom 𝐵 ↔ (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3533, 34sylib 218 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3620, 35eqtrid 2787 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → dom (𝐵 ↾ suc 𝑋) = suc 𝑋)
3719, 36eqtr4d 2778 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋))
3819eleq2d 2825 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) ↔ 𝑥 ∈ suc 𝑋))
39 vex 3482 . . . . . . . . 9 𝑥 ∈ V
4039elsuc 6456 . . . . . . . 8 (𝑥 ∈ suc 𝑋 ↔ (𝑥𝑋𝑥 = 𝑋))
41 simpl2l 1225 . . . . . . . . . . . 12 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → (𝐴𝑋) = (𝐵𝑋))
4241fveq1d 6909 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = ((𝐵𝑋)‘𝑥))
43 simpr 484 . . . . . . . . . . . 12 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → 𝑥𝑋)
4443fvresd 6927 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = (𝐴𝑥))
4543fvresd 6927 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → ((𝐵𝑋)‘𝑥) = (𝐵𝑥))
4642, 44, 453eqtr3d 2783 . . . . . . . . . 10 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → (𝐴𝑥) = (𝐵𝑥))
4746ex 412 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥𝑋 → (𝐴𝑥) = (𝐵𝑥)))
48 simp2r 1199 . . . . . . . . . . 11 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐴𝑋) = 1o)
4948, 24eqtr4d 2778 . . . . . . . . . 10 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐴𝑋) = (𝐵𝑋))
50 fveq2 6907 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐴𝑥) = (𝐴𝑋))
51 fveq2 6907 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐵𝑥) = (𝐵𝑋))
5250, 51eqeq12d 2751 . . . . . . . . . 10 (𝑥 = 𝑋 → ((𝐴𝑥) = (𝐵𝑥) ↔ (𝐴𝑋) = (𝐵𝑋)))
5349, 52syl5ibrcom 247 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 = 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5447, 53jaod 859 . . . . . . . 8 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → ((𝑥𝑋𝑥 = 𝑋) → (𝐴𝑥) = (𝐵𝑥)))
5540, 54biimtrid 242 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ suc 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5655imp 406 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → (𝐴𝑥) = (𝐵𝑥))
57 simpr 484 . . . . . . 7 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → 𝑥 ∈ suc 𝑋)
5857fvresd 6927 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = (𝐴𝑥))
5957fvresd 6927 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → ((𝐵 ↾ suc 𝑋)‘𝑥) = (𝐵𝑥))
6056, 58, 593eqtr4d 2785 . . . . 5 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
6160ex 412 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ suc 𝑋 → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6238, 61sylbid 240 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6362ralrimiv 3143 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
64 nofun 27709 . . . . 5 (𝐴 No → Fun 𝐴)
652, 64syl 17 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun 𝐴)
6665funresd 6611 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun (𝐴 ↾ suc 𝑋))
67 nofun 27709 . . . . 5 (𝐵 No → Fun 𝐵)
6821, 67syl 17 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun 𝐵)
6968funresd 6611 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun (𝐵 ↾ suc 𝑋))
70 eqfunfv 7056 . . 3 ((Fun (𝐴 ↾ suc 𝑋) ∧ Fun (𝐵 ↾ suc 𝑋)) → ((𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋) ↔ (dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋) ∧ ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))))
7166, 69, 70syl2anc 584 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → ((𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋) ↔ (dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋) ∧ ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))))
7237, 63, 71mpbir2and 713 1 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 847  w3a 1086   = wceq 1537  wcel 2106  wne 2938  wral 3059  cin 3962  wss 3963  c0 4339   class class class wbr 5148  dom cdm 5689  cres 5691  Ord word 6385  Oncon0 6386  suc csuc 6388  Fun wfun 6557  cfv 6563  1oc1o 8498   No csur 27699   <s cslt 27700
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-tp 4636  df-op 4638  df-uni 4913  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5583  df-eprel 5589  df-po 5597  df-so 5598  df-fr 5641  df-we 5643  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-ord 6389  df-on 6390  df-suc 6392  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-fv 6571  df-1o 8505  df-2o 8506  df-no 27702  df-slt 27703
This theorem is referenced by:  noinfbnd1lem3  27785
  Copyright terms: Public domain W3C validator