Theorem disjf1 45126

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 1912	. . . . . . 7 ⊢ Ⅎ𝑥 𝑦 ∈ 𝐴
3	1, 2	nfan 1897	. . . . . 6 ⊢ Ⅎ𝑥(𝜑 ∧ 𝑦 ∈ 𝐴)
4		nfcsb1v 3933	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵
5		nfcv 2903	. . . . . . 7 ⊢ Ⅎ𝑥𝑉
6	4, 5	nfel 2918	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉
7	3, 6	nfim 1894	. . . . 5 ⊢ Ⅎ𝑥((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
8		eleq1w 2822	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ↔ 𝑦 ∈ 𝐴))
9	8	anbi2d 630	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((𝜑 ∧ 𝑥 ∈ 𝐴) ↔ (𝜑 ∧ 𝑦 ∈ 𝐴)))
10		csbeq1a 3922	. . . . . . 7 ⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
11	10	eleq1d 2824	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝐵 ∈ 𝑉 ↔ ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉))
12	9, 11	imbi12d 344	. . . . 5 ⊢ (𝑥 = 𝑦 → (((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉) ↔ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)))
13		disjf1.b	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
14	7, 12, 13	chvarfv 2238	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
15	14	ralrimiva 3144	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉)
16		inidm 4235	. . . . . . . . 9 ⊢ (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = ⦋𝑦 / 𝑥⦌𝐵
17	16	eqcomi 2744	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑥⦌𝐵 = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵)
18	17	a1i 11	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵))
19		ineq2 4222	. . . . . . . 8 ⊢ (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵))
20	19	ad2antlr 727	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑦 / 𝑥⦌𝐵) = (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵))
21		disjf1.dj	. . . . . . . . . 10 ⊢ (𝜑 → Disj 𝑥 ∈ 𝐴 𝐵)
22		nfcv 2903	. . . . . . . . . . 11 ⊢ Ⅎ𝑤𝐵
23		nfcsb1v 3933	. . . . . . . . . . 11 ⊢ Ⅎ𝑥⦋𝑤 / 𝑥⦌𝐵
24		csbeq1a 3922	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → 𝐵 = ⦋𝑤 / 𝑥⦌𝐵)
25	22, 23, 24	cbvdisj 5125	. . . . . . . . . 10 ⊢ (Disj 𝑥 ∈ 𝐴 𝐵 ↔ Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
26	21, 25	sylib 218	. . . . . . . . 9 ⊢ (𝜑 → Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
27	26	ad3antrrr 730	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵)
28		simpllr 776	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴))
29		neqne 2946	. . . . . . . . 9 ⊢ (¬ 𝑦 = 𝑧 → 𝑦 ≠ 𝑧)
30	29	adantl 481	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → 𝑦 ≠ 𝑧)
31		csbeq1 3911	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → ⦋𝑤 / 𝑥⦌𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
32		csbeq1 3911	. . . . . . . . 9 ⊢ (𝑤 = 𝑧 → ⦋𝑤 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵)
33	31, 32	disji2 5132	. . . . . . . 8 ⊢ ((Disj 𝑤 ∈ 𝐴 ⦋𝑤 / 𝑥⦌𝐵 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ 𝑦 ≠ 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵) = ∅)
34	27, 28, 30, 33	syl3anc 1370	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → (⦋𝑦 / 𝑥⦌𝐵 ∩ ⦋𝑧 / 𝑥⦌𝐵) = ∅)
35	18, 20, 34	3eqtrd 2779	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 = ∅)
36		nfcv 2903	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥∅
37	4, 36	nfne 3041	. . . . . . . . . . 11 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 ≠ ∅
38	3, 37	nfim 1894	. . . . . . . . . 10 ⊢ Ⅎ𝑥((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
39	10	neeq1d 2998	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝐵 ≠ ∅ ↔ ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅))
40	9, 39	imbi12d 344	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≠ ∅) ↔ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)))
41		disjf1.n0	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≠ ∅)
42	38, 40, 41	chvarfv 2238	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
43	42	adantrr 717	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
44	43	ad2antrr 726	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ⦋𝑦 / 𝑥⦌𝐵 ≠ ∅)
45	44	neneqd 2943	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) ∧ ¬ 𝑦 = 𝑧) → ¬ ⦋𝑦 / 𝑥⦌𝐵 = ∅)
46	35, 45	condan 818	. . . . 5 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) ∧ ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵) → 𝑦 = 𝑧)
47	46	ex 412	. . . 4 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧))
48	47	ralrimivva 3200	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧))
49	15, 48	jca 511	. 2 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉 ∧ ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧)))
50		disjf1.f	. . . 4 ⊢ 𝐹 = (𝑥 ∈ 𝐴 ↦ 𝐵)
51		nfcv 2903	. . . . 5 ⊢ Ⅎ𝑦𝐵
52	51, 4, 10	cbvmpt 5259	. . . 4 ⊢ (𝑥 ∈ 𝐴 ↦ 𝐵) = (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵)
53	50, 52	eqtri 2763	. . 3 ⊢ 𝐹 = (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵)
54		csbeq1 3911	. . 3 ⊢ (𝑦 = 𝑧 → ⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵)
55	53, 54	f1mpt 7281	. 2 ⊢ (𝐹:𝐴–1-1→𝑉 ↔ (∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ 𝑉 ∧ ∀𝑦 ∈ 𝐴 ∀𝑧 ∈ 𝐴 (⦋𝑦 / 𝑥⦌𝐵 = ⦋𝑧 / 𝑥⦌𝐵 → 𝑦 = 𝑧)))
56	49, 55	sylibr 234	1 ⊢ (𝜑 → 𝐹:𝐴–1-1→𝑉)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1537  Ⅎwnf 1780   ∈ wcel 2106   ≠ wne 2938  ∀wral 3059  ⦋csb 3908   ∩ cin 3962  ∅c0 4339  Disj wdisj 5115   ↦ cmpt 5231  –1-1→wf1 6560

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pr 5438

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-rmo 3378  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-nul 4340  df-if 4532  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-disj 5116  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5583  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fv 6571

This theorem is referenced by:  disjf1o  45134  meadjiunlem  46421