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

Theorem efgred 19610
Description: The reduced word that forms the base of the sequence in efgsval 19593 is uniquely determined, given the terminal point. (Contributed by Mario Carneiro, 28-Sep-2015.)
Hypotheses
Ref Expression
efgval.w π‘Š = ( I β€˜Word (𝐼 Γ— 2o))
efgval.r ∼ = ( ~FG β€˜πΌ)
efgval2.m 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ βŸ¨π‘¦, (1o βˆ– 𝑧)⟩)
efgval2.t 𝑇 = (𝑣 ∈ π‘Š ↦ (𝑛 ∈ (0...(β™―β€˜π‘£)), 𝑀 ∈ (𝐼 Γ— 2o) ↦ (𝑣 splice βŸ¨π‘›, 𝑛, βŸ¨β€œπ‘€(π‘€β€˜π‘€)β€βŸ©βŸ©)))
efgred.d 𝐷 = (π‘Š βˆ– βˆͺ π‘₯ ∈ π‘Š ran (π‘‡β€˜π‘₯))
efgred.s 𝑆 = (π‘š ∈ {𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))} ↦ (π‘šβ€˜((β™―β€˜π‘š) βˆ’ 1)))
Assertion
Ref Expression
efgred ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆 ∧ (π‘†β€˜π΄) = (π‘†β€˜π΅)) β†’ (π΄β€˜0) = (π΅β€˜0))
Distinct variable groups:   𝑦,𝑧   𝑑,𝑛,𝑣,𝑀,𝑦,𝑧,π‘š,π‘₯   π‘š,𝑀   π‘₯,𝑛,𝑀,𝑑,𝑣,𝑀   π‘˜,π‘š,𝑑,π‘₯,𝑇   π‘˜,𝑛,𝑣,𝑀,𝑦,𝑧,π‘Š,π‘š,𝑑,π‘₯   ∼ ,π‘š,𝑑,π‘₯,𝑦,𝑧   π‘š,𝐼,𝑛,𝑑,𝑣,𝑀,π‘₯,𝑦,𝑧   𝐷,π‘š,𝑑
Allowed substitution hints:   𝐴(π‘₯,𝑦,𝑧,𝑀,𝑣,𝑑,π‘˜,π‘š,𝑛)   𝐡(π‘₯,𝑦,𝑧,𝑀,𝑣,𝑑,π‘˜,π‘š,𝑛)   𝐷(π‘₯,𝑦,𝑧,𝑀,𝑣,π‘˜,𝑛)   ∼ (𝑀,𝑣,π‘˜,𝑛)   𝑆(π‘₯,𝑦,𝑧,𝑀,𝑣,𝑑,π‘˜,π‘š,𝑛)   𝑇(𝑦,𝑧,𝑀,𝑣,𝑛)   𝐼(π‘˜)   𝑀(𝑦,𝑧,π‘˜)

