Metamath Proof Explorer


Theorem isf34lem4

Description: Lemma for isfin3-4 . (Contributed by Stefan O'Rear, 7-Nov-2014) (Revised by Mario Carneiro, 17-May-2015)

Ref Expression
Hypothesis compss.a 𝐹 = ( 𝑥 ∈ 𝒫 𝐴 ↦ ( 𝐴𝑥 ) )
Assertion isf34lem4 ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( 𝐹 𝑋 ) = ( 𝐹𝑋 ) )

Proof

Step Hyp Ref Expression
1 compss.a 𝐹 = ( 𝑥 ∈ 𝒫 𝐴 ↦ ( 𝐴𝑥 ) )
2 sspwuni ( 𝑋 ⊆ 𝒫 𝐴 𝑋𝐴 )
3 1 isf34lem1 ( ( 𝐴𝑉 𝑋𝐴 ) → ( 𝐹 𝑋 ) = ( 𝐴 𝑋 ) )
4 2 3 sylan2b ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) → ( 𝐹 𝑋 ) = ( 𝐴 𝑋 ) )
5 4 adantrr ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( 𝐹 𝑋 ) = ( 𝐴 𝑋 ) )
6 simplrr ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) → ¬ 𝑏 𝑋 )
7 simprl ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) → 𝑏𝐴 )
8 7 ad2antrr ( ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) ∧ ¬ 𝑏𝑎 ) → 𝑏𝐴 )
9 simpr ( ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) ∧ ¬ 𝑏𝑎 ) → ¬ 𝑏𝑎 )
10 8 9 eldifd ( ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) ∧ ¬ 𝑏𝑎 ) → 𝑏 ∈ ( 𝐴𝑎 ) )
11 simplrr ( ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) ∧ ¬ 𝑏𝑎 ) → ( 𝐴𝑎 ) ∈ 𝑋 )
12 elunii ( ( 𝑏 ∈ ( 𝐴𝑎 ) ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) → 𝑏 𝑋 )
13 10 11 12 syl2anc ( ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) ∧ ¬ 𝑏𝑎 ) → 𝑏 𝑋 )
14 13 ex ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) → ( ¬ 𝑏𝑎𝑏 𝑋 ) )
15 6 14 mt3d ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ ( 𝑎 ∈ 𝒫 𝐴 ∧ ( 𝐴𝑎 ) ∈ 𝑋 ) ) → 𝑏𝑎 )
16 15 expr ( ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) ∧ 𝑎 ∈ 𝒫 𝐴 ) → ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) )
17 16 ralrimiva ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) → ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) )
18 17 ex ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) → ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ) )
19 n0 ( 𝑋 ≠ ∅ ↔ ∃ 𝑐 𝑐𝑋 )
20 simpr ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) → 𝑋 ⊆ 𝒫 𝐴 )
21 20 sselda ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → 𝑐 ∈ 𝒫 𝐴 )
22 21 elpwid ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → 𝑐𝐴 )
23 dfss4 ( 𝑐𝐴 ↔ ( 𝐴 ∖ ( 𝐴𝑐 ) ) = 𝑐 )
24 22 23 sylib ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → ( 𝐴 ∖ ( 𝐴𝑐 ) ) = 𝑐 )
25 simpr ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → 𝑐𝑋 )
26 24 25 eqeltrd ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋 )
27 difss ( 𝐴𝑐 ) ⊆ 𝐴
28 elpw2g ( 𝐴𝑉 → ( ( 𝐴𝑐 ) ∈ 𝒫 𝐴 ↔ ( 𝐴𝑐 ) ⊆ 𝐴 ) )
29 27 28 mpbiri ( 𝐴𝑉 → ( 𝐴𝑐 ) ∈ 𝒫 𝐴 )
30 29 ad2antrr ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → ( 𝐴𝑐 ) ∈ 𝒫 𝐴 )
31 difeq2 ( 𝑎 = ( 𝐴𝑐 ) → ( 𝐴𝑎 ) = ( 𝐴 ∖ ( 𝐴𝑐 ) ) )
32 31 eleq1d ( 𝑎 = ( 𝐴𝑐 ) → ( ( 𝐴𝑎 ) ∈ 𝑋 ↔ ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋 ) )
33 eleq2 ( 𝑎 = ( 𝐴𝑐 ) → ( 𝑏𝑎𝑏 ∈ ( 𝐴𝑐 ) ) )
34 32 33 imbi12d ( 𝑎 = ( 𝐴𝑐 ) → ( ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ↔ ( ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋𝑏 ∈ ( 𝐴𝑐 ) ) ) )
35 34 rspcv ( ( 𝐴𝑐 ) ∈ 𝒫 𝐴 → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → ( ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋𝑏 ∈ ( 𝐴𝑐 ) ) ) )
36 30 35 syl ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → ( ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋𝑏 ∈ ( 𝐴𝑐 ) ) ) )
37 26 36 mpid ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → 𝑏 ∈ ( 𝐴𝑐 ) ) )
38 eldifi ( 𝑏 ∈ ( 𝐴𝑐 ) → 𝑏𝐴 )
39 37 38 syl6 ( ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) ∧ 𝑐𝑋 ) → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → 𝑏𝐴 ) )
40 39 ex ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) → ( 𝑐𝑋 → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → 𝑏𝐴 ) ) )
41 40 exlimdv ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) → ( ∃ 𝑐 𝑐𝑋 → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → 𝑏𝐴 ) ) )
42 19 41 syl5bi ( ( 𝐴𝑉𝑋 ⊆ 𝒫 𝐴 ) → ( 𝑋 ≠ ∅ → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → 𝑏𝐴 ) ) )
43 42 impr ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → 𝑏𝐴 ) )
44 eluni ( 𝑏 𝑋 ↔ ∃ 𝑐 ( 𝑏𝑐𝑐𝑋 ) )
45 29 ad2antrr ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝑐𝑐𝑋 ) ) → ( 𝐴𝑐 ) ∈ 𝒫 𝐴 )
46 26 adantlrr ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ 𝑐𝑋 ) → ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋 )
47 46 adantrl ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝑐𝑐𝑋 ) ) → ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋 )
48 elndif ( 𝑏𝑐 → ¬ 𝑏 ∈ ( 𝐴𝑐 ) )
49 48 ad2antrl ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝑐𝑐𝑋 ) ) → ¬ 𝑏 ∈ ( 𝐴𝑐 ) )
50 47 49 jcnd ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝑐𝑐𝑋 ) ) → ¬ ( ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋𝑏 ∈ ( 𝐴𝑐 ) ) )
51 34 notbid ( 𝑎 = ( 𝐴𝑐 ) → ( ¬ ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ↔ ¬ ( ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋𝑏 ∈ ( 𝐴𝑐 ) ) ) )
52 51 rspcev ( ( ( 𝐴𝑐 ) ∈ 𝒫 𝐴 ∧ ¬ ( ( 𝐴 ∖ ( 𝐴𝑐 ) ) ∈ 𝑋𝑏 ∈ ( 𝐴𝑐 ) ) ) → ∃ 𝑎 ∈ 𝒫 𝐴 ¬ ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) )
53 45 50 52 syl2anc ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝑐𝑐𝑋 ) ) → ∃ 𝑎 ∈ 𝒫 𝐴 ¬ ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) )
54 rexnal ( ∃ 𝑎 ∈ 𝒫 𝐴 ¬ ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ↔ ¬ ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) )
55 53 54 sylib ( ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) ∧ ( 𝑏𝑐𝑐𝑋 ) ) → ¬ ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) )
56 55 ex ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( ( 𝑏𝑐𝑐𝑋 ) → ¬ ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ) )
57 56 exlimdv ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( ∃ 𝑐 ( 𝑏𝑐𝑐𝑋 ) → ¬ ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ) )
58 44 57 syl5bi ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( 𝑏 𝑋 → ¬ ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ) )
59 58 con2d ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → ¬ 𝑏 𝑋 ) )
60 43 59 jcad ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) → ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ) )
61 18 60 impbid ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) ↔ ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) ) )
62 eldif ( 𝑏 ∈ ( 𝐴 𝑋 ) ↔ ( 𝑏𝐴 ∧ ¬ 𝑏 𝑋 ) )
63 vex 𝑏 ∈ V
64 63 elintrab ( 𝑏 { 𝑎 ∈ 𝒫 𝐴 ∣ ( 𝐴𝑎 ) ∈ 𝑋 } ↔ ∀ 𝑎 ∈ 𝒫 𝐴 ( ( 𝐴𝑎 ) ∈ 𝑋𝑏𝑎 ) )
65 61 62 64 3bitr4g ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( 𝑏 ∈ ( 𝐴 𝑋 ) ↔ 𝑏 { 𝑎 ∈ 𝒫 𝐴 ∣ ( 𝐴𝑎 ) ∈ 𝑋 } ) )
66 65 eqrdv ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( 𝐴 𝑋 ) = { 𝑎 ∈ 𝒫 𝐴 ∣ ( 𝐴𝑎 ) ∈ 𝑋 } )
67 5 66 eqtrd ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( 𝐹 𝑋 ) = { 𝑎 ∈ 𝒫 𝐴 ∣ ( 𝐴𝑎 ) ∈ 𝑋 } )
68 1 compss ( 𝐹𝑋 ) = { 𝑎 ∈ 𝒫 𝐴 ∣ ( 𝐴𝑎 ) ∈ 𝑋 }
69 68 inteqi ( 𝐹𝑋 ) = { 𝑎 ∈ 𝒫 𝐴 ∣ ( 𝐴𝑎 ) ∈ 𝑋 }
70 67 69 eqtr4di ( ( 𝐴𝑉 ∧ ( 𝑋 ⊆ 𝒫 𝐴𝑋 ≠ ∅ ) ) → ( 𝐹 𝑋 ) = ( 𝐹𝑋 ) )