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

Theorem efgred 19666
Description: The reduced word that forms the base of the sequence in efgsval 19649 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 6961 . . . . . . . 8 ( I β€˜Word (𝐼 Γ— 2o)) βŠ† Word (𝐼 Γ— 2o)
31, 2eqsstri 4011 . . . . . . 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 19647 . . . . . . . . . 10 𝑆:{𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))}βŸΆπ‘Š
109fdmi 6722 . . . . . . . . . . 11 dom 𝑆 = {𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))}
1110feq2i 6702 . . . . . . . . . 10 (𝑆:dom π‘†βŸΆπ‘Š ↔ 𝑆:{𝑑 ∈ (Word π‘Š βˆ– {βˆ…}) ∣ ((π‘‘β€˜0) ∈ 𝐷 ∧ βˆ€π‘˜ ∈ (1..^(β™―β€˜π‘‘))(π‘‘β€˜π‘˜) ∈ ran (π‘‡β€˜(π‘‘β€˜(π‘˜ βˆ’ 1))))}βŸΆπ‘Š)
129, 11mpbir 230 . . . . . . . . 9 𝑆:dom π‘†βŸΆπ‘Š
1312ffvelcdmi 7078 . . . . . . . 8 (𝐴 ∈ dom 𝑆 β†’ (π‘†β€˜π΄) ∈ π‘Š)
1413adantr 480 . . . . . . 7 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (π‘†β€˜π΄) ∈ π‘Š)
153, 14sselid 3975 . . . . . 6 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (π‘†β€˜π΄) ∈ Word (𝐼 Γ— 2o))
16 lencl 14487 . . . . . 6 ((π‘†β€˜π΄) ∈ Word (𝐼 Γ— 2o) β†’ (β™―β€˜(π‘†β€˜π΄)) ∈ β„•0)
1715, 16syl 17 . . . . 5 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π΄)) ∈ β„•0)
18 peano2nn0 12513 . . . . 5 ((β™―β€˜(π‘†β€˜π΄)) ∈ β„•0 β†’ ((β™―β€˜(π‘†β€˜π΄)) + 1) ∈ β„•0)
1917, 18syl 17 . . . 4 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ ((β™―β€˜(π‘†β€˜π΄)) + 1) ∈ β„•0)
20 breq2 5145 . . . . . . 7 (𝑐 = 0 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < 0))
2120imbi1d 341 . . . . . 6 (𝑐 = 0 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
22212ralbidv 3212 . . . . 5 (𝑐 = 0 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
23 breq2 5145 . . . . . . 7 (𝑐 = 𝑖 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖))
2423imbi1d 341 . . . . . 6 (𝑐 = 𝑖 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
25242ralbidv 3212 . . . . 5 (𝑐 = 𝑖 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
26 breq2 5145 . . . . . . 7 (𝑐 = (𝑖 + 1) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1)))
2726imbi1d 341 . . . . . 6 (𝑐 = (𝑖 + 1) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
28272ralbidv 3212 . . . . 5 (𝑐 = (𝑖 + 1) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
29 breq2 5145 . . . . . . 7 (𝑐 = ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1)))
3029imbi1d 341 . . . . . 6 (𝑐 = ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
31302ralbidv 3212 . . . . 5 (𝑐 = ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑐 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
3212ffvelcdmi 7078 . . . . . . . . . . 11 (π‘Ž ∈ dom 𝑆 β†’ (π‘†β€˜π‘Ž) ∈ π‘Š)
333, 32sselid 3975 . . . . . . . . . 10 (π‘Ž ∈ dom 𝑆 β†’ (π‘†β€˜π‘Ž) ∈ Word (𝐼 Γ— 2o))
34 lencl 14487 . . . . . . . . . 10 ((π‘†β€˜π‘Ž) ∈ Word (𝐼 Γ— 2o) β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0)
3533, 34syl 17 . . . . . . . . 9 (π‘Ž ∈ dom 𝑆 β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0)
36 nn0nlt0 12499 . . . . . . . . 9 ((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 β†’ Β¬ (β™―β€˜(π‘†β€˜π‘Ž)) < 0)
3735, 36syl 17 . . . . . . . 8 (π‘Ž ∈ dom 𝑆 β†’ Β¬ (β™―β€˜(π‘†β€˜π‘Ž)) < 0)
3837pm2.21d 121 . . . . . . 7 (π‘Ž ∈ dom 𝑆 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
3938adantr 480 . . . . . 6 ((π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
4039rgen2 3191 . . . . 5 βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 0 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))
41 simpl1 1188 . . . . . . . . . . . . . 14 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
42 simpl3l 1225 . . . . . . . . . . . . . . 15 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ (β™―β€˜(π‘†β€˜π‘)) = 𝑖)
43 breq2 5145 . . . . . . . . . . . . . . . . 17 ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖))
4443imbi1d 341 . . . . . . . . . . . . . . . 16 ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
45442ralbidv 3212 . . . . . . . . . . . . . . 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 257 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (β™―β€˜(π‘†β€˜π‘)) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
48 simpl2l 1223 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ 𝑐 ∈ dom 𝑆)
49 simpl2r 1224 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ 𝑑 ∈ dom 𝑆)
50 simpl3r 1226 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))
51 simpr 484 . . . . . . . . . . . . 13 (((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0)) β†’ Β¬ (π‘β€˜0) = (π‘‘β€˜0))
521, 4, 5, 6, 7, 8, 47, 48, 49, 50, 51efgredlem 19665 . . . . . . . . . . . 12 Β¬ ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆) ∧ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘))) ∧ Β¬ (π‘β€˜0) = (π‘‘β€˜0))
53 iman 401 . . . . . . . . . . . 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 1118 . . . . . . . . . 10 ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆)) β†’ (((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ∧ (π‘†β€˜π‘) = (π‘†β€˜π‘‘)) β†’ (π‘β€˜0) = (π‘‘β€˜0)))
5655expd 415 . . . . . . . . 9 ((βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ (𝑐 ∈ dom 𝑆 ∧ 𝑑 ∈ dom 𝑆)) β†’ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))))
5756ralrimivva 3194 . . . . . . . 8 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ βˆ€π‘ ∈ dom π‘†βˆ€π‘‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))))
58 2fveq3 6889 . . . . . . . . . . 11 (𝑐 = π‘Ž β†’ (β™―β€˜(π‘†β€˜π‘)) = (β™―β€˜(π‘†β€˜π‘Ž)))
5958eqeq1d 2728 . . . . . . . . . 10 (𝑐 = π‘Ž β†’ ((β™―β€˜(π‘†β€˜π‘)) = 𝑖 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖))
60 fveqeq2 6893 . . . . . . . . . . 11 (𝑐 = π‘Ž β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) ↔ (π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘)))
61 fveq1 6883 . . . . . . . . . . . 12 (𝑐 = π‘Ž β†’ (π‘β€˜0) = (π‘Žβ€˜0))
6261eqeq1d 2728 . . . . . . . . . . 11 (𝑐 = π‘Ž β†’ ((π‘β€˜0) = (π‘‘β€˜0) ↔ (π‘Žβ€˜0) = (π‘‘β€˜0)))
6360, 62imbi12d 344 . . . . . . . . . 10 (𝑐 = π‘Ž β†’ (((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0)) ↔ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0))))
6459, 63imbi12d 344 . . . . . . . . 9 (𝑐 = π‘Ž β†’ (((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0)))))
65 fveq2 6884 . . . . . . . . . . . 12 (𝑑 = 𝑏 β†’ (π‘†β€˜π‘‘) = (π‘†β€˜π‘))
6665eqeq2d 2737 . . . . . . . . . . 11 (𝑑 = 𝑏 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) ↔ (π‘†β€˜π‘Ž) = (π‘†β€˜π‘)))
67 fveq1 6883 . . . . . . . . . . . 12 (𝑑 = 𝑏 β†’ (π‘‘β€˜0) = (π‘β€˜0))
6867eqeq2d 2737 . . . . . . . . . . 11 (𝑑 = 𝑏 β†’ ((π‘Žβ€˜0) = (π‘‘β€˜0) ↔ (π‘Žβ€˜0) = (π‘β€˜0)))
6966, 68imbi12d 344 . . . . . . . . . 10 (𝑑 = 𝑏 β†’ (((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0)) ↔ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
7069imbi2d 340 . . . . . . . . 9 (𝑑 = 𝑏 β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘‘) β†’ (π‘Žβ€˜0) = (π‘‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
7164, 70cbvral2vw 3232 . . . . . . . 8 (βˆ€π‘ ∈ dom π‘†βˆ€π‘‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘)) = 𝑖 β†’ ((π‘†β€˜π‘) = (π‘†β€˜π‘‘) β†’ (π‘β€˜0) = (π‘‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
7257, 71sylib 217 . . . . . . 7 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
7372ancli 548 . . . . . 6 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
7435adantr 480 . . . . . . . . . . 11 ((π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0)
75 nn0leltp1 12622 . . . . . . . . . . . . 13 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 ∧ 𝑖 ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) ≀ 𝑖 ↔ (β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1)))
76 nn0re 12482 . . . . . . . . . . . . . 14 ((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 β†’ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ ℝ)
77 nn0re 12482 . . . . . . . . . . . . . 14 (𝑖 ∈ β„•0 β†’ 𝑖 ∈ ℝ)
78 leloe 11301 . . . . . . . . . . . . . 14 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ ℝ ∧ 𝑖 ∈ ℝ) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) ≀ 𝑖 ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
7976, 77, 78syl2an 595 . . . . . . . . . . . . 13 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 ∧ 𝑖 ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) ≀ 𝑖 ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8075, 79bitr3d 281 . . . . . . . . . . . 12 (((β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0 ∧ 𝑖 ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8180ancoms 458 . . . . . . . . . . 11 ((𝑖 ∈ β„•0 ∧ (β™―β€˜(π‘†β€˜π‘Ž)) ∈ β„•0) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8274, 81sylan2 592 . . . . . . . . . 10 ((𝑖 ∈ β„•0 ∧ (π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆)) β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) ↔ ((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖)))
8382imbi1d 341 . . . . . . . . 9 ((𝑖 ∈ β„•0 ∧ (π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆)) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
84 jaob 958 . . . . . . . . 9 ((((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 ∨ (β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
8583, 84bitrdi 287 . . . . . . . 8 ((𝑖 ∈ β„•0 ∧ (π‘Ž ∈ dom 𝑆 ∧ 𝑏 ∈ dom 𝑆)) β†’ (((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ (((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))))
86852ralbidva 3210 . . . . . . 7 (𝑖 ∈ β„•0 β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < (𝑖 + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ↔ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆(((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))))
87 r19.26-2 3132 . . . . . . 7 (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆(((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ ((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))) ↔ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) ∧ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) = 𝑖 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0)))))
8886, 87bitrdi 287 . . . . . 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 12658 . . . 4 (((β™―β€˜(π‘†β€˜π΄)) + 1) ∈ β„•0 β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
9119, 90syl 17 . . 3 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))))
9217nn0red 12534 . . . 4 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π΄)) ∈ ℝ)
9392ltp1d 12145 . . 3 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1))
94 2fveq3 6889 . . . . . 6 (π‘Ž = 𝐴 β†’ (β™―β€˜(π‘†β€˜π‘Ž)) = (β™―β€˜(π‘†β€˜π΄)))
9594breq1d 5151 . . . . 5 (π‘Ž = 𝐴 β†’ ((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) ↔ (β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1)))
96 fveqeq2 6893 . . . . . 6 (π‘Ž = 𝐴 β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) ↔ (π‘†β€˜π΄) = (π‘†β€˜π‘)))
97 fveq1 6883 . . . . . . 7 (π‘Ž = 𝐴 β†’ (π‘Žβ€˜0) = (π΄β€˜0))
9897eqeq1d 2728 . . . . . 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 6884 . . . . . . 7 (𝑏 = 𝐡 β†’ (π‘†β€˜π‘) = (π‘†β€˜π΅))
102101eqeq2d 2737 . . . . . 6 (𝑏 = 𝐡 β†’ ((π‘†β€˜π΄) = (π‘†β€˜π‘) ↔ (π‘†β€˜π΄) = (π‘†β€˜π΅)))
103 fveq1 6883 . . . . . . 7 (𝑏 = 𝐡 β†’ (π‘β€˜0) = (π΅β€˜0))
104103eqeq2d 2737 . . . . . 6 (𝑏 = 𝐡 β†’ ((π΄β€˜0) = (π‘β€˜0) ↔ (π΄β€˜0) = (π΅β€˜0)))
105102, 104imbi12d 344 . . . . 5 (𝑏 = 𝐡 β†’ (((π‘†β€˜π΄) = (π‘†β€˜π‘) β†’ (π΄β€˜0) = (π‘β€˜0)) ↔ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0))))
106105imbi2d 340 . . . 4 (𝑏 = 𝐡 β†’ (((β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π‘) β†’ (π΄β€˜0) = (π‘β€˜0))) ↔ ((β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0)))))
107100, 106rspc2v 3617 . . 3 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ (βˆ€π‘Ž ∈ dom π‘†βˆ€π‘ ∈ dom 𝑆((β™―β€˜(π‘†β€˜π‘Ž)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π‘Ž) = (π‘†β€˜π‘) β†’ (π‘Žβ€˜0) = (π‘β€˜0))) β†’ ((β™―β€˜(π‘†β€˜π΄)) < ((β™―β€˜(π‘†β€˜π΄)) + 1) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0)))))
10891, 93, 107mp2d 49 . 2 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆) β†’ ((π‘†β€˜π΄) = (π‘†β€˜π΅) β†’ (π΄β€˜0) = (π΅β€˜0)))
1091083impia 1114 1 ((𝐴 ∈ dom 𝑆 ∧ 𝐡 ∈ dom 𝑆 ∧ (π‘†β€˜π΄) = (π‘†β€˜π΅)) β†’ (π΄β€˜0) = (π΅β€˜0))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 844   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098  βˆ€wral 3055  {crab 3426   βˆ– cdif 3940  βˆ…c0 4317  {csn 4623  βŸ¨cop 4629  βŸ¨cotp 4631  βˆͺ ciun 4990   class class class wbr 5141   ↦ cmpt 5224   I cid 5566   Γ— cxp 5667  dom cdm 5669  ran crn 5670  βŸΆwf 6532  β€˜cfv 6536  (class class class)co 7404   ∈ cmpo 7406  1oc1o 8457  2oc2o 8458  β„cr 11108  0cc0 11109  1c1 11110   + caddc 11112   < clt 11249   ≀ cle 11250   βˆ’ cmin 11445  β„•0cn0 12473  ...cfz 13487  ..^cfzo 13630  β™―chash 14293  Word cword 14468   splice csplice 14703  βŸ¨β€œcs2 14796   ~FG cefg 19624
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7721  ax-cnex 11165  ax-resscn 11166  ax-1cn 11167  ax-icn 11168  ax-addcl 11169  ax-addrcl 11170  ax-mulcl 11171  ax-mulrcl 11172  ax-mulcom 11173  ax-addass 11174  ax-mulass 11175  ax-distr 11176  ax-i2m1 11177  ax-1ne0 11178  ax-1rid 11179  ax-rnegex 11180  ax-rrecex 11181  ax-cnre 11182  ax-pre-lttri 11183  ax-pre-lttrn 11184  ax-pre-ltadd 11185  ax-pre-mulgt0 11186
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-nel 3041  df-ral 3056  df-rex 3065  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-pss 3962  df-nul 4318  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-op 4630  df-ot 4632  df-uni 4903  df-int 4944  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6293  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6488  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7360  df-ov 7407  df-oprab 7408  df-mpo 7409  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8264  df-wrecs 8295  df-recs 8369  df-rdg 8408  df-1o 8464  df-2o 8465  df-er 8702  df-map 8821  df-en 8939  df-dom 8940  df-sdom 8941  df-fin 8942  df-card 9933  df-pnf 11251  df-mnf 11252  df-xr 11253  df-ltxr 11254  df-le 11255  df-sub 11447  df-neg 11448  df-nn 12214  df-2 12276  df-n0 12474  df-xnn0 12546  df-z 12560  df-uz 12824  df-rp 12978  df-fz 13488  df-fzo 13631  df-hash 14294  df-word 14469  df-concat 14525  df-s1 14550  df-substr 14595  df-pfx 14625  df-splice 14704  df-s2 14803
This theorem is referenced by:  efgrelexlemb  19668
  Copyright terms: Public domain W3C validator