MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  fta1blem Structured version   Visualization version   GIF version

Theorem fta1blem 25439
Description: Lemma for fta1b 25440. (Contributed by Mario Carneiro, 14-Jun-2015.)
Hypotheses
Ref Expression
fta1b.p 𝑃 = (Poly1𝑅)
fta1b.b 𝐵 = (Base‘𝑃)
fta1b.d 𝐷 = ( deg1𝑅)
fta1b.o 𝑂 = (eval1𝑅)
fta1b.w 𝑊 = (0g𝑅)
fta1b.z 0 = (0g𝑃)
fta1blem.k 𝐾 = (Base‘𝑅)
fta1blem.t × = (.r𝑅)
fta1blem.x 𝑋 = (var1𝑅)
fta1blem.s · = ( ·𝑠𝑃)
fta1blem.1 (𝜑𝑅 ∈ CRing)
fta1blem.2 (𝜑𝑀𝐾)
fta1blem.3 (𝜑𝑁𝐾)
fta1blem.4 (𝜑 → (𝑀 × 𝑁) = 𝑊)
fta1blem.5 (𝜑𝑀𝑊)
fta1blem.6 (𝜑 → ((𝑀 · 𝑋) ∈ (𝐵 ∖ { 0 }) → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ≤ (𝐷‘(𝑀 · 𝑋))))
Assertion
Ref Expression
fta1blem (𝜑𝑁 = 𝑊)