Proof of Theorem efgred
Dummy variables π‘Ž 𝑏 𝑐 𝑑 𝑖 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 efgval.w . . . . . . . 8 π‘Š = ( I β€˜Word (𝐼 Γ— 2o))
2 fviss 6965 . . . . . . . 8 ( I β€˜Word (𝐼 Γ— 2o)) βŠ† Word (𝐼 Γ— 2o)
31, 2eqsstri 4015 . . . . . . 7 π‘Š βŠ† Word (𝐼 Γ— 2o)
4 efgval.r . . . . . . . . . . 11 ∼ = ( ~FG β€˜πΌ)
5 efgval2.m . . . . . . . . . . 11 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ βŸ¨π‘¦, (1o βˆ– 𝑧)⟩)
6 efgval2.t . . . . . . . . . . 11 𝑇 = (𝑣 ∈ π‘Š ↦ (𝑛 ∈ (0...(β™―β€˜π‘£)), 𝑀 ∈ (𝐼 Γ— 2o) ↦ (𝑣 splice βŸ¨π‘›, 𝑛, βŸ¨β€œπ‘€(π‘€β€˜π‘€)β€βŸ©βŸ©)))
7 efgred.d . . . . . . . . . . 11 𝐷 = (π‘Š βˆ– βˆͺ π‘₯ ∈ π‘Š ran (π‘‡β€˜π‘₯))
8 efgred.s . . . . . . . . . . 11 𝑆 = (π‘š ∈ {𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))} ↦ (π‘šβ€˜((β™―β€˜π‘š) βˆ’ 1)))
91, 4, 5, 6, 7, 8efgsf 19591 . . . . . . . . . 10 𝑆:{𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))}βŸΆπ‘Š
109fdmi 6726 . . . . . . . . . . 11 dom 𝑆 = {𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))}
1110feq2i 6706 . . . . . . . . . 10 (𝑆:dom π‘†βŸΆπ‘Š ↔ 𝑆:{𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))}βŸΆπ‘Š)
129, 11mpbir 230 . . . . . . . . 9 𝑆:dom π‘†βŸΆπ‘Š
1312ffvelcdmi 7082 . . . . . . . 8 (𝐴 ∈ dom 𝑆 β†’ (π‘†β€˜π΄) ∈ π‘Š)
1413adantr 481 . . . . . . 7 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (π‘†β€˜π΄) ∈ π‘Š)
153, 14sselid 3979 . . . . . 6 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (π‘†β€˜π΄) ∈ Word (𝐼 Γ— 2o))
16 lencl 14479 . . . . . 6 ((π‘†β€˜π΄) ∈ Word (𝐼 Γ— 2o) β†’ (β™―β€˜(π‘†β€˜π΄)) ∈ β„•0)
1715, 16syl 17 . . . . 5 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π΄)) ∈ β„•0)
18 peano2nn0 12508 . . . . 5 ((β™―β€˜(π‘†β€˜π΄)) ∈ β„•0 β†’ ((β™―β€˜(π‘†β€˜π΄)) + 1) ∈ β„•0)
1917, 18syl 17 . . . 4 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ ((β™―β€˜(π‘†β€˜π΄)) + 1) ∈ β„•0)
20 breq2 5151 . . . . . . 7 (𝑐 = 0 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < 0))
2120imbi1d 341 . . . . . 6 (𝑐 = 0 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
22212ralbidv 3218 . . . . 5 (𝑐 = 0 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
23 breq2 5151 . . . . . . 7 (𝑐 = 𝑖 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖))
2423imbi1d 341 . . . . . 6 (𝑐 = 𝑖 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
25242ralbidv 3218 . . . . 5 (𝑐 = 𝑖 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
26 breq2 5151 . . . . . . 7 (𝑐 = (𝑖 + 1) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1)))
2726imbi1d 341 . . . . . 6 (𝑐 = (𝑖 + 1) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
28272ralbidv 3218 . . . . 5 (𝑐 = (𝑖 + 1) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
29 breq2 5151 . . . . . . 7 (𝑐 = ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1)))
3029imbi1d 341 . . . . . 6 (𝑐 = ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
31302ralbidv 3218 . . . . 5 (𝑐 = ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
3212ffvelcdmi 7082 . . . . . . . . . . 11 (π‘Ž ∈ dom 𝑆 β†’ (π‘†β€˜π‘Ž) ∈ π‘Š)
333, 32sselid 3979 . . . . . . . . . 10 (π‘Ž ∈ dom 𝑆 β†’ (π‘†β€˜π‘Ž) ∈ Word (𝐼 Γ— 2o))
34 lencl 14479 . . . . . . . . . 10 ((π‘†β€˜π‘Ž) ∈ Word (𝐼 Γ— 2o) β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0)
3533, 34syl 17 . . . . . . . . 9 (π‘Ž ∈ dom 𝑆 β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0)
36 nn0nlt0 12494 . . . . . . . . 9 ((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 β†’ Β¬ (β™―β€˜(π‘†β€˜π‘Ž)) < 0)
3735, 36syl 17 . . . . . . . 8 (π‘Ž ∈ dom 𝑆 β†’ Β¬ (β™―β€˜(π‘†β€˜π‘Ž)) < 0)
3837pm2.21d 121 . . . . . . 7 (π‘Ž ∈ dom 𝑆 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
3938adantr 481 . . . . . 6 ((π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
4039rgen2 3197 . . . . 5 βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))
41 simpl1 1191 . . . . . . . . . . . . . 14 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
42 simpl3l 1228 . . . . . . . . . . . . . . 15 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ (β™―β€˜(π‘†β€˜π‘)) = 𝑖)
43 breq2 5151 . . . . . . . . . . . . . . . . 17 ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖))
4443imbi1d 341 . . . . . . . . . . . . . . . 16 ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
45442ralbidv 3218 . . . . . . . . . . . . . . 15 ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
4642, 45syl 17 . . . . . . . . . . . . . 14 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
4741, 46mpbird 256 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
48 simpl2l 1226 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ 𝑐 ∈ dom 𝑆)
49 simpl2r 1227 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ 𝑑 ∈ dom 𝑆)
50 simpl3r 1229 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))
51 simpr 485 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ Β¬ (π‘β€˜0) = (π‘‘β€˜0))
521, 4, 5, 6, 7, 8, 47, 48, 49, 50, 51efgredlem 19609 . . . . . . . . . . . 12 Β¬ ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0))
53 iman 402 . . . . . . . . . . . 12 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) β†’ (π‘β€˜0) = (π‘‘β€˜0)) ↔ Β¬ ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)))
5452, 53mpbir 230 . . . . . . . . . . 11 ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) β†’ (π‘β€˜0) = (π‘‘β€˜0))
55543expia 1121 . . . . . . . . . 10 ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆)) β†’ (((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘)) β†’ (π‘β€˜0) = (π‘‘β€˜0)))
5655expd 416 . . . . . . . . 9 ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆)) β†’ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))))
5756ralrimivva 3200 . . . . . . . 8 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ βˆ€π‘ ∈ dom π‘†βˆ€π‘‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))))
58 2fveq3 6893 . . . . . . . . . . 11 (𝑐 = π‘Ž β†’ (β™―β€˜(π‘†β€˜π‘)) = (β™―β€˜(π‘†β€˜π‘Ž)))
5958eqeq1d 2734 . . . . . . . . . 10 (𝑐 = π‘Ž β†’ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖))
60 fveqeq2 6897 . . . . . . . . . . 11 (𝑐 = π‘Ž β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) ↔ (π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘)))
61 fveq1 6887 . . . . . . . . . . . 12 (𝑐 = π‘Ž β†’ (π‘β€˜0) = (π‘Žβ€˜0))
6261eqeq1d 2734 . . . . . . . . . . 11 (𝑐 = π‘Ž β†’ ((π‘β€˜0) = (π‘‘β€˜0) ↔ (π‘Žβ€˜0) = (π‘‘β€˜0)))
6360, 62imbi12d 344 . . . . . . . . . 10 (𝑐 = π‘Ž β†’ (((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0)) ↔ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0))))
6459, 63imbi12d 344 . . . . . . . . 9 (𝑐 = π‘Ž β†’ (((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0)))))
65 fveq2 6888 . . . . . . . . . . . 12 (𝑑 = 𝑏 β†’ (π‘†β€˜π‘‘) = (π‘†β€˜π‘))
6665eqeq2d 2743 . . . . . . . . . . 11 (𝑑 = 𝑏 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) ↔ (π‘†β€˜π‘Ž) = (π‘†β€˜π‘)))
67 fveq1 6887 . . . . . . . . . . . 12 (𝑑 = 𝑏 β†’ (π‘‘β€˜0) = (π‘β€˜0))
6867eqeq2d 2743 . . . . . . . . . . 11 (𝑑 = 𝑏 β†’ ((π‘Žβ€˜0) = (π‘‘β€˜0) ↔ (π‘Žβ€˜0) = (π‘β€˜0)))
6966, 68imbi12d 344 . . . . . . . . . 10 (𝑑 = 𝑏 β†’ (((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0)) ↔ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
7069imbi2d 340 . . . . . . . . 9 (𝑑 = 𝑏 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
7164, 70cbvral2vw 3238 . . . . . . . 8 (βˆ€π‘ ∈ dom π‘†βˆ€π‘‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
7257, 71sylib 217 . . . . . . 7 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
7372ancli 549 . . . . . 6 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
7435adantr 481 . . . . . . . . . . 11 ((π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0)
75 nn0leltp1 12617 . . . . . . . . . . . . 13 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 ∧ 𝑖 ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) ≀ 𝑖 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1)))
76 nn0re 12477 . . . . . . . . . . . . . 14 ((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ ℝ)
77 nn0re 12477 . . . . . . . . . . . . . 14 (𝑖 ∈ β„•0 β†’ 𝑖 ∈ ℝ)
78 leloe 11296 . . . . . . . . . . . . . 14 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ ℝ ∧ 𝑖 ∈ ℝ) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) ≀ 𝑖 ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
7976, 77, 78syl2an 596 . . . . . . . . . . . . 13 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 ∧ 𝑖 ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) ≀ 𝑖 ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8075, 79bitr3d 280 . . . . . . . . . . . 12 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 ∧ 𝑖 ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8180ancoms 459 . . . . . . . . . . 11 ((𝑖 ∈ β„•0 ∧ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8274, 81sylan2 593 . . . . . . . . . 10 ((𝑖 ∈ β„•0 ∧ (π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆)) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8382imbi1d 341 . . . . . . . . 9 ((𝑖 ∈ β„•0 ∧ (π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆)) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
84 jaob 960 . . . . . . . . 9 ((((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
8583, 84bitrdi 286 . . . . . . . 8 ((𝑖 ∈ β„•0 ∧ (π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆)) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))))
86852ralbidva 3216 . . . . . . 7 (𝑖 ∈ β„•0 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆(((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))))
87 r19.26-2 3138 . . . . . . 7 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆(((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))) ↔ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
8886, 87bitrdi 286 . . . . . 6 (𝑖 ∈ β„•0 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))))
8973, 88imbitrrid 245 . . . . 5 (𝑖 ∈ β„•0 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
9022, 25, 28, 31, 40, 89nn0ind 12653 . . . 4 (((β™―β€˜(π‘†β€˜π΄)) + 1) ∈ β„•0 β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
9119, 90syl 17 . . 3 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
9217nn0red 12529 . . . 4 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π΄)) ∈ ℝ)
9392ltp1d 12140 . . 3 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1))
94 2fveq3 6893 . . . . . 6 (π‘Ž = 𝐴 β†’ (β™―β€˜(π‘†β€˜π‘Ž)) = (β™―β€˜(π‘†β€˜π΄)))
9594breq1d 5157 . . . . 5 (π‘Ž = 𝐴 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) ↔ (β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1)))
96 fveqeq2 6897 . . . . . 6 (π‘Ž = 𝐴 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) ↔ (π‘†β€˜π΄) = (π‘†β€˜π‘)))
97 fveq1 6887 . . . . . . 7 (π‘Ž = 𝐴 β†’ (π‘Žβ€˜0) = (π΄β€˜0))
9897eqeq1d 2734 . . . . . 6 (π‘Ž = 𝐴 β†’ ((π‘Žβ€˜0) = (π‘β€˜0) ↔ (π΄β€˜0) = (π‘β€˜0)))
9996, 98imbi12d 344 . . . . 5 (π‘Ž = 𝐴 β†’ (((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)) ↔ ((π‘†β€˜π΄) = (π‘†β€˜π‘) β†’ (π΄β€˜0) = (π‘β€˜0))))
10095, 99imbi12d 344 . . . 4 (π‘Ž = 𝐴 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π‘) β†’ (π΄β€˜0) = (π‘β€˜0)))))
101 fveq2 6888 . . . . . . 7 (𝑏 = 𝐡 β†’ (π‘†β€˜π‘) = (π‘†β€˜π΅))
102101eqeq2d 2743 . . . . . 6 (𝑏 = 𝐡 β†’ ((π‘†β€˜π΄) = (π‘†β€˜π‘) ↔ (π‘†β€˜π΄) = (π‘†β€˜π΅)))
103 fveq1 6887 . . . . . . 7 (𝑏 = 𝐡 β†’ (π‘β€˜0) = (π΅β€˜0))
104103eqeq2d 2743 . . . . . 6 (𝑏 = 𝐡 β†’ ((π΄β€˜0) = (π‘β€˜0) ↔ (π΄β€˜0) = (π΅β€˜0)))
105102, 104imbi12d 344 . . . . 5 (𝑏 = 𝐡 β†’ (((π‘†β€˜π΄) = (π‘†β€˜π‘) β†’ (π΄β€˜0) = (π‘β€˜0)) ↔ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0))))
106105imbi2d 340 . . . 4 (𝑏 = 𝐡 β†’ (((β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π‘) β†’ (π΄β€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0)))))
107100, 106rspc2v 3621 . . 3 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ ((β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0)))))
10891, 93, 107mp2d 49 . 2 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0)))
1091083impia 1117 1 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆 ∧ (π‘†β€˜π΄) = (π‘†β€˜π΅)) β†’ (π΄β€˜0) = (π΅β€˜0))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  βˆ€wral 3061  {crab 3432   βˆ– cdif 3944  βˆ…c0 4321  {csn 4627  βŸ¨cop 4633  βŸ¨cotp 4635  βˆͺ ciun 4996   class class class wbr 5147   ↦ cmpt 5230   I cid 5572   Γ— cxp 5673  dom cdm 5675  ran crn 5676  βŸΆwf 6536  β€˜cfv 6540  (class class class)co 7405   ∈ cmpo 7407  1oc1o 8455  2oc2o 8456  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  β„•0cn0 12468  ...cfz 13480  ..^cfzo 13623  β™―chash 14286  Word cword 14460   splice csplice 14695  βŸ¨β€œcs2 14788   ~FG cefg 19568
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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-ot 4636  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-er 8699  df-map 8818  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-nn 12209  df-2 12271  df-n0 12469  df-xnn0 12541  df-z 12555  df-uz 12819  df-rp 12971  df-fz 13481  df-fzo 13624  df-hash 14287  df-word 14461  df-concat 14517  df-s1 14542  df-substr 14587  df-pfx 14617  df-splice 14696  df-s2 14795
This theorem is referenced by:  efgrelexlemb  19612
  Copyright terms: Public domain W3C validator