Theorem disjf1 45630

Description: A 1 to 1 mapping built from disjoint, nonempty sets. (Contributed by Glauco Siliprandi, 17-Aug-2020.)

Hypotheses

Ref	Expression
disjf1.xph	⊢ Ⅎ𝑥𝜑
disjf1.f	⊢ 𝐹 = (𝑥 ∈ 𝐴 ↦ 𝐵)
disjf1.b	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
disjf1.n0	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≠ ∅)
disjf1.dj	⊢ (𝜑 → Disj 𝑥 ∈ 𝐴 𝐵)

Assertion

Ref	Expression
disjf1	⊢ (𝜑 → 𝐹:𝐴–1-1→𝑉)

Distinct variable groups:   𝑥,𝐴   𝑥,𝑉

Allowed substitution hints:   𝜑(𝑥)   𝐵(𝑥)   𝐹(𝑥)

Proof of Theorem disjf1

Dummy variables 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		disjf1.xph	. . . . . . 7 ⊢ Ⅎ𝑥𝜑
2		nfv 1921	. . . . . . 7 ⊢ Ⅎ𝑥 𝑦 ∈ 𝐴
3	1, 2	nfan 1906	. . . . . 6 ⊢ Ⅎ𝑥(𝜑 ∧ 𝑦 ∈ 𝐴)
4		nfcsb1v 3855	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵
5		nfcv 2901	. . . . . . 7 ⊢ Ⅎ𝑥𝑉
6	4, 5	nfel 2915	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉
7	3, 6	nfim 1903	. . . . 5 ⊢ Ⅎ𝑥((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
8		eleq1w 2822	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ↔ 𝑦 ∈ 𝐴))
9	8	anbi2d 636	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((𝜑 ∧ 𝑥 ∈ 𝐴) ↔ (𝜑 ∧ 𝑦 ∈ 𝐴)))
10		csbeq1a 3845	. . . . . . 7 ⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
11	10	eleq1d 2824	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝐵 ∈ 𝑉 ↔ ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉))
12	9, 11	imbi12d 345	. . . . 5 ⊢ (𝑥 = 𝑦 → (((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉) ↔ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)))
13		disjf1.b	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
14	7, 12, 13	chvarfv 2252	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
15	14	ralrimiva 3131	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
16		inidm 4155	. . . . . . . . 9 ⊢ (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = ⦋𝑦 / 𝑥⦌𝐵
17	16	eqcomi 2748	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑥⦌𝐵 = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵)
18	17	a1i 11	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵))
19		ineq2 4143	. . . . . . . 8 ⊢ (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵))
20	19	ad2antlr 733	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵))
21		disjf1.dj	. . . . . . . . . 10 ⊢ (𝜑 → Disj 𝑥 ∈ 𝐴 𝐵)
22		nfcv 2901	. . . . . . . . . . 11 ⊢ Ⅎ𝑤𝐵
23		nfcsb1v 3855	. . . . . . . . . . 11 ⊢ Ⅎ𝑥⦋𝑤 / 𝑥⦌𝐵
24		csbeq1a 3845	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → 𝐵 = ⦋𝑤 / 𝑥⦌𝐵)
25	22, 23, 24	cbvdisj 5049	. . . . . . . . . 10 ⊢ (Disj 𝑥 ∈ 𝐴 𝐵 ↔ Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
26	21, 25	sylib 219	. . . . . . . . 9 ⊢ (𝜑 → Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
27	26	ad3antrrr 736	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
28		simpllr 781	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴))
29		neqne 2942	. . . . . . . . 9 ⊢ (¬ 𝑦 = 𝑧 → 𝑦 ≠ 𝑧)
30	29	adantl 482	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → 𝑦 ≠ 𝑧)
31		csbeq1 3834	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → ⦋𝑤 / 𝑥⦌𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
32		csbeq1 3834	. . . . . . . . 9 ⊢ (𝑤 = 𝑧 → ⦋𝑤 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵)
33	31, 32	disji2 5056	. . . . . . . 8 ⊢ ((Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ 𝑦 ≠ 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵) = ∅)
34	27, 28, 30, 33	syl3anc 1379	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵) = ∅)
35	18, 20, 34	3eqtrd 2778	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 = ∅)
36		nfcv 2901	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥∅
37	4, 36	nfne 3035	. . . . . . . . . . 11 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 ≠ ∅
38	3, 37	nfim 1903	. . . . . . . . . 10 ⊢ Ⅎ𝑥((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
39	10	neeq1d 2993	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝐵 ≠ ∅ ↔ ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅))
40	9, 39	imbi12d 345	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≠ ∅) ↔ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)))
41		disjf1.n0	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≠ ∅)
42	38, 40, 41	chvarfv 2252	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
43	42	adantrr 723	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
44	43	ad2antrr 732	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
45	44	neneqd 2939	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ¬ ⦋𝑦 / 𝑥⦌𝐵 = ∅)
46	35, 45	condan 823	. . . . 5 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) → 𝑦 = 𝑧)
47	46	ex 413	. . . 4 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧))
48	47	ralrimivva 3182	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧))
49	15, 48	jca 516	. 2 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉 ∧ ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧)))
50		disjf1.f	. . . 4 ⊢ 𝐹 = (𝑥 ∈ 𝐴 ↦ 𝐵)
51		nfcv 2901	. . . . 5 ⊢ Ⅎ𝑦𝐵
52	51, 4, 10	cbvmpt 5174	. . . 4 ⊢ (𝑥 ∈ 𝐴 ↦ 𝐵) = (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵)
53	50, 52	eqtri 2762	. . 3 ⊢ 𝐹 = (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵)
54		csbeq1 3834	. . 3 ⊢ (𝑦 = 𝑧 → ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵)
55	53, 54	f1mpt 7205	. 2 ⊢ (𝐹:𝐴–1-1→𝑉 ↔ (∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉 ∧ ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧)))
56	49, 55	sylibr 235	1 ⊢ (𝜑 → 𝐹:𝐴–1-1→𝑉)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 396   = wceq 1547  Ⅎwnf 1790   ∈ wcel 2119   ≠ wne 2934  ∀wral 3053  ⦋csb 3831   ∩ cin 3882  ∅c0 4261  Disj wdisj 5039   ↦ cmpt 5153  –1-1→wf1 6482

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-sep 5218  ax-nul 5228  ax-pr 5362

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-disj 5040  df-br 5073  df-opab 5135  df-mpt 5154  df-id 5513  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fv 6493

This theorem is referenced by:  disjf1o  45638  meadjiunlem  46908