Metamath Proof Explorer


Theorem setrec2lem2

Description: Lemma for setrec2 . The functional part of F is a function. (Contributed by Emmett Weisz, 6-Mar-2021) (New usage is discouraged.)

Ref Expression
Assertion setrec2lem2 ⊢ Fun ⁡ F ↾ x | ∃! y x F y

Proof

Step Hyp Ref Expression
1 relres ⊢ Rel ⁡ F ↾ x | ∃! y x F y
2 fvex ⊢ F ⁡ x ∈ V
3 eqeq2 ⊢ z = F ⁡ x → y = z ↔ y = F ⁡ x
4 3 imbi2d ⊢ z = F ⁡ x → x F ↾ x | ∃! y x F y y → y = z ↔ x F ↾ x | ∃! y x F y y → y = F ⁡ x
5 4 albidv ⊢ z = F ⁡ x → ∀ y x F ↾ x | ∃! y x F y y → y = z ↔ ∀ y x F ↾ x | ∃! y x F y y → y = F ⁡ x
6 2 5 spcev ⊢ ∀ y x F ↾ x | ∃! y x F y y → y = F ⁡ x → ∃ z ∀ y x F ↾ x | ∃! y x F y y → y = z
7 vex ⊢ y ∈ V
8 7 brresi ⊢ x F ↾ x | ∃! y x F y y ↔ x ∈ x | ∃! y x F y ∧ x F y
9 abid ⊢ x ∈ x | ∃! y x F y ↔ ∃! y x F y
10 tz6.12-1 ⊢ x F y ∧ ∃! y x F y → F ⁡ x = y
11 10 ancoms ⊢ ∃! y x F y ∧ x F y → F ⁡ x = y
12 9 11 sylanb ⊢ x ∈ x | ∃! y x F y ∧ x F y → F ⁡ x = y
13 12 eqcomd ⊢ x ∈ x | ∃! y x F y ∧ x F y → y = F ⁡ x
14 8 13 sylbi ⊢ x F ↾ x | ∃! y x F y y → y = F ⁡ x
15 6 14 mpg ⊢ ∃ z ∀ y x F ↾ x | ∃! y x F y y → y = z
16 15 ax-gen ⊢ ∀ x ∃ z ∀ y x F ↾ x | ∃! y x F y y → y = z
17 nfcv ⊢ Ⅎ _ x F
18 nfab1 ⊢ Ⅎ _ x x | ∃! y x F y
19 17 18 nfres ⊢ Ⅎ _ x F ↾ x | ∃! y x F y
20 nfcv ⊢ Ⅎ _ y F
21 nfeu1 ⊢ Ⅎ y ∃! y x F y
22 21 nfab ⊢ Ⅎ _ y x | ∃! y x F y
23 20 22 nfres ⊢ Ⅎ _ y F ↾ x | ∃! y x F y
24 nfcv ⊢ Ⅎ _ z F ↾ x | ∃! y x F y
25 19 23 24 dffun3f ⊢ Fun ⁡ F ↾ x | ∃! y x F y ↔ Rel ⁡ F ↾ x | ∃! y x F y ∧ ∀ x ∃ z ∀ y x F ↾ x | ∃! y x F y y → y = z
26 1 16 25 mpbir2an ⊢ Fun ⁡ F ↾ x | ∃! y x F y