| 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 |
. . . . . . . . . 10
⊢ (𝑥 =
(𝐹𝐿 ↾ 𝐴) → dom 𝑥 = dom (𝐹𝐿 ↾
𝐴)) |
| 6 | 5 | adantl 487 |
. . . . . . . . 9
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → dom 𝑥 = dom
(𝐹𝐿 ↾ 𝐴)) |
| 7 | | onss 7803 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ On → 𝐴 ⊆ On) |
| 8 | 1 | tfr1 8413 |
. . . . . . . . . . . . . 14
⊢
𝐹𝐿 Fn On |
| 9 | 8 | fndmi 6648 |
. . . . . . . . . . . . 13
⊢ dom
𝐹𝐿 = On |
| 10 | 9 | sseq2i 3938 |
. . . . . . . . . . . 12
⊢ (𝐴 ⊆ dom
𝐹𝐿 ↔ 𝐴 ⊆ On) |
| 11 | | ssdmres 6006 |
. . . . . . . . . . . 12
⊢ (𝐴 ⊆ dom
𝐹𝐿 ↔ dom (𝐹𝐿 ↾
𝐴) = 𝐴) |
| 12 | 10, 11 | bitr3i 280 |
. . . . . . . . . . 11
⊢ (𝐴 ⊆ On ↔ dom
(𝐹𝐿 ↾ 𝐴) = 𝐴) |
| 13 | 7, 12 | sylib 221 |
. . . . . . . . . 10
⊢ (𝐴 ∈ On → dom
(𝐹𝐿 ↾ 𝐴) = 𝐴) |
| 14 | 13 | ad2antrr 739 |
. . . . . . . . 9
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → dom
(𝐹𝐿 ↾ 𝐴) = 𝐴) |
| 15 | 6, 14 | eqtrd 2795 |
. . . . . . . 8
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → dom 𝑥 = 𝐴) |
| 16 | 15 | fveq2d 6894 |
. . . . . . 7
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾3‘dom 𝑥) = (𝐾3‘𝐴)) |
| 17 | | simplr 781 |
. . . . . . 7
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾3‘𝐴) ≠ ∅) |
| 18 | 16, 17 | eqnetrd 3022 |
. . . . . 6
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾3‘dom 𝑥) ≠ ∅) |
| 19 | 18 | neneqd 2960 |
. . . . 5
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → ¬
(𝐾3‘dom 𝑥) = ∅) |
| 20 | 19 | iffalsed 4492 |
. . . 4
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)) = (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)) |
| 21 | | simpr 490 |
. . . . . . . 8
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → 𝑥 =
(𝐹𝐿 ↾ 𝐴)) |
| 22 | 15 | fveq2d 6894 |
. . . . . . . 8
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾1‘dom 𝑥) = (𝐾1‘𝐴)) |
| 23 | 21, 22 | fveq12d 6897 |
. . . . . . 7
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → (𝑥‘(𝐾1‘dom 𝑥)) =
((𝐹𝐿 ↾ 𝐴)‘(𝐾1‘𝐴))) |
| 24 | | k39o 35968 |
. . . . . . . . . . . 12
⊢
(𝐾3‘𝐴) ∈ 9o |
| 25 | | 9on 35843 |
. . . . . . . . . . . . 13
⊢
9o ∈ On |
| 26 | 25 | oneli 6481 |
. . . . . . . . . . . 12
⊢
((𝐾3‘𝐴) ∈ 9o →
(𝐾3‘𝐴) ∈ On) |
| 27 | 24, 26 | ax-mp 5 |
. . . . . . . . . . 11
⊢
(𝐾3‘𝐴) ∈ On |
| 28 | | on0eln0 6423 |
. . . . . . . . . . 11
⊢
((𝐾3‘𝐴) ∈ On → (∅ ∈
(𝐾3‘𝐴) ↔ (𝐾3‘𝐴) ≠
∅)) |
| 29 | 27, 28 | ax-mp 5 |
. . . . . . . . . 10
⊢ (∅
∈ (𝐾3‘𝐴) ↔ (𝐾3‘𝐴) ≠ ∅) |
| 30 | | k3n0k1lt 35974 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ On ∧ ∅ ∈
(𝐾3‘𝐴)) → (𝐾1‘𝐴) ∈ 𝐴) |
| 31 | 29, 30 | sylan2br 607 |
. . . . . . . . 9
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) →
(𝐾1‘𝐴) ∈ 𝐴) |
| 32 | 31 | fvresd 6910 |
. . . . . . . 8
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) →
((𝐹𝐿 ↾ 𝐴)‘(𝐾1‘𝐴)) =
(𝐹𝐿‘(𝐾1‘𝐴))) |
| 33 | 32 | adantr 486 |
. . . . . . 7
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
((𝐹𝐿 ↾ 𝐴)‘(𝐾1‘𝐴)) =
(𝐹𝐿‘(𝐾1‘𝐴))) |
| 34 | 23, 33 | eqtrd 2795 |
. . . . . 6
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → (𝑥‘(𝐾1‘dom 𝑥)) =
(𝐹𝐿‘(𝐾1‘𝐴))) |
| 35 | 15 | fveq2d 6894 |
. . . . . . . 8
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
(𝐾2‘dom 𝑥) = (𝐾2‘𝐴)) |
| 36 | 21, 35 | fveq12d 6897 |
. . . . . . 7
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → (𝑥‘(𝐾2‘dom 𝑥)) =
((𝐹𝐿 ↾ 𝐴)‘(𝐾2‘𝐴))) |
| 37 | | k3n0k2lt 35975 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ On ∧ ∅ ∈
(𝐾3‘𝐴)) → (𝐾2‘𝐴) ∈ 𝐴) |
| 38 | 29, 37 | sylan2br 607 |
. . . . . . . . 9
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) →
(𝐾2‘𝐴) ∈ 𝐴) |
| 39 | 38 | fvresd 6910 |
. . . . . . . 8
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) →
((𝐹𝐿 ↾ 𝐴)‘(𝐾2‘𝐴)) =
(𝐹𝐿‘(𝐾2‘𝐴))) |
| 40 | 39 | adantr 486 |
. . . . . . 7
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
((𝐹𝐿 ↾ 𝐴)‘(𝐾2‘𝐴)) =
(𝐹𝐿‘(𝐾2‘𝐴))) |
| 41 | 36, 40 | eqtrd 2795 |
. . . . . 6
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → (𝑥‘(𝐾2‘dom 𝑥)) =
(𝐹𝐿‘(𝐾2‘𝐴))) |
| 42 | 16, 34, 41 | oteq123d 4865 |
. . . . 5
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉 =
〈(𝐾3‘𝐴),
(𝐹𝐿‘(𝐾1‘𝐴)),
(𝐹𝐿‘(𝐾2‘𝐴))〉) |
| 43 | 42 | fveq2d 6894 |
. . . 4
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) → (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉) = (ℱ
‘〈(𝐾3‘𝐴),
(𝐹𝐿‘(𝐾1‘𝐴)),
(𝐹𝐿‘(𝐾2‘𝐴))〉)) |
| 44 | 20, 43 | eqtrd 2795 |
. . 3
⊢ (((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) ∧ 𝑥 = (𝐹𝐿 ↾
𝐴)) →
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)) = (ℱ
‘〈(𝐾3‘𝐴),
(𝐹𝐿‘(𝐾1‘𝐴)),
(𝐹𝐿‘(𝐾2‘𝐴))〉)) |
| 45 | | fnfun 6644 |
. . . . . 6
⊢
(𝐹𝐿 Fn On → Fun
𝐹𝐿) |
| 46 | 8, 45 | ax-mp 5 |
. . . . 5
⊢ Fun
𝐹𝐿 |
| 47 | | resfunexg 7225 |
. . . . 5
⊢ ((Fun
𝐹𝐿 ∧ 𝐴 ∈ On) →
(𝐹𝐿 ↾ 𝐴) ∈ V) |
| 48 | 46, 47 | mpan 703 |
. . . 4
⊢ (𝐴 ∈ On →
(𝐹𝐿 ↾ 𝐴) ∈ V) |
| 49 | 48 | adantr 486 |
. . 3
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) →
(𝐹𝐿 ↾ 𝐴) ∈ V) |
| 50 | | fvexd 6905 |
. . 3
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) → (ℱ
‘〈(𝐾3‘𝐴),
(𝐹𝐿‘(𝐾1‘𝐴)),
(𝐹𝐿‘(𝐾2‘𝐴))〉) ∈
V) |
| 51 | 4, 44, 49, 50 | fvmptd2 7007 |
. 2
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) → ((𝑥 ∈ V ↦
if((𝐾3‘dom 𝑥) = ∅, ran 𝑥, (ℱ
‘〈(𝐾3‘dom 𝑥), (𝑥‘(𝐾1‘dom 𝑥)), (𝑥‘(𝐾2‘dom 𝑥))〉)))‘(𝐹𝐿
↾ 𝐴)) = (ℱ
‘〈(𝐾3‘𝐴),
(𝐹𝐿‘(𝐾1‘𝐴)),
(𝐹𝐿‘(𝐾2‘𝐴))〉)) |
| 52 | 3, 51 | eqtrd 2795 |
1
⊢ ((𝐴 ∈ On ∧
(𝐾3‘𝐴) ≠ ∅) →
(𝐹𝐿‘𝐴) = (ℱ
‘〈(𝐾3‘𝐴),
(𝐹𝐿‘(𝐾1‘𝐴)),
(𝐹𝐿‘(𝐾2‘𝐴))〉)) |