ccatf1 - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > ccatf1		Structured version Visualization version GIF version

Theorem ccatf1 31125

Description: Conditions for a concatenation to be injective. (Contributed by Thierry Arnoux, 11-Dec-2023.)

**Hypotheses**
Ref	Expression
ccatf1.s	⊢ (𝜑 → 𝑆 ∈ 𝑉)
ccatf1.a	⊢ (𝜑 → 𝐴 ∈ Word 𝑆)
ccatf1.b	⊢ (𝜑 → 𝐵 ∈ Word 𝑆)
ccatf1.1	⊢ (𝜑 → 𝐴:dom 𝐴–1-1→𝑆)
ccatf1.2	⊢ (𝜑 → 𝐵:dom 𝐵–1-1→𝑆)
ccatf1.3	⊢ (𝜑 → (ran 𝐴 ∩ ran 𝐵) = ∅)

**Assertion**
Ref	Expression
ccatf1	⊢ (𝜑 → (𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)–1-1→𝑆)

Proof of Theorem ccatf1 Dummy variables 𝑖 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ccatf1.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ Word 𝑆)
2		ccatf1.b	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ Word 𝑆)
3		ccatcl 14205	. . . . 5 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆) → (𝐴 ++ 𝐵) ∈ Word 𝑆)
4	1, 2, 3	syl2anc 583	. . . 4 ⊢ (𝜑 → (𝐴 ++ 𝐵) ∈ Word 𝑆)
5		wrdf 14150	. . . 4 ⊢ ((𝐴 ++ 𝐵) ∈ Word 𝑆 → (𝐴 ++ 𝐵):(0..^(♯‘(𝐴 ++ 𝐵)))⟶𝑆)
6	4, 5	syl 17	. . 3 ⊢ (𝜑 → (𝐴 ++ 𝐵):(0..^(♯‘(𝐴 ++ 𝐵)))⟶𝑆)
7	6	ffdmd 6615	. 2 ⊢ (𝜑 → (𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)⟶𝑆)
8		simpllr 772	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗))
9		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (0..^(♯‘𝐴)) → 𝑖 ∈ (0..^(♯‘𝐴)))
10		ccatval1 14209	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
11	1, 2, 9, 10	syl2an3an 1420	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
12	11	ad4ant13 747	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
13		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑗 ∈ (0..^(♯‘𝐴)))
14		ccatval1 14209	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
15	1, 2, 13, 14	syl2an3an 1420	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
16	15	ad4ant14 748	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
17	8, 12, 16	3eqtr3d 2786	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑖) = (𝐴‘𝑗))
18		wrddm 14152	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ Word 𝑆 → dom 𝐴 = (0..^(♯‘𝐴)))
19	1, 18	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → dom 𝐴 = (0..^(♯‘𝐴)))
20		ccatf1.1	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴:dom 𝐴–1-1→𝑆)
21		f1eq2 6650	. . . . . . . . . . . . . . . . 17 ⊢ (dom 𝐴 = (0..^(♯‘𝐴)) → (𝐴:dom 𝐴–1-1→𝑆 ↔ 𝐴:(0..^(♯‘𝐴))–1-1→𝑆))
22	21	biimpa 476	. . . . . . . . . . . . . . . 16 ⊢ ((dom 𝐴 = (0..^(♯‘𝐴)) ∧ 𝐴:dom 𝐴–1-1→𝑆) → 𝐴:(0..^(♯‘𝐴))–1-1→𝑆)
23	19, 20, 22	syl2anc 583	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐴:(0..^(♯‘𝐴))–1-1→𝑆)
24		dff13 7109	. . . . . . . . . . . . . . . 16 ⊢ (𝐴:(0..^(♯‘𝐴))–1-1→𝑆 ↔ (𝐴:(0..^(♯‘𝐴))⟶𝑆 ∧ ∀𝑖 ∈ (0..^(♯‘𝐴))∀𝑗 ∈ (0..^(♯‘𝐴))((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗)))
25	24	simprbi 496	. . . . . . . . . . . . . . 15 ⊢ (𝐴:(0..^(♯‘𝐴))–1-1→𝑆 → ∀𝑖 ∈ (0..^(♯‘𝐴))∀𝑗 ∈ (0..^(♯‘𝐴))((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
26	23, 25	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∀𝑖 ∈ (0..^(♯‘𝐴))∀𝑗 ∈ (0..^(♯‘𝐴))((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
27	26	r19.21bi 3132	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → ∀𝑗 ∈ (0..^(♯‘𝐴))((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
28	27	r19.21bi 3132	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
29	28	adantllr 715	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
30	17, 29	mpd 15	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑖 = 𝑗)
31	30	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
32	31	adantllr 715	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
33		f1fun 6656	. . . . . . . . . . . . . . . 16 ⊢ (𝐴:dom 𝐴–1-1→𝑆 → Fun 𝐴)
34	20, 33	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → Fun 𝐴)
35		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → 𝑖 ∈ (0..^(♯‘𝐴)))
36	19	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → dom 𝐴 = (0..^(♯‘𝐴)))
37	35, 36	eleqtrrd 2842	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → 𝑖 ∈ dom 𝐴)
38		fvelrn 6936	. . . . . . . . . . . . . . 15 ⊢ ((Fun 𝐴 ∧ 𝑖 ∈ dom 𝐴) → (𝐴‘𝑖) ∈ ran 𝐴)
39	34, 37, 38	syl2an2r 681	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑖) ∈ ran 𝐴)
40	39	ad4ant13 747	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ ran 𝐴)
41		simpllr 772	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗))
42	11	ad4ant13 747	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
43	1	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐴 ∈ Word 𝑆)
44	2	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐵 ∈ Word 𝑆)
45		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))))
46		ccatlen 14206	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆) → (♯‘(𝐴 ++ 𝐵)) = ((♯‘𝐴) + (♯‘𝐵)))
47	1, 2, 46	syl2anc 583	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘(𝐴 ++ 𝐵)) = ((♯‘𝐴) + (♯‘𝐵)))
48	47	oveq2d 7271	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) = ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
49	48	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) = ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
50	45, 49	eleqtrd 2841	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑗 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
51		ccatval2 14211	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑗 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
52	43, 44, 50, 51	syl3anc 1369	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
53	52	ad4ant14 748	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
54	41, 42, 53	3eqtr3d 2786	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) = (𝐵‘(𝑗 − (♯‘𝐴))))
55		ccatf1.2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵:dom 𝐵–1-1→𝑆)
56		f1fun 6656	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵:dom 𝐵–1-1→𝑆 → Fun 𝐵)
57	55, 56	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → Fun 𝐵)
58		lencl 14164	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐵 ∈ Word 𝑆 → (♯‘𝐵) ∈ ℕ₀)
59	2, 58	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ₀)
60	59	nn0zd 12353	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘𝐵) ∈ ℤ)
61	60	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (♯‘𝐵) ∈ ℤ)
62		fzosubel3 13376	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑗 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))) ∧ (♯‘𝐵) ∈ ℤ) → (𝑗 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
63	50, 61, 62	syl2anc 583	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
64		wrddm 14152	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐵 ∈ Word 𝑆 → dom 𝐵 = (0..^(♯‘𝐵)))
65	2, 64	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → dom 𝐵 = (0..^(♯‘𝐵)))
66	65	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → dom 𝐵 = (0..^(♯‘𝐵)))
67	63, 66	eleqtrrd 2842	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)
68		fvelrn 6936	. . . . . . . . . . . . . . . 16 ⊢ ((Fun 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵) → (𝐵‘(𝑗 − (♯‘𝐴))) ∈ ran 𝐵)
69	57, 67, 68	syl2an2r 681	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑗 − (♯‘𝐴))) ∈ ran 𝐵)
70	69	ad4ant14 748	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑗 − (♯‘𝐴))) ∈ ran 𝐵)
71	54, 70	eqeltrd 2839	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ ran 𝐵)
72	40, 71	elind 4124	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ (ran 𝐴 ∩ ran 𝐵))
73		ccatf1.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → (ran 𝐴 ∩ ran 𝐵) = ∅)
74	73	ad3antrrr 726	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (ran 𝐴 ∩ ran 𝐵) = ∅)
75	72, 74	eleqtrd 2841	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ ∅)
76		noel 4261	. . . . . . . . . . . 12 ⊢ ¬ (𝐴‘𝑖) ∈ ∅
77	76	a1i 11	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ¬ (𝐴‘𝑖) ∈ ∅)
78	75, 77	pm2.21dd 194	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 = 𝑗)
79	78	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
80	79	adantllr 715	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
81		wrddm 14152	. . . . . . . . . . . . 13 ⊢ ((𝐴 ++ 𝐵) ∈ Word 𝑆 → dom (𝐴 ++ 𝐵) = (0..^(♯‘(𝐴 ++ 𝐵))))
82	4, 81	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → dom (𝐴 ++ 𝐵) = (0..^(♯‘(𝐴 ++ 𝐵))))
83	82	eleq2d 2824	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 ∈ dom (𝐴 ++ 𝐵) ↔ 𝑗 ∈ (0..^(♯‘(𝐴 ++ 𝐵)))))
84	83	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) → 𝑗 ∈ (0..^(♯‘(𝐴 ++ 𝐵))))
85		lencl 14164	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ Word 𝑆 → (♯‘𝐴) ∈ ℕ₀)
86	1, 85	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐴) ∈ ℕ₀)
87	86	nn0zd 12353	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐴) ∈ ℤ)
88	87	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) → (♯‘𝐴) ∈ ℤ)
89		fzospliti 13347	. . . . . . . . . 10 ⊢ ((𝑗 ∈ (0..^(♯‘(𝐴 ++ 𝐵))) ∧ (♯‘𝐴) ∈ ℤ) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
90	84, 88, 89	syl2anc 583	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
91	90	ad2antrr 722	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
92	32, 80, 91	mpjaod 856	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → 𝑖 = 𝑗)
93	92	ex 412	. . . . . 6 ⊢ (((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
94	93	adantlrl 716	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
95		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑗 ∈ (0..^(♯‘𝐴)))
96	19	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → dom 𝐴 = (0..^(♯‘𝐴)))
97	95, 96	eleqtrrd 2842	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑗 ∈ dom 𝐴)
98		fvelrn 6936	. . . . . . . . . . . . . . 15 ⊢ ((Fun 𝐴 ∧ 𝑗 ∈ dom 𝐴) → (𝐴‘𝑗) ∈ ran 𝐴)
99	34, 97, 98	syl2an2r 681	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ran 𝐴)
100	99	ad4ant14 748	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ran 𝐴)
101		simpllr 772	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗))
102	1	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐴 ∈ Word 𝑆)
103	2	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐵 ∈ Word 𝑆)
104		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))))
105	48	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) = ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
106	104, 105	eleqtrd 2841	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
107		ccatval2 14211	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑖 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
108	102, 103, 106, 107	syl3anc 1369	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
109	108	ad4ant13 747	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
110	15	ad4ant14 748	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
111	101, 109, 110	3eqtr3rd 2787	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) = (𝐵‘(𝑖 − (♯‘𝐴))))
112	60	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (♯‘𝐵) ∈ ℤ)
113		fzosubel3 13376	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))) ∧ (♯‘𝐵) ∈ ℤ) → (𝑖 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
114	106, 112, 113	syl2anc 583	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
115	65	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → dom 𝐵 = (0..^(♯‘𝐵)))
116	114, 115	eleqtrrd 2842	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) ∈ dom 𝐵)
117		fvelrn 6936	. . . . . . . . . . . . . . . 16 ⊢ ((Fun 𝐵 ∧ (𝑖 − (♯‘𝐴)) ∈ dom 𝐵) → (𝐵‘(𝑖 − (♯‘𝐴))) ∈ ran 𝐵)
118	57, 116, 117	syl2an2r 681	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑖 − (♯‘𝐴))) ∈ ran 𝐵)
119	118	ad4ant13 747	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐵‘(𝑖 − (♯‘𝐴))) ∈ ran 𝐵)
120	111, 119	eqeltrd 2839	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ran 𝐵)
121	100, 120	elind 4124	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ (ran 𝐴 ∩ ran 𝐵))
122	73	ad3antrrr 726	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (ran 𝐴 ∩ ran 𝐵) = ∅)
123	121, 122	eleqtrd 2841	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ∅)
124		noel 4261	. . . . . . . . . . . 12 ⊢ ¬ (𝐴‘𝑗) ∈ ∅
125	124	a1i 11	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ¬ (𝐴‘𝑗) ∈ ∅)
126	123, 125	pm2.21dd 194	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑖 = 𝑗)
127	126	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
128	127	adantllr 715	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
129		elfzoelz 13316	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 ∈ ℤ)
130	129	zcnd 12356	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 ∈ ℂ)
131	130	ad2antlr 723	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 ∈ ℂ)
132		elfzoelz 13316	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑗 ∈ ℤ)
133	132	zcnd 12356	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑗 ∈ ℂ)
134	133	adantl 481	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑗 ∈ ℂ)
135	86	nn0cnd 12225	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐴) ∈ ℂ)
136	135	ad3antrrr 726	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (♯‘𝐴) ∈ ℂ)
137	55	ad3antrrr 726	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐵:dom 𝐵–1-1→𝑆)
138	116	ad4ant13 747	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) ∈ dom 𝐵)
139	67	ad4ant14 748	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)
140	138, 139	jca 511	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝑖 − (♯‘𝐴)) ∈ dom 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵))
141		simpllr 772	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗))
142	108	ad4ant13 747	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
143	52	ad4ant14 748	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
144	141, 142, 143	3eqtr3d 2786	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑖 − (♯‘𝐴))) = (𝐵‘(𝑗 − (♯‘𝐴))))
145		f1veqaeq 7111	. . . . . . . . . . . . 13 ⊢ ((𝐵:dom 𝐵–1-1→𝑆 ∧ ((𝑖 − (♯‘𝐴)) ∈ dom 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)) → ((𝐵‘(𝑖 − (♯‘𝐴))) = (𝐵‘(𝑗 − (♯‘𝐴))) → (𝑖 − (♯‘𝐴)) = (𝑗 − (♯‘𝐴))))
146	145	imp 406	. . . . . . . . . . . 12 ⊢ (((𝐵:dom 𝐵–1-1→𝑆 ∧ ((𝑖 − (♯‘𝐴)) ∈ dom 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)) ∧ (𝐵‘(𝑖 − (♯‘𝐴))) = (𝐵‘(𝑗 − (♯‘𝐴)))) → (𝑖 − (♯‘𝐴)) = (𝑗 − (♯‘𝐴)))
147	137, 140, 144, 146	syl21anc 834	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) = (𝑗 − (♯‘𝐴)))
148	131, 134, 136, 147	subcan2d 11304	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 = 𝑗)
149	148	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
150	149	adantllr 715	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
151	90	ad2antrr 722	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
152	128, 150, 151	mpjaod 856	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 = 𝑗)
153	152	ex 412	. . . . . 6 ⊢ (((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
154	153	adantlrl 716	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
155	82	eleq2d 2824	. . . . . . . . 9 ⊢ (𝜑 → (𝑖 ∈ dom (𝐴 ++ 𝐵) ↔ 𝑖 ∈ (0..^(♯‘(𝐴 ++ 𝐵)))))
156	155	biimpa 476	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ dom (𝐴 ++ 𝐵)) → 𝑖 ∈ (0..^(♯‘(𝐴 ++ 𝐵))))
157	87	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ dom (𝐴 ++ 𝐵)) → (♯‘𝐴) ∈ ℤ)
158		fzospliti 13347	. . . . . . . 8 ⊢ ((𝑖 ∈ (0..^(♯‘(𝐴 ++ 𝐵))) ∧ (♯‘𝐴) ∈ ℤ) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
159	156, 157, 158	syl2anc 583	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ dom (𝐴 ++ 𝐵)) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
160	159	adantrr 713	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
161	160	adantr 480	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
162	94, 154, 161	mpjaod 856	. . . 4 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → 𝑖 = 𝑗)
163	162	ex 412	. . 3 ⊢ ((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) → (((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗) → 𝑖 = 𝑗))
164	163	ralrimivva 3114	. 2 ⊢ (𝜑 → ∀𝑖 ∈ dom (𝐴 ++ 𝐵)∀𝑗 ∈ dom (𝐴 ++ 𝐵)(((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗) → 𝑖 = 𝑗))
165		dff13 7109	. 2 ⊢ ((𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)–1-1→𝑆 ↔ ((𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)⟶𝑆 ∧ ∀𝑖 ∈ dom (𝐴 ++ 𝐵)∀𝑗 ∈ dom (𝐴 ++ 𝐵)(((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗) → 𝑖 = 𝑗)))
166	7, 164, 165	sylanbrc 582	1 ⊢ (𝜑 → (𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)–1-1→𝑆)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 ∨ wo 843 = wceq 1539 ∈ wcel 2108 ∀wral 3063 ∩ cin 3882 ∅c0 4253 dom cdm 5580 ran crn 5581 Fun wfun 6412 ⟶wf 6414 –1-1→wf1 6415 ‘cfv 6418 (class class class)co 7255 ℂcc 10800 0cc0 10802 + caddc 10805 − cmin 11135 ℕ₀cn0 12163 ℤcz 12249 ..^cfzo 13311 ♯chash 13972 Word cword 14145 ++ cconcat 14201

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-10 2139 ax-11 2156 ax-12 2173 ax-ext 2709 ax-rep 5205 ax-sep 5218 ax-nul 5225 ax-pow 5283 ax-pr 5347 ax-un 7566 ax-cnex 10858 ax-resscn 10859 ax-1cn 10860 ax-icn 10861 ax-addcl 10862 ax-addrcl 10863 ax-mulcl 10864 ax-mulrcl 10865 ax-mulcom 10866 ax-addass 10867 ax-mulass 10868 ax-distr 10869 ax-i2m1 10870 ax-1ne0 10871 ax-1rid 10872 ax-rnegex 10873 ax-rrecex 10874 ax-cnre 10875 ax-pre-lttri 10876 ax-pre-lttrn 10877 ax-pre-ltadd 10878 ax-pre-mulgt0 10879

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-nf 1788 df-sb 2069 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2817 df-nfc 2888 df-ne 2943 df-nel 3049 df-ral 3068 df-rex 3069 df-reu 3070 df-rab 3072 df-v 3424 df-sbc 3712 df-csb 3829 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3902 df-nul 4254 df-if 4457 df-pw 4532 df-sn 4559 df-pr 4561 df-tp 4563 df-op 4565 df-uni 4837 df-int 4877 df-iun 4923 df-br 5071 df-opab 5133 df-mpt 5154 df-tr 5188 df-id 5480 df-eprel 5486 df-po 5494 df-so 5495 df-fr 5535 df-we 5537 df-xp 5586 df-rel 5587 df-cnv 5588 df-co 5589 df-dm 5590 df-rn 5591 df-res 5592 df-ima 5593 df-pred 6191 df-ord 6254 df-on 6255 df-lim 6256 df-suc 6257 df-iota 6376 df-fun 6420 df-fn 6421 df-f 6422 df-f1 6423 df-fo 6424 df-f1o 6425 df-fv 6426 df-riota 7212 df-ov 7258 df-oprab 7259 df-mpo 7260 df-om 7688 df-1st 7804 df-2nd 7805 df-frecs 8068 df-wrecs 8099 df-recs 8173 df-rdg 8212 df-1o 8267 df-er 8456 df-en 8692 df-dom 8693 df-sdom 8694 df-fin 8695 df-card 9628 df-pnf 10942 df-mnf 10943 df-xr 10944 df-ltxr 10945 df-le 10946 df-sub 11137 df-neg 11138 df-nn 11904 df-n0 12164 df-z 12250 df-uz 12512 df-fz 13169 df-fzo 13312 df-hash 13973 df-word 14146 df-concat 14202

This theorem is referenced by: cycpmco2f1 31293

W3C validator