| Step | Hyp | Ref
| Expression |
| 1 | | df-fnl 35947 |
. . . 4
⊢
𝐹𝐿 = recs((𝑥 ∈ V ↦
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)))) |
| 2 | 1 | tfr2 8414 |
. . 3
⊢ (𝐴 ∈ On →
(𝐹𝐿‘𝐴) = ((𝑥 ∈ V ↦
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)))‘(𝐹𝐿
↾ 𝐴))) |
| 3 | 2 | adantr 486 |
. 2
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) →
(𝐹𝐿‘𝐴) = ((𝑥 ∈ V ↦
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)))‘(𝐹𝐿
↾ 𝐴))) |
| 4 | | eqid 2760 |
. . 3
⊢ (𝑥 ∈ V ↦
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉))) = (𝑥 ∈ V ↦
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉))) |
| 5 | | dmeq 5886 |
. . . . . . . . 9
⊢ (𝑥 =
(𝐹𝐿 ↾ 𝐴) → dom 𝑥 = dom (𝐹𝐿 ↾
𝐴)) |
| 6 | 5 | adantl 487 |
. . . . . . . 8
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → dom 𝑥 = dom
(𝐹𝐿 ↾ 𝐴)) |
| 7 | | onss 7803 |
. . . . . . . . . 10
⊢ (𝐴 ∈ On → 𝐴 ⊆ On) |
| 8 | 1 | tfr1 8413 |
. . . . . . . . . . . . 13
⊢
𝐹𝐿 Fn On |
| 9 | 8 | fndmi 6648 |
. . . . . . . . . . . 12
⊢ dom
𝐹𝐿 = On |
| 10 | 9 | sseq2i 3938 |
. . . . . . . . . . 11
⊢ (𝐴 ⊆ dom
𝐹𝐿 ↔ 𝐴 ⊆ On) |
| 11 | | ssdmres 6006 |
. . . . . . . . . . 11
⊢ (𝐴 ⊆ dom
𝐹𝐿 ↔ dom (𝐹𝐿 ↾
𝐴) = 𝐴) |
| 12 | 10, 11 | bitr3i 280 |
. . . . . . . . . 10
⊢ (𝐴 ⊆ On ↔ dom
(𝐹𝐿 ↾ 𝐴) = 𝐴) |
| 13 | 7, 12 | sylib 221 |
. . . . . . . . 9
⊢ (𝐴 ∈ On → dom
(𝐹𝐿 ↾ 𝐴) = 𝐴) |
| 14 | 13 | ad2antrr 739 |
. . . . . . . 8
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → dom
(𝐹𝐿 ↾ 𝐴) = 𝐴) |
| 15 | 6, 14 | eqtrd 2795 |
. . . . . . 7
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → dom 𝑥 = 𝐴) |
| 16 | 15 | fveq2d 6894 |
. . . . . 6
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾3‘dom 𝑥) = (𝐾3‘𝐴)) |
| 17 | | simplr 781 |
. . . . . 6
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾3‘𝐴) = ∅) |
| 18 | 16, 17 | eqtrd 2795 |
. . . . 5
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾3‘dom 𝑥) = ∅) |
| 19 | 18 | iftrued 4489 |
. . . 4
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)) = ran 𝑥) |
| 20 | | rneq 5919 |
. . . . . 6
⊢ (𝑥 =
(𝐹𝐿 ↾ 𝐴) → ran 𝑥 = ran (𝐹𝐿 ↾
𝐴)) |
| 21 | | df-ima 5664 |
. . . . . 6
⊢
(𝐹𝐿 “ 𝐴) = ran (𝐹𝐿
↾ 𝐴) |
| 22 | 20, 21 | eqtr4di 2813 |
. . . . 5
⊢ (𝑥 =
(𝐹𝐿 ↾ 𝐴) → ran 𝑥 = (𝐹𝐿 “
𝐴)) |
| 23 | 22 | adantl 487 |
. . . 4
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → ran 𝑥 =
(𝐹𝐿 “ 𝐴)) |
| 24 | 19, 23 | eqtrd 2795 |
. . 3
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)) =
(𝐹𝐿 “ 𝐴)) |
| 25 | | fnfun 6644 |
. . . . . 6
⊢
(𝐹𝐿 Fn On → Fun
𝐹𝐿) |
| 26 | 8, 25 | ax-mp 5 |
. . . . 5
⊢ Fun
𝐹𝐿 |
| 27 | | resfunexg 7225 |
. . . . 5
⊢ ((Fun
𝐹𝐿 ∧ 𝐴 ∈ On) →
(𝐹𝐿 ↾ 𝐴) ∈ V) |
| 28 | 26, 27 | mpan 703 |
. . . 4
⊢ (𝐴 ∈ On →
(𝐹𝐿 ↾ 𝐴) ∈ V) |
| 29 | 28 | adantr 486 |
. . 3
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) →
(𝐹𝐿 ↾ 𝐴) ∈ V) |
| 30 | | funimaexg 6631 |
. . . . 5
⊢ ((Fun
𝐹𝐿 ∧ 𝐴 ∈ On) →
(𝐹𝐿 “ 𝐴) ∈ V) |
| 31 | 26, 30 | mpan 703 |
. . . 4
⊢ (𝐴 ∈ On →
(𝐹𝐿 “ 𝐴) ∈ V) |
| 32 | 31 | adantr 486 |
. . 3
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) →
(𝐹𝐿 “ 𝐴) ∈ V) |
| 33 | 4, 24, 29, 32 | fvmptd2 7007 |
. 2
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) → ((𝑥 ∈ V ↦
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)))‘(𝐹𝐿
↾ 𝐴)) =
(𝐹𝐿 “ 𝐴)) |
| 34 | 3, 33 | eqtrd 2795 |
1
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) = ∅) →
(𝐹𝐿‘𝐴) = (𝐹𝐿 “
𝐴)) |