Proof of Theorem fta1blem
StepHypRef Expression
1 fta1blem.3 . . . 4 (𝜑𝑁𝐾)
2 fta1b.o . . . . . . 7 𝑂 = (eval1𝑅)
3 fta1b.p . . . . . . 7 𝑃 = (Poly1𝑅)
4 fta1blem.k . . . . . . 7 𝐾 = (Base‘𝑅)
5 fta1b.b . . . . . . 7 𝐵 = (Base‘𝑃)
6 fta1blem.1 . . . . . . 7 (𝜑𝑅 ∈ CRing)
7 fta1blem.x . . . . . . . 8 𝑋 = (var1𝑅)
82, 7, 4, 3, 5, 6, 1evl1vard 21609 . . . . . . 7 (𝜑 → (𝑋𝐵 ∧ ((𝑂𝑋)‘𝑁) = 𝑁))
9 fta1blem.2 . . . . . . 7 (𝜑𝑀𝐾)
10 fta1blem.s . . . . . . 7 · = ( ·𝑠𝑃)
11 fta1blem.t . . . . . . 7 × = (.r𝑅)
122, 3, 4, 5, 6, 1, 8, 9, 10, 11evl1vsd 21616 . . . . . 6 (𝜑 → ((𝑀 · 𝑋) ∈ 𝐵 ∧ ((𝑂‘(𝑀 · 𝑋))‘𝑁) = (𝑀 × 𝑁)))
1312simprd 497 . . . . 5 (𝜑 → ((𝑂‘(𝑀 · 𝑋))‘𝑁) = (𝑀 × 𝑁))
14 fta1blem.4 . . . . 5 (𝜑 → (𝑀 × 𝑁) = 𝑊)
1513, 14eqtrd 2777 . . . 4 (𝜑 → ((𝑂‘(𝑀 · 𝑋))‘𝑁) = 𝑊)
16 eqid 2737 . . . . . . 7 (𝑅s 𝐾) = (𝑅s 𝐾)
17 eqid 2737 . . . . . . 7 (Base‘(𝑅s 𝐾)) = (Base‘(𝑅s 𝐾))
184fvexi 6844 . . . . . . . 8 𝐾 ∈ V
1918a1i 11 . . . . . . 7 (𝜑𝐾 ∈ V)
202, 3, 16, 4evl1rhm 21604 . . . . . . . . . 10 (𝑅 ∈ CRing → 𝑂 ∈ (𝑃 RingHom (𝑅s 𝐾)))
216, 20syl 17 . . . . . . . . 9 (𝜑𝑂 ∈ (𝑃 RingHom (𝑅s 𝐾)))
225, 17rhmf 20066 . . . . . . . . 9 (𝑂 ∈ (𝑃 RingHom (𝑅s 𝐾)) → 𝑂:𝐵⟶(Base‘(𝑅s 𝐾)))
2321, 22syl 17 . . . . . . . 8 (𝜑𝑂:𝐵⟶(Base‘(𝑅s 𝐾)))
2412simpld 496 . . . . . . . 8 (𝜑 → (𝑀 · 𝑋) ∈ 𝐵)
2523, 24ffvelcdmd 7023 . . . . . . 7 (𝜑 → (𝑂‘(𝑀 · 𝑋)) ∈ (Base‘(𝑅s 𝐾)))
2616, 4, 17, 6, 19, 25pwselbas 17298 . . . . . 6 (𝜑 → (𝑂‘(𝑀 · 𝑋)):𝐾𝐾)
2726ffnd 6657 . . . . 5 (𝜑 → (𝑂‘(𝑀 · 𝑋)) Fn 𝐾)
28 fniniseg 6998 . . . . 5 ((𝑂‘(𝑀 · 𝑋)) Fn 𝐾 → (𝑁 ∈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ↔ (𝑁𝐾 ∧ ((𝑂‘(𝑀 · 𝑋))‘𝑁) = 𝑊)))
2927, 28syl 17 . . . 4 (𝜑 → (𝑁 ∈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ↔ (𝑁𝐾 ∧ ((𝑂‘(𝑀 · 𝑋))‘𝑁) = 𝑊)))
301, 15, 29mpbir2and 711 . . 3 (𝜑𝑁 ∈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
31 fvex 6843 . . . . . . . 8 (𝑂‘(𝑀 · 𝑋)) ∈ V
3231cnvex 7845 . . . . . . 7 (𝑂‘(𝑀 · 𝑋)) ∈ V
3332imaex 7836 . . . . . 6 ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ V
3433a1i 11 . . . . 5 (𝜑 → ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ V)
35 1nn0 12355 . . . . . 6 1 ∈ ℕ0
3635a1i 11 . . . . 5 (𝜑 → 1 ∈ ℕ0)
37 crngring 19890 . . . . . . . . . . . . 13 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
386, 37syl 17 . . . . . . . . . . . 12 (𝜑𝑅 ∈ Ring)
397, 3, 5vr1cl 21494 . . . . . . . . . . . 12 (𝑅 ∈ Ring → 𝑋𝐵)
4038, 39syl 17 . . . . . . . . . . 11 (𝜑𝑋𝐵)
41 eqid 2737 . . . . . . . . . . . . 13 (mulGrp‘𝑃) = (mulGrp‘𝑃)
4241, 5mgpbas 19821 . . . . . . . . . . . 12 𝐵 = (Base‘(mulGrp‘𝑃))
43 eqid 2737 . . . . . . . . . . . 12 (.g‘(mulGrp‘𝑃)) = (.g‘(mulGrp‘𝑃))
4442, 43mulg1 18808 . . . . . . . . . . 11 (𝑋𝐵 → (1(.g‘(mulGrp‘𝑃))𝑋) = 𝑋)
4540, 44syl 17 . . . . . . . . . 10 (𝜑 → (1(.g‘(mulGrp‘𝑃))𝑋) = 𝑋)
4645oveq2d 7358 . . . . . . . . 9 (𝜑 → (𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)) = (𝑀 · 𝑋))
47 fta1blem.5 . . . . . . . . . . 11 (𝜑𝑀𝑊)
48 fta1b.w . . . . . . . . . . . . 13 𝑊 = (0g𝑅)
4948, 4, 3, 7, 10, 41, 43coe1tmfv1 21551 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝑀𝐾 ∧ 1 ∈ ℕ0) → ((coe1‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)))‘1) = 𝑀)
5038, 9, 36, 49syl3anc 1371 . . . . . . . . . . 11 (𝜑 → ((coe1‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)))‘1) = 𝑀)
51 fta1b.z . . . . . . . . . . . . . . 15 0 = (0g𝑃)
523, 51, 48coe1z 21540 . . . . . . . . . . . . . 14 (𝑅 ∈ Ring → (coe10 ) = (ℕ0 × {𝑊}))
5338, 52syl 17 . . . . . . . . . . . . 13 (𝜑 → (coe10 ) = (ℕ0 × {𝑊}))
5453fveq1d 6832 . . . . . . . . . . . 12 (𝜑 → ((coe10 )‘1) = ((ℕ0 × {𝑊})‘1))
5548fvexi 6844 . . . . . . . . . . . . . 14 𝑊 ∈ V
5655fvconst2 7140 . . . . . . . . . . . . 13 (1 ∈ ℕ0 → ((ℕ0 × {𝑊})‘1) = 𝑊)
5735, 56ax-mp 5 . . . . . . . . . . . 12 ((ℕ0 × {𝑊})‘1) = 𝑊
5854, 57eqtrdi 2793 . . . . . . . . . . 11 (𝜑 → ((coe10 )‘1) = 𝑊)
5947, 50, 583netr4d 3019 . . . . . . . . . 10 (𝜑 → ((coe1‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)))‘1) ≠ ((coe10 )‘1))
60 fveq2 6830 . . . . . . . . . . . 12 ((𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)) = 0 → (coe1‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋))) = (coe10 ))
6160fveq1d 6832 . . . . . . . . . . 11 ((𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)) = 0 → ((coe1‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)))‘1) = ((coe10 )‘1))
6261necon3i 2974 . . . . . . . . . 10 (((coe1‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)))‘1) ≠ ((coe10 )‘1) → (𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)) ≠ 0 )
6359, 62syl 17 . . . . . . . . 9 (𝜑 → (𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋)) ≠ 0 )
6446, 63eqnetrrd 3010 . . . . . . . 8 (𝜑 → (𝑀 · 𝑋) ≠ 0 )
65 eldifsn 4739 . . . . . . . 8 ((𝑀 · 𝑋) ∈ (𝐵 ∖ { 0 }) ↔ ((𝑀 · 𝑋) ∈ 𝐵 ∧ (𝑀 · 𝑋) ≠ 0 ))
6624, 64, 65sylanbrc 584 . . . . . . 7 (𝜑 → (𝑀 · 𝑋) ∈ (𝐵 ∖ { 0 }))
67 fta1blem.6 . . . . . . 7 (𝜑 → ((𝑀 · 𝑋) ∈ (𝐵 ∖ { 0 }) → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ≤ (𝐷‘(𝑀 · 𝑋))))
6866, 67mpd 15 . . . . . 6 (𝜑 → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ≤ (𝐷‘(𝑀 · 𝑋)))
6946fveq2d 6834 . . . . . . 7 (𝜑 → (𝐷‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋))) = (𝐷‘(𝑀 · 𝑋)))
70 fta1b.d . . . . . . . . 9 𝐷 = ( deg1𝑅)
7170, 4, 3, 7, 10, 41, 43, 48deg1tm 25389 . . . . . . . 8 ((𝑅 ∈ Ring ∧ (𝑀𝐾𝑀𝑊) ∧ 1 ∈ ℕ0) → (𝐷‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋))) = 1)
7238, 9, 47, 36, 71syl121anc 1375 . . . . . . 7 (𝜑 → (𝐷‘(𝑀 · (1(.g‘(mulGrp‘𝑃))𝑋))) = 1)
7369, 72eqtr3d 2779 . . . . . 6 (𝜑 → (𝐷‘(𝑀 · 𝑋)) = 1)
7468, 73breqtrd 5123 . . . . 5 (𝜑 → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ≤ 1)
75 hashbnd 14156 . . . . 5 ((((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ V ∧ 1 ∈ ℕ0 ∧ (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ≤ 1) → ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ Fin)
7634, 36, 74, 75syl3anc 1371 . . . 4 (𝜑 → ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ Fin)
774, 48ring0cl 19903 . . . . . . 7 (𝑅 ∈ Ring → 𝑊𝐾)
7838, 77syl 17 . . . . . 6 (𝜑𝑊𝐾)
79 eqid 2737 . . . . . . . . . . . . 13 (algSc‘𝑃) = (algSc‘𝑃)
803, 79, 4, 5ply1sclf 21562 . . . . . . . . . . . 12 (𝑅 ∈ Ring → (algSc‘𝑃):𝐾𝐵)
8138, 80syl 17 . . . . . . . . . . 11 (𝜑 → (algSc‘𝑃):𝐾𝐵)
8281, 9ffvelcdmd 7023 . . . . . . . . . 10 (𝜑 → ((algSc‘𝑃)‘𝑀) ∈ 𝐵)
83 eqid 2737 . . . . . . . . . . 11 (.r𝑃) = (.r𝑃)
84 eqid 2737 . . . . . . . . . . 11 (.r‘(𝑅s 𝐾)) = (.r‘(𝑅s 𝐾))
855, 83, 84rhmmul 20067 . . . . . . . . . 10 ((𝑂 ∈ (𝑃 RingHom (𝑅s 𝐾)) ∧ ((algSc‘𝑃)‘𝑀) ∈ 𝐵𝑋𝐵) → (𝑂‘(((algSc‘𝑃)‘𝑀)(.r𝑃)𝑋)) = ((𝑂‘((algSc‘𝑃)‘𝑀))(.r‘(𝑅s 𝐾))(𝑂𝑋)))
8621, 82, 40, 85syl3anc 1371 . . . . . . . . 9 (𝜑 → (𝑂‘(((algSc‘𝑃)‘𝑀)(.r𝑃)𝑋)) = ((𝑂‘((algSc‘𝑃)‘𝑀))(.r‘(𝑅s 𝐾))(𝑂𝑋)))
873ply1assa 21476 . . . . . . . . . . . 12 (𝑅 ∈ CRing → 𝑃 ∈ AssAlg)
886, 87syl 17 . . . . . . . . . . 11 (𝜑𝑃 ∈ AssAlg)
893ply1sca 21530 . . . . . . . . . . . . . . 15 (𝑅 ∈ CRing → 𝑅 = (Scalar‘𝑃))
906, 89syl 17 . . . . . . . . . . . . . 14 (𝜑𝑅 = (Scalar‘𝑃))
9190fveq2d 6834 . . . . . . . . . . . . 13 (𝜑 → (Base‘𝑅) = (Base‘(Scalar‘𝑃)))
924, 91eqtrid 2789 . . . . . . . . . . . 12 (𝜑𝐾 = (Base‘(Scalar‘𝑃)))
939, 92eleqtrd 2840 . . . . . . . . . . 11 (𝜑𝑀 ∈ (Base‘(Scalar‘𝑃)))
94 eqid 2737 . . . . . . . . . . . 12 (Scalar‘𝑃) = (Scalar‘𝑃)
95 eqid 2737 . . . . . . . . . . . 12 (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
9679, 94, 95, 5, 83, 10asclmul1 21196 . . . . . . . . . . 11 ((𝑃 ∈ AssAlg ∧ 𝑀 ∈ (Base‘(Scalar‘𝑃)) ∧ 𝑋𝐵) → (((algSc‘𝑃)‘𝑀)(.r𝑃)𝑋) = (𝑀 · 𝑋))
9788, 93, 40, 96syl3anc 1371 . . . . . . . . . 10 (𝜑 → (((algSc‘𝑃)‘𝑀)(.r𝑃)𝑋) = (𝑀 · 𝑋))
9897fveq2d 6834 . . . . . . . . 9 (𝜑 → (𝑂‘(((algSc‘𝑃)‘𝑀)(.r𝑃)𝑋)) = (𝑂‘(𝑀 · 𝑋)))
9923, 82ffvelcdmd 7023 . . . . . . . . . . 11 (𝜑 → (𝑂‘((algSc‘𝑃)‘𝑀)) ∈ (Base‘(𝑅s 𝐾)))
10023, 40ffvelcdmd 7023 . . . . . . . . . . 11 (𝜑 → (𝑂𝑋) ∈ (Base‘(𝑅s 𝐾)))
10116, 17, 6, 19, 99, 100, 11, 84pwsmulrval 17300 . . . . . . . . . 10 (𝜑 → ((𝑂‘((algSc‘𝑃)‘𝑀))(.r‘(𝑅s 𝐾))(𝑂𝑋)) = ((𝑂‘((algSc‘𝑃)‘𝑀)) ∘f × (𝑂𝑋)))
1022, 3, 4, 79evl1sca 21606 . . . . . . . . . . . 12 ((𝑅 ∈ CRing ∧ 𝑀𝐾) → (𝑂‘((algSc‘𝑃)‘𝑀)) = (𝐾 × {𝑀}))
1036, 9, 102syl2anc 585 . . . . . . . . . . 11 (𝜑 → (𝑂‘((algSc‘𝑃)‘𝑀)) = (𝐾 × {𝑀}))
1042, 7, 4evl1var 21608 . . . . . . . . . . . 12 (𝑅 ∈ CRing → (𝑂𝑋) = ( I ↾ 𝐾))
1056, 104syl 17 . . . . . . . . . . 11 (𝜑 → (𝑂𝑋) = ( I ↾ 𝐾))
106103, 105oveq12d 7360 . . . . . . . . . 10 (𝜑 → ((𝑂‘((algSc‘𝑃)‘𝑀)) ∘f × (𝑂𝑋)) = ((𝐾 × {𝑀}) ∘f × ( I ↾ 𝐾)))
107101, 106eqtrd 2777 . . . . . . . . 9 (𝜑 → ((𝑂‘((algSc‘𝑃)‘𝑀))(.r‘(𝑅s 𝐾))(𝑂𝑋)) = ((𝐾 × {𝑀}) ∘f × ( I ↾ 𝐾)))
10886, 98, 1073eqtr3d 2785 . . . . . . . 8 (𝜑 → (𝑂‘(𝑀 · 𝑋)) = ((𝐾 × {𝑀}) ∘f × ( I ↾ 𝐾)))
109108fveq1d 6832 . . . . . . 7 (𝜑 → ((𝑂‘(𝑀 · 𝑋))‘𝑊) = (((𝐾 × {𝑀}) ∘f × ( I ↾ 𝐾))‘𝑊))
110 fnconstg 6718 . . . . . . . . . 10 (𝑀𝐾 → (𝐾 × {𝑀}) Fn 𝐾)
1119, 110syl 17 . . . . . . . . 9 (𝜑 → (𝐾 × {𝑀}) Fn 𝐾)
112 fnresi 6618 . . . . . . . . . 10 ( I ↾ 𝐾) Fn 𝐾
113112a1i 11 . . . . . . . . 9 (𝜑 → ( I ↾ 𝐾) Fn 𝐾)
114 fnfvof 7617 . . . . . . . . 9 ((((𝐾 × {𝑀}) Fn 𝐾 ∧ ( I ↾ 𝐾) Fn 𝐾) ∧ (𝐾 ∈ V ∧ 𝑊𝐾)) → (((𝐾 × {𝑀}) ∘f × ( I ↾ 𝐾))‘𝑊) = (((𝐾 × {𝑀})‘𝑊) × (( I ↾ 𝐾)‘𝑊)))
115111, 113, 19, 78, 114syl22anc 837 . . . . . . . 8 (𝜑 → (((𝐾 × {𝑀}) ∘f × ( I ↾ 𝐾))‘𝑊) = (((𝐾 × {𝑀})‘𝑊) × (( I ↾ 𝐾)‘𝑊)))
116 fvconst2g 7138 . . . . . . . . . . 11 ((𝑀𝐾𝑊𝐾) → ((𝐾 × {𝑀})‘𝑊) = 𝑀)
1179, 78, 116syl2anc 585 . . . . . . . . . 10 (𝜑 → ((𝐾 × {𝑀})‘𝑊) = 𝑀)
118 fvresi 7106 . . . . . . . . . . 11 (𝑊𝐾 → (( I ↾ 𝐾)‘𝑊) = 𝑊)
11978, 118syl 17 . . . . . . . . . 10 (𝜑 → (( I ↾ 𝐾)‘𝑊) = 𝑊)
120117, 119oveq12d 7360 . . . . . . . . 9 (𝜑 → (((𝐾 × {𝑀})‘𝑊) × (( I ↾ 𝐾)‘𝑊)) = (𝑀 × 𝑊))
1214, 11, 48ringrz 19922 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑀𝐾) → (𝑀 × 𝑊) = 𝑊)
12238, 9, 121syl2anc 585 . . . . . . . . 9 (𝜑 → (𝑀 × 𝑊) = 𝑊)
123120, 122eqtrd 2777 . . . . . . . 8 (𝜑 → (((𝐾 × {𝑀})‘𝑊) × (( I ↾ 𝐾)‘𝑊)) = 𝑊)
124115, 123eqtrd 2777 . . . . . . 7 (𝜑 → (((𝐾 × {𝑀}) ∘f × ( I ↾ 𝐾))‘𝑊) = 𝑊)
125109, 124eqtrd 2777 . . . . . 6 (𝜑 → ((𝑂‘(𝑀 · 𝑋))‘𝑊) = 𝑊)
126 fniniseg 6998 . . . . . . 7 ((𝑂‘(𝑀 · 𝑋)) Fn 𝐾 → (𝑊 ∈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ↔ (𝑊𝐾 ∧ ((𝑂‘(𝑀 · 𝑋))‘𝑊) = 𝑊)))
12727, 126syl 17 . . . . . 6 (𝜑 → (𝑊 ∈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ↔ (𝑊𝐾 ∧ ((𝑂‘(𝑀 · 𝑋))‘𝑊) = 𝑊)))
12878, 125, 127mpbir2and 711 . . . . 5 (𝜑𝑊 ∈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
129128snssd 4761 . . . 4 (𝜑 → {𝑊} ⊆ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
130 hashsng 14189 . . . . . . 7 (𝑊𝐾 → (♯‘{𝑊}) = 1)
13178, 130syl 17 . . . . . 6 (𝜑 → (♯‘{𝑊}) = 1)
132 ssdomg 8866 . . . . . . . . . 10 (((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ V → ({𝑊} ⊆ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) → {𝑊} ≼ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))
13333, 129, 132mpsyl 68 . . . . . . . . 9 (𝜑 → {𝑊} ≼ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
134 snfi 8914 . . . . . . . . . 10 {𝑊} ∈ Fin
135 hashdom 14199 . . . . . . . . . 10 (({𝑊} ∈ Fin ∧ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ V) → ((♯‘{𝑊}) ≤ (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ↔ {𝑊} ≼ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))
136134, 33, 135mp2an 690 . . . . . . . . 9 ((♯‘{𝑊}) ≤ (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ↔ {𝑊} ≼ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
137133, 136sylibr 233 . . . . . . . 8 (𝜑 → (♯‘{𝑊}) ≤ (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))
138131, 137eqbrtrrd 5121 . . . . . . 7 (𝜑 → 1 ≤ (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))
139 hashcl 14176 . . . . . . . . . 10 (((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ Fin → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ∈ ℕ0)
14076, 139syl 17 . . . . . . . . 9 (𝜑 → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ∈ ℕ0)
141140nn0red 12400 . . . . . . . 8 (𝜑 → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ∈ ℝ)
142 1re 11081 . . . . . . . 8 1 ∈ ℝ
143 letri3 11166 . . . . . . . 8 (((♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ∈ ℝ ∧ 1 ∈ ℝ) → ((♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) = 1 ↔ ((♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ≤ 1 ∧ 1 ≤ (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))))
144141, 142, 143sylancl 587 . . . . . . 7 (𝜑 → ((♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) = 1 ↔ ((♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ≤ 1 ∧ 1 ≤ (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))))
14574, 138, 144mpbir2and 711 . . . . . 6 (𝜑 → (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) = 1)
146131, 145eqtr4d 2780 . . . . 5 (𝜑 → (♯‘{𝑊}) = (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))
147 hashen 14167 . . . . . 6 (({𝑊} ∈ Fin ∧ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ Fin) → ((♯‘{𝑊}) = (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ↔ {𝑊} ≈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))
148134, 76, 147sylancr 588 . . . . 5 (𝜑 → ((♯‘{𝑊}) = (♯‘((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) ↔ {𝑊} ≈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊})))
149146, 148mpbid 231 . . . 4 (𝜑 → {𝑊} ≈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
150 fisseneq 9127 . . . 4 ((((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∈ Fin ∧ {𝑊} ⊆ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}) ∧ {𝑊} ≈ ((𝑂‘(𝑀 · 𝑋)) “ {𝑊})) → {𝑊} = ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
15176, 129, 149, 150syl3anc 1371 . . 3 (𝜑 → {𝑊} = ((𝑂‘(𝑀 · 𝑋)) “ {𝑊}))
15230, 151eleqtrrd 2841 . 2 (𝜑𝑁 ∈ {𝑊})
153 elsni 4595 . 2 (𝑁 ∈ {𝑊} → 𝑁 = 𝑊)
154152, 153syl 17 1 (𝜑𝑁 = 𝑊)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 397   = wceq 1541  wcel 2106  wne 2941  Vcvv 3442  cdif 3899  wss 3902  {csn 4578   class class class wbr 5097   I cid 5522   × cxp 5623  ccnv 5624  cres 5627  cima 5628   Fn wfn 6479  wf 6480  cfv 6484  (class class class)co 7342  f cof 7598  cen 8806  cdom 8807  Fincfn 8809  cr 10976  1c1 10978  cle 11116  0cn0 12339  chash 14150  Basecbs 17010  .rcmulr 17061  Scalarcsca 17063   ·𝑠 cvsca 17064  0gc0g 17248  s cpws 17255  .gcmg 18797  mulGrpcmgp 19815  Ringcrg 19878  CRingccrg 19879   RingHom crh 20051  AssAlgcasa 21163  algSccascl 21165  var1cv1 21453  Poly1cpl1 21454  coe1cco1 21455  eval1ce1 21586   deg1 cdg1 25322
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2708  ax-rep 5234  ax-sep 5248  ax-nul 5255  ax-pow 5313  ax-pr 5377  ax-un 7655  ax-cnex 11033  ax-resscn 11034  ax-1cn 11035  ax-icn 11036  ax-addcl 11037  ax-addrcl 11038  ax-mulcl 11039  ax-mulrcl 11040  ax-mulcom 11041  ax-addass 11042  ax-mulass 11043  ax-distr 11044  ax-i2m1 11045  ax-1ne0 11046  ax-1rid 11047  ax-rnegex 11048  ax-rrecex 11049  ax-cnre 11050  ax-pre-lttri 11051  ax-pre-lttrn 11052  ax-pre-ltadd 11053  ax-pre-mulgt0 11054  ax-pre-sup 11055  ax-addf 11056  ax-mulf 11057
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3444  df-sbc 3732  df-csb 3848  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3921  df-nul 4275  df-if 4479  df-pw 4554  df-sn 4579  df-pr 4581  df-tp 4583  df-op 4585  df-uni 4858  df-int 4900  df-iun 4948  df-iin 4949  df-br 5098  df-opab 5160  df-mpt 5181  df-tr 5215  df-id 5523  df-eprel 5529  df-po 5537  df-so 5538  df-fr 5580  df-se 5581  df-we 5582  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6243  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6436  df-fun 6486  df-fn 6487  df-f 6488  df-f1 6489  df-fo 6490  df-f1o 6491  df-fv 6492  df-isom 6493  df-riota 7298  df-ov 7345  df-oprab 7346  df-mpo 7347  df-of 7600  df-ofr 7601  df-om 7786  df-1st 7904  df-2nd 7905  df-supp 8053  df-frecs 8172  df-wrecs 8203  df-recs 8277  df-rdg 8316  df-1o 8372  df-oadd 8376  df-er 8574  df-map 8693  df-pm 8694  df-ixp 8762  df-en 8810  df-dom 8811  df-sdom 8812  df-fin 8813  df-fsupp 9232  df-sup 9304  df-oi 9372  df-card 9801  df-pnf 11117  df-mnf 11118  df-xr 11119  df-ltxr 11120  df-le 11121  df-sub 11313  df-neg 11314  df-nn 12080  df-2 12142  df-3 12143  df-4 12144  df-5 12145  df-6 12146  df-7 12147  df-8 12148  df-9 12149  df-n0 12340  df-xnn0 12412  df-z 12426  df-dec 12544  df-uz 12689  df-fz 13346  df-fzo 13489  df-seq 13828  df-hash 14151  df-struct 16946  df-sets 16963  df-slot 16981  df-ndx 16993  df-base 17011  df-ress 17040  df-plusg 17073  df-mulr 17074  df-starv 17075  df-sca 17076  df-vsca 17077  df-ip 17078  df-tset 17079  df-ple 17080  df-ds 17082  df-unif 17083  df-hom 17084  df-cco 17085  df-0g 17250  df-gsum 17251  df-prds 17256  df-pws 17258  df-mre 17393  df-mrc 17394  df-acs 17396  df-mgm 18424  df-sgrp 18473  df-mnd 18484  df-mhm 18528  df-submnd 18529  df-grp 18677  df-minusg 18678  df-sbg 18679  df-mulg 18798  df-subg 18849  df-ghm 18929  df-cntz 19020  df-cmn 19484  df-abl 19485  df-mgp 19816  df-ur 19833  df-srg 19837  df-ring 19880  df-cring 19881  df-rnghom 20054  df-subrg 20127  df-lmod 20231  df-lss 20300  df-lsp 20340  df-cnfld 20704  df-assa 21166  df-asp 21167  df-ascl 21168  df-psr 21218  df-mvr 21219  df-mpl 21220  df-opsr 21222  df-evls 21388  df-evl 21389  df-psr1 21457  df-vr1 21458  df-ply1 21459  df-coe1 21460  df-evl1 21588  df-mdeg 25323  df-deg1 25324
This theorem is referenced by:  fta1b  25440
  Copyright terms: Public domain W3C validator