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

Theorem nogesgn1ores 27704
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 5987 . . . 4 dom (𝐴 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐴)
2 simp11 1213 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → 𝐴 No )
3 nodmord 27683 . . . . . . 7 (𝐴 No → Ord dom 𝐴)
42, 3syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Ord dom 𝐴)
5 ndmfv 6884 . . . . . . . . . 10 𝑋 ∈ dom 𝐴 → (𝐴𝑋) = ∅)
6 1n0 8440 . . . . . . . . . . . . 13 1o ≠ ∅
76necomi 3001 . . . . . . . . . . . 12 ∅ ≠ 1o
8 neeq1 3009 . . . . . . . . . . . 12 ((𝐴𝑋) = ∅ → ((𝐴𝑋) ≠ 1o ↔ ∅ ≠ 1o))
97, 8mpbiri 260 . . . . . . . . . . 11 ((𝐴𝑋) = ∅ → (𝐴𝑋) ≠ 1o)
109neneqd 2952 . . . . . . . . . 10 ((𝐴𝑋) = ∅ → ¬ (𝐴𝑋) = 1o)
115, 10syl 17 . . . . . . . . 9 𝑋 ∈ dom 𝐴 → ¬ (𝐴𝑋) = 1o)
1211con4i 114 . . . . . . . 8 ((𝐴𝑋) = 1o𝑋 ∈ dom 𝐴)
1312adantl 484 . . . . . . 7 (((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) → 𝑋 ∈ dom 𝐴)
14133ad2ant2 1143 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → 𝑋 ∈ dom 𝐴)
15 ordsucss 7783 . . . . . 6 (Ord dom 𝐴 → (𝑋 ∈ dom 𝐴 → suc 𝑋 ⊆ dom 𝐴))
164, 14, 15sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → suc 𝑋 ⊆ dom 𝐴)
17 dfss2 3913 . . . . 5 (suc 𝑋 ⊆ dom 𝐴 ↔ (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
1816, 17sylib 220 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
191, 18eqtrid 2799 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → dom (𝐴 ↾ suc 𝑋) = suc 𝑋)
20 dmres 5987 . . . 4 dom (𝐵 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐵)
21 simp12 1214 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → 𝐵 No )
22 nodmord 27683 . . . . . . 7 (𝐵 No → Ord dom 𝐵)
2321, 22syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Ord dom 𝐵)
24 nogesgn1o 27703 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐵𝑋) = 1o)
25 ndmfv 6884 . . . . . . . . 9 𝑋 ∈ dom 𝐵 → (𝐵𝑋) = ∅)
26 neeq1 3009 . . . . . . . . . . 11 ((𝐵𝑋) = ∅ → ((𝐵𝑋) ≠ 1o ↔ ∅ ≠ 1o))
277, 26mpbiri 260 . . . . . . . . . 10 ((𝐵𝑋) = ∅ → (𝐵𝑋) ≠ 1o)
2827neneqd 2952 . . . . . . . . 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 7783 . . . . . 6 (Ord dom 𝐵 → (𝑋 ∈ dom 𝐵 → suc 𝑋 ⊆ dom 𝐵))
3323, 31, 32sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → suc 𝑋 ⊆ dom 𝐵)
34 dfss2 3913 . . . . 5 (suc 𝑋 ⊆ dom 𝐵 ↔ (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3533, 34sylib 220 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3620, 35eqtrid 2799 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → dom (𝐵 ↾ suc 𝑋) = suc 𝑋)
3719, 36eqtr4d 2790 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋))
3819eleq2d 2838 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) ↔ 𝑥 ∈ suc 𝑋))
39 vex 3448 . . . . . . . . 9 𝑥 ∈ V
4039elsuc 6403 . . . . . . . 8 (𝑥 ∈ suc 𝑋 ↔ (𝑥𝑋𝑥 = 𝑋))
41 simpl2l 1236 . . . . . . . . . . . 12 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → (𝐴𝑋) = (𝐵𝑋))
4241fveq1d 6854 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = ((𝐵𝑋)‘𝑥))
43 simpr 487 . . . . . . . . . . . 12 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → 𝑥𝑋)
4443fvresd 6872 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = (𝐴𝑥))
4543fvresd 6872 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → ((𝐵𝑋)‘𝑥) = (𝐵𝑥))
4642, 44, 453eqtr3d 2795 . . . . . . . . . 10 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥𝑋) → (𝐴𝑥) = (𝐵𝑥))
4746ex 415 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥𝑋 → (𝐴𝑥) = (𝐵𝑥)))
48 simp2r 1210 . . . . . . . . . . 11 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐴𝑋) = 1o)
4948, 24eqtr4d 2790 . . . . . . . . . 10 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐴𝑋) = (𝐵𝑋))
50 fveq2 6852 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐴𝑥) = (𝐴𝑋))
51 fveq2 6852 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐵𝑥) = (𝐵𝑋))
5250, 51eqeq12d 2768 . . . . . . . . . 10 (𝑥 = 𝑋 → ((𝐴𝑥) = (𝐵𝑥) ↔ (𝐴𝑋) = (𝐵𝑋)))
5349, 52syl5ibrcom 249 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 = 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5447, 53jaod 868 . . . . . . . 8 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → ((𝑥𝑋𝑥 = 𝑋) → (𝐴𝑥) = (𝐵𝑥)))
5540, 54biimtrid 244 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ suc 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5655imp 409 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → (𝐴𝑥) = (𝐵𝑥))
57 simpr 487 . . . . . . 7 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → 𝑥 ∈ suc 𝑋)
5857fvresd 6872 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = (𝐴𝑥))
5957fvresd 6872 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → ((𝐵 ↾ suc 𝑋)‘𝑥) = (𝐵𝑥))
6056, 58, 593eqtr4d 2797 . . . . 5 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
6160ex 415 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ suc 𝑋 → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6238, 61sylbid 242 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6362ralrimiv 3143 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
64 nofun 27679 . . . . 5 (𝐴 No → Fun 𝐴)
652, 64syl 17 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun 𝐴)
6665funresd 6549 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun (𝐴 ↾ suc 𝑋))
67 nofun 27679 . . . . 5 (𝐵 No → Fun 𝐵)
6821, 67syl 17 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun 𝐵)
6968funresd 6549 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → Fun (𝐵 ↾ suc 𝑋))
70 eqfunfv 7002 . . 3 ((Fun (𝐴 ↾ suc 𝑋) ∧ Fun (𝐵 ↾ suc 𝑋)) → ((𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋) ↔ (dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋) ∧ ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))))
7166, 69, 70syl2anc 592 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → ((𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋) ↔ (dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋) ∧ ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))))
7237, 63, 71mpbir2and 721 1 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 1o) ∧ ¬ 𝐴 <s 𝐵) → (𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  wo 856  w3a 1095   = wceq 1550  wcel 2132  wne 2947  wral 3066  cin 3894  wss 3895  c0 4276   class class class wbr 5090  dom cdm 5636  cres 5638  Ord word 6330  Oncon0 6331  suc csuc 6333  Fun wfun 6500  cfv 6506  1oc1o 8414   No csur 27670   <s clts 27671
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1805  ax-4 1819  ax-5 1920  ax-6 1977  ax-7 2018  ax-8 2134  ax-9 2142  ax-10 2165  ax-11 2181  ax-12 2202  ax-ext 2724  ax-sep 5236  ax-nul 5246  ax-pow 5312  ax-pr 5380  ax-un 7703
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-3or 1096  df-3an 1097  df-tru 1553  df-fal 1563  df-ex 1790  df-nf 1794  df-sb 2081  df-mo 2556  df-eu 2586  df-clab 2731  df-cleq 2744  df-clel 2827  df-nfc 2901  df-ne 2948  df-ral 3067  df-rex 3077  df-rab 3405  df-v 3446  df-sbc 3736  df-csb 3844  df-dif 3898  df-un 3900  df-in 3902  df-ss 3912  df-pss 3915  df-nul 4277  df-if 4471  df-pw 4547  df-sn 4573  df-pr 4575  df-tp 4577  df-op 4579  df-uni 4856  df-br 5091  df-opab 5153  df-mpt 5172  df-tr 5198  df-id 5531  df-eprel 5536  df-po 5544  df-so 5545  df-fr 5589  df-we 5591  df-xp 5642  df-rel 5643  df-cnv 5644  df-co 5645  df-dm 5646  df-rn 5647  df-res 5648  df-ima 5649  df-ord 6334  df-on 6335  df-suc 6337  df-iota 6462  df-fun 6508  df-fn 6509  df-f 6510  df-fv 6514  df-1o 8421  df-2o 8422  df-no 27673  df-lts 27674
This theorem is referenced by:  noinfbnd1lem3  27755
  Copyright terms: Public domain W3C validator