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

Theorem nolesgn2ores 27644
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 5972 . . . 4 dom (𝐴 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐴)
2 simp11 1205 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → 𝐴 No )
3 nodmord 27625 . . . . . . 7 (𝐴 No → Ord dom 𝐴)
42, 3syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → Ord dom 𝐴)
5 ndmfv 6867 . . . . . . . . . 10 𝑋 ∈ dom 𝐴 → (𝐴𝑋) = ∅)
6 2on 8412 . . . . . . . . . . . . . . 15 2o ∈ On
76elexi 3464 . . . . . . . . . . . . . 14 2o ∈ V
87prid2 4721 . . . . . . . . . . . . 13 2o ∈ {1o, 2o}
98nosgnn0i 27631 . . . . . . . . . . . 12 ∅ ≠ 2o
10 neeq1 2995 . . . . . . . . . . . 12 ((𝐴𝑋) = ∅ → ((𝐴𝑋) ≠ 2o ↔ ∅ ≠ 2o))
119, 10mpbiri 258 . . . . . . . . . . 11 ((𝐴𝑋) = ∅ → (𝐴𝑋) ≠ 2o)
1211neneqd 2938 . . . . . . . . . 10 ((𝐴𝑋) = ∅ → ¬ (𝐴𝑋) = 2o)
135, 12syl 17 . . . . . . . . 9 𝑋 ∈ dom 𝐴 → ¬ (𝐴𝑋) = 2o)
1413con4i 114 . . . . . . . 8 ((𝐴𝑋) = 2o𝑋 ∈ dom 𝐴)
1514adantl 481 . . . . . . 7 (((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) → 𝑋 ∈ dom 𝐴)
16153ad2ant2 1135 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → 𝑋 ∈ dom 𝐴)
17 ordsucss 7762 . . . . . 6 (Ord dom 𝐴 → (𝑋 ∈ dom 𝐴 → suc 𝑋 ⊆ dom 𝐴))
184, 16, 17sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → suc 𝑋 ⊆ dom 𝐴)
19 dfss2 3920 . . . . 5 (suc 𝑋 ⊆ dom 𝐴 ↔ (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
2018, 19sylib 218 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (suc 𝑋 ∩ dom 𝐴) = suc 𝑋)
211, 20eqtrid 2784 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → dom (𝐴 ↾ suc 𝑋) = suc 𝑋)
22 dmres 5972 . . . 4 dom (𝐵 ↾ suc 𝑋) = (suc 𝑋 ∩ dom 𝐵)
23 simp12 1206 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → 𝐵 No )
24 nodmord 27625 . . . . . . 7 (𝐵 No → Ord dom 𝐵)
2523, 24syl 17 . . . . . 6 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → Ord dom 𝐵)
26 nolesgn2o 27643 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐵𝑋) = 2o)
27 ndmfv 6867 . . . . . . . . 9 𝑋 ∈ dom 𝐵 → (𝐵𝑋) = ∅)
28 neeq1 2995 . . . . . . . . . . 11 ((𝐵𝑋) = ∅ → ((𝐵𝑋) ≠ 2o ↔ ∅ ≠ 2o))
299, 28mpbiri 258 . . . . . . . . . 10 ((𝐵𝑋) = ∅ → (𝐵𝑋) ≠ 2o)
3029neneqd 2938 . . . . . . . . 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 7762 . . . . . 6 (Ord dom 𝐵 → (𝑋 ∈ dom 𝐵 → suc 𝑋 ⊆ dom 𝐵))
3525, 33, 34sylc 65 . . . . 5 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → suc 𝑋 ⊆ dom 𝐵)
36 dfss2 3920 . . . . 5 (suc 𝑋 ⊆ dom 𝐵 ↔ (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3735, 36sylib 218 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (suc 𝑋 ∩ dom 𝐵) = suc 𝑋)
3822, 37eqtrid 2784 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → dom (𝐵 ↾ suc 𝑋) = suc 𝑋)
3921, 38eqtr4d 2775 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → dom (𝐴 ↾ suc 𝑋) = dom (𝐵 ↾ suc 𝑋))
4021eleq2d 2823 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) ↔ 𝑥 ∈ suc 𝑋))
41 vex 3445 . . . . . . . . 9 𝑥 ∈ V
4241elsuc 6390 . . . . . . . 8 (𝑥 ∈ suc 𝑋 ↔ (𝑥𝑋𝑥 = 𝑋))
43 simp2l 1201 . . . . . . . . . . . . 13 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴𝑋) = (𝐵𝑋))
4443fveq1d 6837 . . . . . . . . . . . 12 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → ((𝐴𝑋)‘𝑥) = ((𝐵𝑋)‘𝑥))
4544adantr 480 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = ((𝐵𝑋)‘𝑥))
46 simpr 484 . . . . . . . . . . . 12 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → 𝑥𝑋)
4746fvresd 6855 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → ((𝐴𝑋)‘𝑥) = (𝐴𝑥))
4846fvresd 6855 . . . . . . . . . . 11 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → ((𝐵𝑋)‘𝑥) = (𝐵𝑥))
4945, 47, 483eqtr3d 2780 . . . . . . . . . 10 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥𝑋) → (𝐴𝑥) = (𝐵𝑥))
5049ex 412 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥𝑋 → (𝐴𝑥) = (𝐵𝑥)))
51 simp2r 1202 . . . . . . . . . . 11 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴𝑋) = 2o)
5251, 26eqtr4d 2775 . . . . . . . . . 10 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴𝑋) = (𝐵𝑋))
53 fveq2 6835 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐴𝑥) = (𝐴𝑋))
54 fveq2 6835 . . . . . . . . . . 11 (𝑥 = 𝑋 → (𝐵𝑥) = (𝐵𝑋))
5553, 54eqeq12d 2753 . . . . . . . . . 10 (𝑥 = 𝑋 → ((𝐴𝑥) = (𝐵𝑥) ↔ (𝐴𝑋) = (𝐵𝑋)))
5652, 55syl5ibrcom 247 . . . . . . . . 9 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 = 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5750, 56jaod 860 . . . . . . . 8 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → ((𝑥𝑋𝑥 = 𝑋) → (𝐴𝑥) = (𝐵𝑥)))
5842, 57biimtrid 242 . . . . . . 7 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ suc 𝑋 → (𝐴𝑥) = (𝐵𝑥)))
5958imp 406 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → (𝐴𝑥) = (𝐵𝑥))
60 simpr 484 . . . . . . 7 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → 𝑥 ∈ suc 𝑋)
6160fvresd 6855 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = (𝐴𝑥))
6260fvresd 6855 . . . . . 6 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → ((𝐵 ↾ suc 𝑋)‘𝑥) = (𝐵𝑥))
6359, 61, 623eqtr4d 2782 . . . . 5 ((((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) ∧ 𝑥 ∈ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
6463ex 412 . . . 4 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ suc 𝑋 → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6540, 64sylbid 240 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝑥 ∈ dom (𝐴 ↾ suc 𝑋) → ((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥)))
6665ralrimiv 3128 . 2 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → ∀𝑥 ∈ dom (𝐴 ↾ suc 𝑋)((𝐴 ↾ suc 𝑋)‘𝑥) = ((𝐵 ↾ suc 𝑋)‘𝑥))
67 nofun 27621 . . . 4 (𝐴 No → Fun 𝐴)
68 funres 6535 . . . 4 (Fun 𝐴 → Fun (𝐴 ↾ suc 𝑋))
692, 67, 683syl 18 . . 3 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → Fun (𝐴 ↾ suc 𝑋))
70 nofun 27621 . . . 4 (𝐵 No → Fun 𝐵)
71 funres 6535 . . . 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 714 1 (((𝐴 No 𝐵 No 𝑋 ∈ On) ∧ ((𝐴𝑋) = (𝐵𝑋) ∧ (𝐴𝑋) = 2o) ∧ ¬ 𝐵 <s 𝐴) → (𝐴 ↾ suc 𝑋) = (𝐵 ↾ suc 𝑋))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 848  w3a 1087   = wceq 1542  wcel 2114  wne 2933  wral 3052  cin 3901  wss 3902  c0 4286   class class class wbr 5099  dom cdm 5625  cres 5627  Ord word 6317  Oncon0 6318  suc csuc 6320  Fun wfun 6487  cfv 6493  1oc1o 8392  2oc2o 8393   No csur 27611   <s clts 27612
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7682
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3062  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-tp 4586  df-op 4588  df-uni 4865  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-ord 6321  df-on 6322  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-fv 6501  df-1o 8399  df-2o 8400  df-no 27614  df-lts 27615
This theorem is referenced by:  nosupbnd1lem3  27682
  Copyright terms: Public domain W3C validator