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

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

Proof of Theorem nolesgn2ores
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 dmres 5956 . . . 4 dom (𝐴 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐴)
2 simp11 1204 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → 𝐴 No )
3 nodmord 26929 . . . . . . 7 (𝐴 No → Ord dom 𝐴)
42, 3syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → Ord dom 𝐴)
5 ndmfv 6873 . . . . . . . . . 10 𝑋 ∈ dom 𝐴 → (𝐴𝑋) = ∅)
6 2on 8394 . . . . . . . . . . . . . . 15 2o ∈ On
76elexi 3463 . . . . . . . . . . . . . 14 2o ∈ V
87prid2 4723 . . . . . . . . . . . . 13 2o ∈ {1o, 2o}
98nosgnn0i 26935 . . . . . . . . . . . 12 ∅ ≠ 2o
10 neeq1 3005 . . . . . . . . . . . 12 ((𝐴𝑋) = ∅ → ((𝐴𝑋) ≠ 2o ↔ ∅ ≠ 2o))
119, 10mpbiri 258 . . . . . . . . . . 11 ((𝐴𝑋) = ∅ → (𝐴𝑋) ≠ 2o)
1211neneqd 2947 . . . . . . . . . 10 ((𝐴𝑋) = ∅ → ¬ (𝐴𝑋) = 2o)
135, 12syl 17 . . . . . . . . 9 𝑋 ∈ dom 𝐴 → ¬ (𝐴𝑋) = 2o)
1413con4i 114 . . . . . . . 8 ((𝐴𝑋) = 2o𝑋 ∈ dom 𝐴)
1514adantl 483 . . . . . . 7 (((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) → 𝑋 ∈ dom 𝐴)
16153ad2ant2 1135 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → 𝑋 ∈ dom 𝐴)
17 ordsucss 7744 . . . . . 6 (Ord dom 𝐴 → (𝑋 ∈ dom 𝐴 → suc 𝑋 ⊆ dom 𝐴))
184, 16, 17sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → suc 𝑋 ⊆ dom 𝐴)
19 df-ss 3926 . . . . 5 (suc 𝑋 ⊆ dom 𝐴 ↔ (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
2018, 19sylib 217 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
211, 20eqtrid 2790 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → dom (𝐴 ↾ suc 𝑋) = suc 𝑋)
22 dmres 5956 . . . 4 dom (𝐵 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐵)
23 simp12 1205 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → 𝐵 No )
24 nodmord 26929 . . . . . . 7 (𝐵 No → Ord dom 𝐵)
2523, 24syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → Ord dom 𝐵)
26 nolesgn2o 26947 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐵𝑋) = 2o)
27 ndmfv 6873 . . . . . . . . 9 𝑋 ∈ dom 𝐵 → (𝐵𝑋) = ∅)
28 neeq1 3005 . . . . . . . . . . 11 ((𝐵𝑋) = ∅ → ((𝐵𝑋) ≠ 2o ↔ ∅ ≠ 2o))
299, 28mpbiri 258 . . . . . . . . . 10 ((𝐵𝑋) = ∅ → (𝐵𝑋) ≠ 2o)
3029neneqd 2947 . . . . . . . . 9 ((𝐵𝑋) = ∅ → ¬ (𝐵𝑋) = 2o)
3127, 30syl 17 . . . . . . . 8 𝑋 ∈ dom 𝐵 → ¬ (𝐵𝑋) = 2o)
3231con4i 114 . . . . . . 7 ((𝐵𝑋) = 2o𝑋 ∈ dom 𝐵)
3326, 32syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → 𝑋 ∈ dom 𝐵)
34 ordsucss 7744 . . . . . 6 (Ord dom 𝐵 → (𝑋 ∈ dom 𝐵 → suc 𝑋 ⊆ dom 𝐵))
3525, 33, 34sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → suc 𝑋 ⊆ dom 𝐵)
36 df-ss 3926 . . . . 5 (suc 𝑋 ⊆ dom 𝐵 ↔ (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3735, 36sylib 217 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3822, 37eqtrid 2790 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → dom (𝐵 ↾ suc 𝑋) = suc 𝑋)
3921, 38eqtr4d 2781 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋))
4021eleq2d 2824 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) ↔ 𝑥 ∈ suc 𝑋))
41 vex 3448 . . . . . . . . 9 𝑥 ∈ V
4241elsuc 6384 . . . . . . . 8 (𝑥 ∈ suc 𝑋 ↔ (𝑥𝑋𝑥 = 𝑋))
43 simp2l 1200 . . . . . . . . . . . . 13 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴𝑋) = (𝐵𝑋))
4443fveq1d 6840 . . . . . . . . . . . 12 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → ((𝐴𝑋)‘𝑥) = ((𝐵𝑋)‘𝑥))
4544adantr 482 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = ((𝐵𝑋)‘𝑥))
46 simpr 486 . . . . . . . . . . . 12 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → 𝑥𝑋)
4746fvresd 6858 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = (𝐴𝑥))
4846fvresd 6858 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → ((𝐵𝑋)‘𝑥) = (𝐵𝑥))
4945, 47, 483eqtr3d 2786 . . . . . . . . . 10 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → (𝐴𝑥) = (𝐵𝑥))
5049ex 414 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥𝑋 → (𝐴𝑥) = (𝐵𝑥)))
51 simp2r 1201 . . . . . . . . . . 11 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴𝑋) = 2o)
5251, 26eqtr4d 2781 . . . . . . . . . 10 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴𝑋) = (𝐵𝑋))
53 fveq2 6838 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐴𝑥) = (𝐴𝑋))
54 fveq2 6838 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐵𝑥) = (𝐵𝑋))
5553, 54eqeq12d 2754 . . . . . . . . . 10 (𝑥 = 𝑋 → ((𝐴𝑥) = (𝐵𝑥) ↔ (𝐴𝑋) = (𝐵𝑋)))
5652, 55syl5ibrcom 247 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 = 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5750, 56jaod 858 . . . . . . . 8 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → ((𝑥𝑋𝑥 = 𝑋) → (𝐴𝑥) = (𝐵𝑥)))
5842, 57biimtrid 241 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ suc 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5958imp 408 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → (𝐴𝑥) = (𝐵𝑥))
60 simpr 486 . . . . . . 7 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → 𝑥 ∈ suc 𝑋)
6160fvresd 6858 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = (𝐴𝑥))
6260fvresd 6858 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → ((𝐵 ↾ suc 𝑋)‘𝑥) = (𝐵𝑥))
6359, 61, 623eqtr4d 2788 . . . . 5 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
6463ex 414 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ suc 𝑋 → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6540, 64sylbid 239 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6665ralrimiv 3141 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
67 nofun 26925 . . . 4 (𝐴 No → Fun 𝐴)
68 funres 6539 . . . 4 (Fun 𝐴 → Fun (𝐴 ↾ suc 𝑋))
692, 67, 683syl 18 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → Fun (𝐴 ↾ suc 𝑋))
70 nofun 26925 . . . 4 (𝐵 No → Fun 𝐵)
71 funres 6539 . . . 4 (Fun 𝐵 → Fun (𝐵 ↾ suc 𝑋))
7223, 70, 713syl 18 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → Fun (𝐵 ↾ suc 𝑋))
73 eqfunfv 6983 . . 3 ((Fun (𝐴 ↾ suc 𝑋) ∧ Fun (𝐵 ↾ suc 𝑋)) → ((𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋) ↔ (dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋) ∧ ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))))
7469, 72, 73syl2anc 585 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → ((𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋) ↔ (dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋) ∧ ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))))
7539, 66, 74mpbir2and 712 1 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 397  wo 846  w3a 1088   = wceq 1542  wcel 2107  wne 2942  wral 3063  cin 3908  wss 3909  c0 4281   class class class wbr 5104  dom cdm 5631  cres 5633  Ord word 6313  Oncon0 6314  suc csuc 6316  Fun wfun 6486  cfv 6492  1oc1o 8373  2oc2o 8374   No csur 26916   <s cslt 26917
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2709  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pr 5383
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2888  df-ne 2943  df-ral 3064  df-rex 3073  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-pss 3928  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-tp 4590  df-op 4592  df-uni 4865  df-iun 4955  df-br 5105  df-opab 5167  df-mpt 5188  df-tr 5222  df-id 5529  df-eprel 5535  df-po 5543  df-so 5544  df-fr 5586  df-we 5588  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-ord 6317  df-on 6318  df-suc 6320  df-iota 6444  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-1o 8380  df-2o 8381  df-no 26919  df-slt 26920
This theorem is referenced by:  nosupbnd1lem3  26986
  Copyright terms: Public domain W3C validator