Theorem disjf1 45228

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 1915	. . . . . . 7 ⊢ Ⅎ𝑥 𝑦 ∈ 𝐴
3	1, 2	nfan 1900	. . . . . 6 ⊢ Ⅎ𝑥(𝜑 ∧ 𝑦 ∈ 𝐴)
4		nfcsb1v 3869	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵
5		nfcv 2894	. . . . . . 7 ⊢ Ⅎ𝑥𝑉
6	4, 5	nfel 2909	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉
7	3, 6	nfim 1897	. . . . 5 ⊢ Ⅎ𝑥((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
8		eleq1w 2814	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ↔ 𝑦 ∈ 𝐴))
9	8	anbi2d 630	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((𝜑 ∧ 𝑥 ∈ 𝐴) ↔ (𝜑 ∧ 𝑦 ∈ 𝐴)))
10		csbeq1a 3859	. . . . . . 7 ⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
11	10	eleq1d 2816	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝐵 ∈ 𝑉 ↔ ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉))
12	9, 11	imbi12d 344	. . . . 5 ⊢ (𝑥 = 𝑦 → (((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉) ↔ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)))
13		disjf1.b	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
14	7, 12, 13	chvarfv 2243	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
15	14	ralrimiva 3124	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
16		inidm 4174	. . . . . . . . 9 ⊢ (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = ⦋𝑦 / 𝑥⦌𝐵
17	16	eqcomi 2740	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑥⦌𝐵 = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵)
18	17	a1i 11	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵))
19		ineq2 4161	. . . . . . . 8 ⊢ (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵))
20	19	ad2antlr 727	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵))
21		disjf1.dj	. . . . . . . . . 10 ⊢ (𝜑 → Disj 𝑥 ∈ 𝐴 𝐵)
22		nfcv 2894	. . . . . . . . . . 11 ⊢ Ⅎ𝑤𝐵
23		nfcsb1v 3869	. . . . . . . . . . 11 ⊢ Ⅎ𝑥⦋𝑤 / 𝑥⦌𝐵
24		csbeq1a 3859	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → 𝐵 = ⦋𝑤 / 𝑥⦌𝐵)
25	22, 23, 24	cbvdisj 5066	. . . . . . . . . 10 ⊢ (Disj 𝑥 ∈ 𝐴 𝐵 ↔ Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
26	21, 25	sylib 218	. . . . . . . . 9 ⊢ (𝜑 → Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
27	26	ad3antrrr 730	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
28		simpllr 775	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴))
29		neqne 2936	. . . . . . . . 9 ⊢ (¬ 𝑦 = 𝑧 → 𝑦 ≠ 𝑧)
30	29	adantl 481	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → 𝑦 ≠ 𝑧)
31		csbeq1 3848	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → ⦋𝑤 / 𝑥⦌𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
32		csbeq1 3848	. . . . . . . . 9 ⊢ (𝑤 = 𝑧 → ⦋𝑤 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵)
33	31, 32	disji2 5073	. . . . . . . 8 ⊢ ((Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ 𝑦 ≠ 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵) = ∅)
34	27, 28, 30, 33	syl3anc 1373	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵) = ∅)
35	18, 20, 34	3eqtrd 2770	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 = ∅)
36		nfcv 2894	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥∅
37	4, 36	nfne 3029	. . . . . . . . . . 11 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 ≠ ∅
38	3, 37	nfim 1897	. . . . . . . . . 10 ⊢ Ⅎ𝑥((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
39	10	neeq1d 2987	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝐵 ≠ ∅ ↔ ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅))
40	9, 39	imbi12d 344	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≠ ∅) ↔ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)))
41		disjf1.n0	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≠ ∅)
42	38, 40, 41	chvarfv 2243	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
43	42	adantrr 717	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
44	43	ad2antrr 726	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
45	44	neneqd 2933	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ¬ ⦋𝑦 / 𝑥⦌𝐵 = ∅)
46	35, 45	condan 817	. . . . 5 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) → 𝑦 = 𝑧)
47	46	ex 412	. . . 4 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧))
48	47	ralrimivva 3175	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧))
49	15, 48	jca 511	. 2 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉 ∧ ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧)))
50		disjf1.f	. . . 4 ⊢ 𝐹 = (𝑥 ∈ 𝐴 ↦ 𝐵)
51		nfcv 2894	. . . . 5 ⊢ Ⅎ𝑦𝐵
52	51, 4, 10	cbvmpt 5191	. . . 4 ⊢ (𝑥 ∈ 𝐴 ↦ 𝐵) = (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵)
53	50, 52	eqtri 2754	. . 3 ⊢ 𝐹 = (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵)
54		csbeq1 3848	. . 3 ⊢ (𝑦 = 𝑧 → ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵)
55	53, 54	f1mpt 7195	. 2 ⊢ (𝐹:𝐴–1-1→𝑉 ↔ (∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉 ∧ ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧)))
56	49, 55	sylibr 234	1 ⊢ (𝜑 → 𝐹:𝐴–1-1→𝑉)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1541  Ⅎwnf 1784   ∈ wcel 2111   ≠ wne 2928  ∀wral 3047  ⦋csb 3845   ∩ cin 3896  ∅c0 4280  Disj wdisj 5056   ↦ cmpt 5170  –1-1→wf1 6478

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 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-sep 5232  ax-nul 5242  ax-pr 5368

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-ral 3048  df-rex 3057  df-rmo 3346  df-rab 3396  df-v 3438  df-sbc 3737  df-csb 3846  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4281  df-if 4473  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-disj 5057  df-br 5090  df-opab 5152  df-mpt 5171  df-id 5509  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fv 6489

This theorem is referenced by:  disjf1o  45236  meadjiunlem  46511