Metamath Proof Explorer


Theorem disjf1

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

Ref Expression
Hypotheses disjf1.xph ⊢ Ⅎ x φ
disjf1.f ⊢ F = x ∈ A ⟼ B
disjf1.b ⊢ φ ∧ x ∈ A → B ∈ V
disjf1.n0 ⊢ φ ∧ x ∈ A → B ≠ ∅
disjf1.dj ⊢ φ → Disj x ∈ A B
Assertion disjf1 ⊢ φ → F : A ⟶ 1-1 V

Proof

Step Hyp Ref Expression
1 disjf1.xph ⊢ Ⅎ x φ
2 disjf1.f ⊢ F = x ∈ A ⟼ B
3 disjf1.b ⊢ φ ∧ x ∈ A → B ∈ V
4 disjf1.n0 ⊢ φ ∧ x ∈ A → B ≠ ∅
5 disjf1.dj ⊢ φ → Disj x ∈ A B
6 nfv ⊢ Ⅎ x y ∈ A
7 1 6 nfan ⊢ Ⅎ x φ ∧ y ∈ A
8 nfcsb1v ⊢ Ⅎ _ x ⦋ y / x⦌ B
9 nfcv ⊢ Ⅎ _ x V
10 8 9 nfel ⊢ Ⅎ x ⦋ y / x⦌ B ∈ V
11 7 10 nfim ⊢ Ⅎ x φ ∧ y ∈ A → ⦋ y / x⦌ B ∈ V
12 eleq1w ⊢ x = y → x ∈ A ↔ y ∈ A
13 12 anbi2d ⊢ x = y → φ ∧ x ∈ A ↔ φ ∧ y ∈ A
14 csbeq1a ⊢ x = y → B = ⦋ y / x⦌ B
15 14 eleq1d ⊢ x = y → B ∈ V ↔ ⦋ y / x⦌ B ∈ V
16 13 15 imbi12d ⊢ x = y → φ ∧ x ∈ A → B ∈ V ↔ φ ∧ y ∈ A → ⦋ y / x⦌ B ∈ V
17 11 16 3 chvarfv ⊢ φ ∧ y ∈ A → ⦋ y / x⦌ B ∈ V
18 17 ralrimiva ⊢ φ → ∀ y ∈ A ⦋ y / x⦌ B ∈ V
19 inidm ⊢ ⦋ y / x⦌ B ∩ ⦋ y / x⦌ B = ⦋ y / x⦌ B
20 19 eqcomi ⊢ ⦋ y / x⦌ B = ⦋ y / x⦌ B ∩ ⦋ y / x⦌ B
21 20 a1i ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → ⦋ y / x⦌ B = ⦋ y / x⦌ B ∩ ⦋ y / x⦌ B
22 ineq2 ⊢ ⦋ y / x⦌ B = ⦋ z / x⦌ B → ⦋ y / x⦌ B ∩ ⦋ y / x⦌ B = ⦋ y / x⦌ B ∩ ⦋ z / x⦌ B
23 22 ad2antlr ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → ⦋ y / x⦌ B ∩ ⦋ y / x⦌ B = ⦋ y / x⦌ B ∩ ⦋ z / x⦌ B
24 nfcv ⊢ Ⅎ _ w B
25 nfcsb1v ⊢ Ⅎ _ x ⦋ w / x⦌ B
26 csbeq1a ⊢ x = w → B = ⦋ w / x⦌ B
27 24 25 26 cbvdisj ⊢ Disj x ∈ A B ↔ Disj w ∈ A ⦋ w / x⦌ B
28 5 27 sylib ⊢ φ → Disj w ∈ A ⦋ w / x⦌ B
29 28 ad3antrrr ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → Disj w ∈ A ⦋ w / x⦌ B
30 simpllr ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → y ∈ A ∧ z ∈ A
31 neqne ⊢ ¬ y = z → y ≠ z
32 31 adantl ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → y ≠ z
33 csbeq1 ⊢ w = y → ⦋ w / x⦌ B = ⦋ y / x⦌ B
34 csbeq1 ⊢ w = z → ⦋ w / x⦌ B = ⦋ z / x⦌ B
35 33 34 disji2 ⊢ Disj w ∈ A ⦋ w / x⦌ B ∧ y ∈ A ∧ z ∈ A ∧ y ≠ z → ⦋ y / x⦌ B ∩ ⦋ z / x⦌ B = ∅
36 29 30 32 35 syl3anc ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → ⦋ y / x⦌ B ∩ ⦋ z / x⦌ B = ∅
37 21 23 36 3eqtrd ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → ⦋ y / x⦌ B = ∅
38 nfcv ⊢ Ⅎ _ x ∅
39 8 38 nfne ⊢ Ⅎ x ⦋ y / x⦌ B ≠ ∅
40 7 39 nfim ⊢ Ⅎ x φ ∧ y ∈ A → ⦋ y / x⦌ B ≠ ∅
41 14 neeq1d ⊢ x = y → B ≠ ∅ ↔ ⦋ y / x⦌ B ≠ ∅
42 13 41 imbi12d ⊢ x = y → φ ∧ x ∈ A → B ≠ ∅ ↔ φ ∧ y ∈ A → ⦋ y / x⦌ B ≠ ∅
43 40 42 4 chvarfv ⊢ φ ∧ y ∈ A → ⦋ y / x⦌ B ≠ ∅
44 43 adantrr ⊢ φ ∧ y ∈ A ∧ z ∈ A → ⦋ y / x⦌ B ≠ ∅
45 44 ad2antrr ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → ⦋ y / x⦌ B ≠ ∅
46 45 neneqd ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B ∧ ¬ y = z → ¬ ⦋ y / x⦌ B = ∅
47 37 46 condan ⊢ φ ∧ y ∈ A ∧ z ∈ A ∧ ⦋ y / x⦌ B = ⦋ z / x⦌ B → y = z
48 47 ex ⊢ φ ∧ y ∈ A ∧ z ∈ A → ⦋ y / x⦌ B = ⦋ z / x⦌ B → y = z
49 48 ralrimivva ⊢ φ → ∀ y ∈ A ∀ z ∈ A ⦋ y / x⦌ B = ⦋ z / x⦌ B → y = z
50 18 49 jca ⊢ φ → ∀ y ∈ A ⦋ y / x⦌ B ∈ V ∧ ∀ y ∈ A ∀ z ∈ A ⦋ y / x⦌ B = ⦋ z / x⦌ B → y = z
51 nfcv ⊢ Ⅎ _ y B
52 51 8 14 cbvmpt ⊢ x ∈ A ⟼ B = y ∈ A ⟼ ⦋ y / x⦌ B
53 2 52 eqtri ⊢ F = y ∈ A ⟼ ⦋ y / x⦌ B
54 csbeq1 ⊢ y = z → ⦋ y / x⦌ B = ⦋ z / x⦌ B
55 53 54 f1mpt ⊢ F : A ⟶ 1-1 V ↔ ∀ y ∈ A ⦋ y / x⦌ B ∈ V ∧ ∀ y ∈ A ∀ z ∈ A ⦋ y / x⦌ B = ⦋ z / x⦌ B → y = z
56 50 55 sylibr ⊢ φ → F : A ⟶ 1-1 V