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 32959

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 14488	. . . . 5 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆) → (𝐴 ++ 𝐵) ∈ Word 𝑆)
4	1, 2, 3	syl2anc 584	. . . 4 ⊢ (𝜑 → (𝐴 ++ 𝐵) ∈ Word 𝑆)
5		wrdf 14432	. . . 4 ⊢ ((𝐴 ++ 𝐵) ∈ Word 𝑆 → (𝐴 ++ 𝐵):(0..^(♯‘(𝐴 ++ 𝐵)))⟶𝑆)
6	4, 5	syl 17	. . 3 ⊢ (𝜑 → (𝐴 ++ 𝐵):(0..^(♯‘(𝐴 ++ 𝐵)))⟶𝑆)
7	6	ffdmd 6689	. 2 ⊢ (𝜑 → (𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)⟶𝑆)
8		simpllr 775	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗))
9		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (0..^(♯‘𝐴)) → 𝑖 ∈ (0..^(♯‘𝐴)))
10		ccatval1 14491	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
11	1, 2, 9, 10	syl2an3an 1424	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
12	11	ad4ant13 751	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
13		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑗 ∈ (0..^(♯‘𝐴)))
14		ccatval1 14491	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
15	1, 2, 13, 14	syl2an3an 1424	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
16	15	ad4ant14 752	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
17	8, 12, 16	3eqtr3d 2776	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑖) = (𝐴‘𝑗))
18		wrddm 14435	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ Word 𝑆 → dom 𝐴 = (0..^(♯‘𝐴)))
19	1, 18	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → dom 𝐴 = (0..^(♯‘𝐴)))
20		ccatf1.1	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴:dom 𝐴–1-1→𝑆)
21		f1eq2 6723	. . . . . . . . . . . . . . . . 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 584	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐴:(0..^(♯‘𝐴))–1-1→𝑆)
24		dff13 7197	. . . . . . . . . . . . . . . 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 3225	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → ∀𝑗 ∈ (0..^(♯‘𝐴))((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
28	27	r19.21bi 3225	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
29	28	adantllr 719	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴‘𝑖) = (𝐴‘𝑗) → 𝑖 = 𝑗))
30	17, 29	mpd 15	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑖 = 𝑗)
31	30	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
32	31	adantllr 719	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
33		f1fun 6729	. . . . . . . . . . . . . . . 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 2836	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → 𝑖 ∈ dom 𝐴)
38		fvelrn 7018	. . . . . . . . . . . . . . 15 ⊢ ((Fun 𝐴 ∧ 𝑖 ∈ dom 𝐴) → (𝐴‘𝑖) ∈ ran 𝐴)
39	34, 37, 38	syl2an2r 685	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑖) ∈ ran 𝐴)
40	39	ad4ant13 751	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ ran 𝐴)
41		simpllr 775	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗))
42	11	ad4ant13 751	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐴‘𝑖))
43	1	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐴 ∈ Word 𝑆)
44	2	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐵 ∈ Word 𝑆)
45		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))))
46		ccatlen 14489	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆) → (♯‘(𝐴 ++ 𝐵)) = ((♯‘𝐴) + (♯‘𝐵)))
47	1, 2, 46	syl2anc 584	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘(𝐴 ++ 𝐵)) = ((♯‘𝐴) + (♯‘𝐵)))
48	47	oveq2d 7371	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) = ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
49	48	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) = ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
50	45, 49	eleqtrd 2835	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑗 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
51		ccatval2 14492	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑗 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
52	43, 44, 50, 51	syl3anc 1373	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
53	52	ad4ant14 752	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
54	41, 42, 53	3eqtr3d 2776	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) = (𝐵‘(𝑗 − (♯‘𝐴))))
55		ccatf1.2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵:dom 𝐵–1-1→𝑆)
56		f1fun 6729	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵:dom 𝐵–1-1→𝑆 → Fun 𝐵)
57	55, 56	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → Fun 𝐵)
58		lencl 14447	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐵 ∈ Word 𝑆 → (♯‘𝐵) ∈ ℕ₀)
59	2, 58	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ₀)
60	59	nn0zd 12504	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (♯‘𝐵) ∈ ℤ)
61	60	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (♯‘𝐵) ∈ ℤ)
62		fzosubel3 13633	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑗 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))) ∧ (♯‘𝐵) ∈ ℤ) → (𝑗 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
63	50, 61, 62	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
64		wrddm 14435	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐵 ∈ Word 𝑆 → dom 𝐵 = (0..^(♯‘𝐵)))
65	2, 64	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → dom 𝐵 = (0..^(♯‘𝐵)))
66	65	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → dom 𝐵 = (0..^(♯‘𝐵)))
67	63, 66	eleqtrrd 2836	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)
68		fvelrn 7018	. . . . . . . . . . . . . . . 16 ⊢ ((Fun 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵) → (𝐵‘(𝑗 − (♯‘𝐴))) ∈ ran 𝐵)
69	57, 67, 68	syl2an2r 685	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑗 − (♯‘𝐴))) ∈ ran 𝐵)
70	69	ad4ant14 752	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑗 − (♯‘𝐴))) ∈ ran 𝐵)
71	54, 70	eqeltrd 2833	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ ran 𝐵)
72	40, 71	elind 4149	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ (ran 𝐴 ∩ ran 𝐵))
73		ccatf1.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → (ran 𝐴 ∩ ran 𝐵) = ∅)
74	73	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (ran 𝐴 ∩ ran 𝐵) = ∅)
75	72, 74	eleqtrd 2835	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐴‘𝑖) ∈ ∅)
76		noel 4287	. . . . . . . . . . . 12 ⊢ ¬ (𝐴‘𝑖) ∈ ∅
77	76	a1i 11	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ¬ (𝐴‘𝑖) ∈ ∅)
78	75, 77	pm2.21dd 195	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 = 𝑗)
79	78	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
80	79	adantllr 719	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
81		wrddm 14435	. . . . . . . . . . . . 13 ⊢ ((𝐴 ++ 𝐵) ∈ Word 𝑆 → dom (𝐴 ++ 𝐵) = (0..^(♯‘(𝐴 ++ 𝐵))))
82	4, 81	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → dom (𝐴 ++ 𝐵) = (0..^(♯‘(𝐴 ++ 𝐵))))
83	82	eleq2d 2819	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 ∈ dom (𝐴 ++ 𝐵) ↔ 𝑗 ∈ (0..^(♯‘(𝐴 ++ 𝐵)))))
84	83	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) → 𝑗 ∈ (0..^(♯‘(𝐴 ++ 𝐵))))
85		lencl 14447	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ Word 𝑆 → (♯‘𝐴) ∈ ℕ₀)
86	1, 85	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐴) ∈ ℕ₀)
87	86	nn0zd 12504	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐴) ∈ ℤ)
88	87	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) → (♯‘𝐴) ∈ ℤ)
89		fzospliti 13598	. . . . . . . . . 10 ⊢ ((𝑗 ∈ (0..^(♯‘(𝐴 ++ 𝐵))) ∧ (♯‘𝐴) ∈ ℤ) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
90	84, 88, 89	syl2anc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
91	90	ad2antrr 726	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
92	32, 80, 91	mpjaod 860	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ (0..^(♯‘𝐴))) → 𝑖 = 𝑗)
93	92	ex 412	. . . . . 6 ⊢ (((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
94	93	adantlrl 720	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
95		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑗 ∈ (0..^(♯‘𝐴)))
96	19	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → dom 𝐴 = (0..^(♯‘𝐴)))
97	95, 96	eleqtrrd 2836	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑗 ∈ dom 𝐴)
98		fvelrn 7018	. . . . . . . . . . . . . . 15 ⊢ ((Fun 𝐴 ∧ 𝑗 ∈ dom 𝐴) → (𝐴‘𝑗) ∈ ran 𝐴)
99	34, 97, 98	syl2an2r 685	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ran 𝐴)
100	99	ad4ant14 752	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ran 𝐴)
101		simpllr 775	. . . . . . . . . . . . . . 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 2835	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))))
107		ccatval2 14492	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ Word 𝑆 ∧ 𝐵 ∈ Word 𝑆 ∧ 𝑖 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
108	102, 103, 106, 107	syl3anc 1373	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
109	108	ad4ant13 751	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
110	15	ad4ant14 752	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐴‘𝑗))
111	101, 109, 110	3eqtr3rd 2777	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) = (𝐵‘(𝑖 − (♯‘𝐴))))
112	60	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (♯‘𝐵) ∈ ℤ)
113		fzosubel3 13633	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 ∈ ((♯‘𝐴)..^((♯‘𝐴) + (♯‘𝐵))) ∧ (♯‘𝐵) ∈ ℤ) → (𝑖 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
114	106, 112, 113	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) ∈ (0..^(♯‘𝐵)))
115	65	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → dom 𝐵 = (0..^(♯‘𝐵)))
116	114, 115	eleqtrrd 2836	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) ∈ dom 𝐵)
117		fvelrn 7018	. . . . . . . . . . . . . . . 16 ⊢ ((Fun 𝐵 ∧ (𝑖 − (♯‘𝐴)) ∈ dom 𝐵) → (𝐵‘(𝑖 − (♯‘𝐴))) ∈ ran 𝐵)
118	57, 116, 117	syl2an2r 685	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑖 − (♯‘𝐴))) ∈ ran 𝐵)
119	118	ad4ant13 751	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐵‘(𝑖 − (♯‘𝐴))) ∈ ran 𝐵)
120	111, 119	eqeltrd 2833	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ran 𝐵)
121	100, 120	elind 4149	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ (ran 𝐴 ∩ ran 𝐵))
122	73	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (ran 𝐴 ∩ ran 𝐵) = ∅)
123	121, 122	eleqtrd 2835	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → (𝐴‘𝑗) ∈ ∅)
124		noel 4287	. . . . . . . . . . . 12 ⊢ ¬ (𝐴‘𝑗) ∈ ∅
125	124	a1i 11	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → ¬ (𝐴‘𝑗) ∈ ∅)
126	123, 125	pm2.21dd 195	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ (0..^(♯‘𝐴))) → 𝑖 = 𝑗)
127	126	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
128	127	adantllr 719	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ (0..^(♯‘𝐴)) → 𝑖 = 𝑗))
129		elfzoelz 13566	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 ∈ ℤ)
130	129	zcnd 12588	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 ∈ ℂ)
131	130	ad2antlr 727	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 ∈ ℂ)
132		elfzoelz 13566	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑗 ∈ ℤ)
133	132	zcnd 12588	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑗 ∈ ℂ)
134	133	adantl 481	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑗 ∈ ℂ)
135	86	nn0cnd 12455	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐴) ∈ ℂ)
136	135	ad3antrrr 730	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (♯‘𝐴) ∈ ℂ)
137	55	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝐵:dom 𝐵–1-1→𝑆)
138	116	ad4ant13 751	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) ∈ dom 𝐵)
139	67	ad4ant14 752	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)
140	138, 139	jca 511	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝑖 − (♯‘𝐴)) ∈ dom 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵))
141		simpllr 775	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗))
142	108	ad4ant13 751	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑖) = (𝐵‘(𝑖 − (♯‘𝐴))))
143	52	ad4ant14 752	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → ((𝐴 ++ 𝐵)‘𝑗) = (𝐵‘(𝑗 − (♯‘𝐴))))
144	141, 142, 143	3eqtr3d 2776	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝐵‘(𝑖 − (♯‘𝐴))) = (𝐵‘(𝑗 − (♯‘𝐴))))
145		f1veqaeq 7199	. . . . . . . . . . . . 13 ⊢ ((𝐵:dom 𝐵–1-1→𝑆 ∧ ((𝑖 − (♯‘𝐴)) ∈ dom 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)) → ((𝐵‘(𝑖 − (♯‘𝐴))) = (𝐵‘(𝑗 − (♯‘𝐴))) → (𝑖 − (♯‘𝐴)) = (𝑗 − (♯‘𝐴))))
146	145	imp 406	. . . . . . . . . . . 12 ⊢ (((𝐵:dom 𝐵–1-1→𝑆 ∧ ((𝑖 − (♯‘𝐴)) ∈ dom 𝐵 ∧ (𝑗 − (♯‘𝐴)) ∈ dom 𝐵)) ∧ (𝐵‘(𝑖 − (♯‘𝐴))) = (𝐵‘(𝑗 − (♯‘𝐴)))) → (𝑖 − (♯‘𝐴)) = (𝑗 − (♯‘𝐴)))
147	137, 140, 144, 146	syl21anc 837	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑖 − (♯‘𝐴)) = (𝑗 − (♯‘𝐴)))
148	131, 134, 136, 147	subcan2d 11525	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) ∧ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 = 𝑗)
149	148	ex 412	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
150	149	adantllr 719	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
151	90	ad2antrr 726	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → (𝑗 ∈ (0..^(♯‘𝐴)) ∨ 𝑗 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
152	128, 150, 151	mpjaod 860	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) ∧ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))) → 𝑖 = 𝑗)
153	152	ex 412	. . . . . 6 ⊢ (((𝜑 ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵)) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
154	153	adantlrl 720	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵))) → 𝑖 = 𝑗))
155	82	eleq2d 2819	. . . . . . . . 9 ⊢ (𝜑 → (𝑖 ∈ dom (𝐴 ++ 𝐵) ↔ 𝑖 ∈ (0..^(♯‘(𝐴 ++ 𝐵)))))
156	155	biimpa 476	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ dom (𝐴 ++ 𝐵)) → 𝑖 ∈ (0..^(♯‘(𝐴 ++ 𝐵))))
157	87	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ dom (𝐴 ++ 𝐵)) → (♯‘𝐴) ∈ ℤ)
158		fzospliti 13598	. . . . . . . 8 ⊢ ((𝑖 ∈ (0..^(♯‘(𝐴 ++ 𝐵))) ∧ (♯‘𝐴) ∈ ℤ) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
159	156, 157, 158	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ dom (𝐴 ++ 𝐵)) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
160	159	adantrr 717	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
161	160	adantr 480	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → (𝑖 ∈ (0..^(♯‘𝐴)) ∨ 𝑖 ∈ ((♯‘𝐴)..^(♯‘(𝐴 ++ 𝐵)))))
162	94, 154, 161	mpjaod 860	. . . 4 ⊢ (((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) ∧ ((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗)) → 𝑖 = 𝑗)
163	162	ex 412	. . 3 ⊢ ((𝜑 ∧ (𝑖 ∈ dom (𝐴 ++ 𝐵) ∧ 𝑗 ∈ dom (𝐴 ++ 𝐵))) → (((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗) → 𝑖 = 𝑗))
164	163	ralrimivva 3176	. 2 ⊢ (𝜑 → ∀𝑖 ∈ dom (𝐴 ++ 𝐵)∀𝑗 ∈ dom (𝐴 ++ 𝐵)(((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗) → 𝑖 = 𝑗))
165		dff13 7197	. 2 ⊢ ((𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)–1-1→𝑆 ↔ ((𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)⟶𝑆 ∧ ∀𝑖 ∈ dom (𝐴 ++ 𝐵)∀𝑗 ∈ dom (𝐴 ++ 𝐵)(((𝐴 ++ 𝐵)‘𝑖) = ((𝐴 ++ 𝐵)‘𝑗) → 𝑖 = 𝑗)))
166	7, 164, 165	sylanbrc 583	1 ⊢ (𝜑 → (𝐴 ++ 𝐵):dom (𝐴 ++ 𝐵)–1-1→𝑆)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 ∨ wo 847 = wceq 1541 ∈ wcel 2113 ∀wral 3048 ∩ cin 3897 ∅c0 4282 dom cdm 5621 ran crn 5622 Fun wfun 6483 ⟶wf 6485 –1-1→wf1 6486 ‘cfv 6489 (class class class)co 7355 ℂcc 11015 0cc0 11017 + caddc 11020 − cmin 11355 ℕ₀cn0 12392 ℤcz 12479 ..^cfzo 13561 ♯chash 14244 Word cword 14427 ++ cconcat 14484

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2705 ax-rep 5221 ax-sep 5238 ax-nul 5248 ax-pow 5307 ax-pr 5374 ax-un 7677 ax-cnex 11073 ax-resscn 11074 ax-1cn 11075 ax-icn 11076 ax-addcl 11077 ax-addrcl 11078 ax-mulcl 11079 ax-mulrcl 11080 ax-mulcom 11081 ax-addass 11082 ax-mulass 11083 ax-distr 11084 ax-i2m1 11085 ax-1ne0 11086 ax-1rid 11087 ax-rnegex 11088 ax-rrecex 11089 ax-cnre 11090 ax-pre-lttri 11091 ax-pre-lttrn 11092 ax-pre-ltadd 11093 ax-pre-mulgt0 11094

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2537 df-eu 2566 df-clab 2712 df-cleq 2725 df-clel 2808 df-nfc 2882 df-ne 2930 df-nel 3034 df-ral 3049 df-rex 3058 df-reu 3348 df-rab 3397 df-v 3439 df-sbc 3738 df-csb 3847 df-dif 3901 df-un 3903 df-in 3905 df-ss 3915 df-pss 3918 df-nul 4283 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-op 4584 df-uni 4861 df-int 4900 df-iun 4945 df-br 5096 df-opab 5158 df-mpt 5177 df-tr 5203 df-id 5516 df-eprel 5521 df-po 5529 df-so 5530 df-fr 5574 df-we 5576 df-xp 5627 df-rel 5628 df-cnv 5629 df-co 5630 df-dm 5631 df-rn 5632 df-res 5633 df-ima 5634 df-pred 6256 df-ord 6317 df-on 6318 df-lim 6319 df-suc 6320 df-iota 6445 df-fun 6491 df-fn 6492 df-f 6493 df-f1 6494 df-fo 6495 df-f1o 6496 df-fv 6497 df-riota 7312 df-ov 7358 df-oprab 7359 df-mpo 7360 df-om 7806 df-1st 7930 df-2nd 7931 df-frecs 8220 df-wrecs 8251 df-recs 8300 df-rdg 8338 df-1o 8394 df-er 8631 df-en 8880 df-dom 8881 df-sdom 8882 df-fin 8883 df-card 9843 df-pnf 11159 df-mnf 11160 df-xr 11161 df-ltxr 11162 df-le 11163 df-sub 11357 df-neg 11358 df-nn 12137 df-n0 12393 df-z 12480 df-uz 12743 df-fz 13415 df-fzo 13562 df-hash 14245 df-word 14428 df-concat 14485

This theorem is referenced by: cycpmco2f1 33134

W3C validator