Step | Hyp | Ref
| Expression |
1 | | dicval.i |
. . 3
⊢ 𝐼 = ((DIsoC‘𝐾)‘𝑊) |
2 | | dicval.l |
. . . . 5
⊢ ≤ =
(le‘𝐾) |
3 | | dicval.a |
. . . . 5
⊢ 𝐴 = (Atoms‘𝐾) |
4 | | dicval.h |
. . . . 5
⊢ 𝐻 = (LHyp‘𝐾) |
5 | 2, 3, 4 | dicffval 35481 |
. . . 4
⊢ (𝐾 ∈ 𝑉 → (DIsoC‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))}))) |
6 | 5 | fveq1d 6105 |
. . 3
⊢ (𝐾 ∈ 𝑉 → ((DIsoC‘𝐾)‘𝑊) = ((𝑤 ∈ 𝐻 ↦ (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))}))‘𝑊)) |
7 | 1, 6 | syl5eq 2656 |
. 2
⊢ (𝐾 ∈ 𝑉 → 𝐼 = ((𝑤 ∈ 𝐻 ↦ (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))}))‘𝑊)) |
8 | | breq2 4587 |
. . . . . 6
⊢ (𝑤 = 𝑊 → (𝑟 ≤ 𝑤 ↔ 𝑟 ≤ 𝑊)) |
9 | 8 | notbid 307 |
. . . . 5
⊢ (𝑤 = 𝑊 → (¬ 𝑟 ≤ 𝑤 ↔ ¬ 𝑟 ≤ 𝑊)) |
10 | 9 | rabbidv 3164 |
. . . 4
⊢ (𝑤 = 𝑊 → {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} = {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑊}) |
11 | | fveq2 6103 |
. . . . . . . . . 10
⊢ (𝑤 = 𝑊 → ((LTrn‘𝐾)‘𝑤) = ((LTrn‘𝐾)‘𝑊)) |
12 | | dicval.t |
. . . . . . . . . 10
⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊) |
13 | 11, 12 | syl6eqr 2662 |
. . . . . . . . 9
⊢ (𝑤 = 𝑊 → ((LTrn‘𝐾)‘𝑤) = 𝑇) |
14 | | fveq2 6103 |
. . . . . . . . . . . 12
⊢ (𝑤 = 𝑊 → ((oc‘𝐾)‘𝑤) = ((oc‘𝐾)‘𝑊)) |
15 | | dicval.p |
. . . . . . . . . . . 12
⊢ 𝑃 = ((oc‘𝐾)‘𝑊) |
16 | 14, 15 | syl6eqr 2662 |
. . . . . . . . . . 11
⊢ (𝑤 = 𝑊 → ((oc‘𝐾)‘𝑤) = 𝑃) |
17 | 16 | fveq2d 6107 |
. . . . . . . . . 10
⊢ (𝑤 = 𝑊 → (𝑔‘((oc‘𝐾)‘𝑤)) = (𝑔‘𝑃)) |
18 | 17 | eqeq1d 2612 |
. . . . . . . . 9
⊢ (𝑤 = 𝑊 → ((𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞 ↔ (𝑔‘𝑃) = 𝑞)) |
19 | 13, 18 | riotaeqbidv 6514 |
. . . . . . . 8
⊢ (𝑤 = 𝑊 → (℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞) = (℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)) |
20 | 19 | fveq2d 6107 |
. . . . . . 7
⊢ (𝑤 = 𝑊 → (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞))) |
21 | 20 | eqeq2d 2620 |
. . . . . 6
⊢ (𝑤 = 𝑊 → (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ↔ 𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)))) |
22 | | fveq2 6103 |
. . . . . . . 8
⊢ (𝑤 = 𝑊 → ((TEndo‘𝐾)‘𝑤) = ((TEndo‘𝐾)‘𝑊)) |
23 | | dicval.e |
. . . . . . . 8
⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊) |
24 | 22, 23 | syl6eqr 2662 |
. . . . . . 7
⊢ (𝑤 = 𝑊 → ((TEndo‘𝐾)‘𝑤) = 𝐸) |
25 | 24 | eleq2d 2673 |
. . . . . 6
⊢ (𝑤 = 𝑊 → (𝑠 ∈ ((TEndo‘𝐾)‘𝑤) ↔ 𝑠 ∈ 𝐸)) |
26 | 21, 25 | anbi12d 743 |
. . . . 5
⊢ (𝑤 = 𝑊 → ((𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤)) ↔ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)) ∧ 𝑠 ∈ 𝐸))) |
27 | 26 | opabbidv 4648 |
. . . 4
⊢ (𝑤 = 𝑊 → {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))} = {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)) ∧ 𝑠 ∈ 𝐸)}) |
28 | 10, 27 | mpteq12dv 4663 |
. . 3
⊢ (𝑤 = 𝑊 → (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))}) = (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑊} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)) ∧ 𝑠 ∈ 𝐸)})) |
29 | | eqid 2610 |
. . 3
⊢ (𝑤 ∈ 𝐻 ↦ (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))})) = (𝑤 ∈ 𝐻 ↦ (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))})) |
30 | | fvex 6113 |
. . . . 5
⊢
(Atoms‘𝐾)
∈ V |
31 | 3, 30 | eqeltri 2684 |
. . . 4
⊢ 𝐴 ∈ V |
32 | 31 | mptrabex 6392 |
. . 3
⊢ (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑊} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)) ∧ 𝑠 ∈ 𝐸)}) ∈ V |
33 | 28, 29, 32 | fvmpt 6191 |
. 2
⊢ (𝑊 ∈ 𝐻 → ((𝑤 ∈ 𝐻 ↦ (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑤} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ ((LTrn‘𝐾)‘𝑤)(𝑔‘((oc‘𝐾)‘𝑤)) = 𝑞)) ∧ 𝑠 ∈ ((TEndo‘𝐾)‘𝑤))}))‘𝑊) = (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑊} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)) ∧ 𝑠 ∈ 𝐸)})) |
34 | 7, 33 | sylan9eq 2664 |
1
⊢ ((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) → 𝐼 = (𝑞 ∈ {𝑟 ∈ 𝐴 ∣ ¬ 𝑟 ≤ 𝑊} ↦ {〈𝑓, 𝑠〉 ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑞)) ∧ 𝑠 ∈ 𝐸)})) |