Theorem extdgmul 33914

Description: The multiplicativity formula for degrees of field extensions. Given 𝐸 a field extension of 𝐹, itself a field extension of 𝐾, the degree of the extension 𝐸/_FldExt𝐾 is the product of the degrees of the extensions 𝐸/_FldExt𝐹 and 𝐹/_FldExt𝐾. Proposition 1.2 of [Lang], p. 224. (Contributed by Thierry Arnoux, 30-Jul-2023.)

Assertion

Ref	Expression
extdgmul	⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸[:]𝐾) = ((𝐸[:]𝐹) ·e (𝐹[:]𝐾)))

Proof of Theorem extdgmul

Step	Hyp	Ref	Expression
1		eqid 2756	. . 3 ⊢ ((subringAlg ‘𝐸)‘(Base‘𝐾)) = ((subringAlg ‘𝐸)‘(Base‘𝐾))
2		eqid 2756	. . 3 ⊢ ((subringAlg ‘𝐸)‘(Base‘𝐹)) = ((subringAlg ‘𝐸)‘(Base‘𝐹))
3		eqid 2756	. . 3 ⊢ ((subringAlg ‘(𝐸 ↾s (Base‘𝐹)))‘(Base‘𝐾)) = ((subringAlg ‘(𝐸 ↾s (Base‘𝐹)))‘(Base‘𝐾))
4		eqid 2756	. . 3 ⊢ (𝐸 ↾s (Base‘𝐹)) = (𝐸 ↾s (Base‘𝐹))
5		eqid 2756	. . 3 ⊢ (𝐸 ↾s (Base‘𝐾)) = (𝐸 ↾s (Base‘𝐾))
6		simpl 485	. . . . 5 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐸/FldExt𝐹)
7		fldextfld1 33898	. . . . 5 ⊢ (𝐸/FldExt𝐹 → 𝐸 ∈ Field)
8	6, 7	syl 17	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐸 ∈ Field)
9		isfld 20762	. . . . 5 ⊢ (𝐸 ∈ Field ↔ (𝐸 ∈ DivRing ∧ 𝐸 ∈ CRing))
10	9	simplbi 499	. . . 4 ⊢ (𝐸 ∈ Field → 𝐸 ∈ DivRing)
11	8, 10	syl 17	. . 3 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐸 ∈ DivRing)
12		fldextfld1 33898	. . . . . . . 8 ⊢ (𝐹/FldExt𝐾 → 𝐹 ∈ Field)
13	12	adantl 484	. . . . . . 7 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐹 ∈ Field)
14		brfldext 33896	. . . . . . 7 ⊢ ((𝐸 ∈ Field ∧ 𝐹 ∈ Field) → (𝐸/FldExt𝐹 ↔ (𝐹 = (𝐸 ↾s (Base‘𝐹)) ∧ (Base‘𝐹) ∈ (SubRing‘𝐸))))
15	8, 13, 14	syl2anc 592	. . . . . 6 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸/FldExt𝐹 ↔ (𝐹 = (𝐸 ↾s (Base‘𝐹)) ∧ (Base‘𝐹) ∈ (SubRing‘𝐸))))
16	6, 15	mpbid 234	. . . . 5 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐹 = (𝐸 ↾s (Base‘𝐹)) ∧ (Base‘𝐹) ∈ (SubRing‘𝐸)))
17	16	simpld 497	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐹 = (𝐸 ↾s (Base‘𝐹)))
18		isfld 20762	. . . . . 6 ⊢ (𝐹 ∈ Field ↔ (𝐹 ∈ DivRing ∧ 𝐹 ∈ CRing))
19	18	simplbi 499	. . . . 5 ⊢ (𝐹 ∈ Field → 𝐹 ∈ DivRing)
20	13, 19	syl 17	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐹 ∈ DivRing)
21	17, 20	eqeltrrd 2857	. . 3 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸 ↾s (Base‘𝐹)) ∈ DivRing)
22		fldexttr 33909	. . . . . 6 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐸/FldExt𝐾)
23		fldextfld2 33899	. . . . . . . 8 ⊢ (𝐹/FldExt𝐾 → 𝐾 ∈ Field)
24	23	adantl 484	. . . . . . 7 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐾 ∈ Field)
25		brfldext 33896	. . . . . . 7 ⊢ ((𝐸 ∈ Field ∧ 𝐾 ∈ Field) → (𝐸/FldExt𝐾 ↔ (𝐾 = (𝐸 ↾s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐸))))
26	8, 24, 25	syl2anc 592	. . . . . 6 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸/FldExt𝐾 ↔ (𝐾 = (𝐸 ↾s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐸))))
27	22, 26	mpbid 234	. . . . 5 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐾 = (𝐸 ↾s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐸)))
28	27	simpld 497	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐾 = (𝐸 ↾s (Base‘𝐾)))
29		isfld 20762	. . . . . 6 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
30	29	simplbi 499	. . . . 5 ⊢ (𝐾 ∈ Field → 𝐾 ∈ DivRing)
31	24, 30	syl 17	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → 𝐾 ∈ DivRing)
32	28, 31	eqeltrrd 2857	. . 3 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸 ↾s (Base‘𝐾)) ∈ DivRing)
33	16	simprd 498	. . 3 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (Base‘𝐹) ∈ (SubRing‘𝐸))
34		eqid 2756	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
35	34	fldextsubrg 33900	. . . . 5 ⊢ (𝐹/FldExt𝐾 → (Base‘𝐾) ∈ (SubRing‘𝐹))
36	35	adantl 484	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (Base‘𝐾) ∈ (SubRing‘𝐹))
37	17	fveq2d 6860	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (SubRing‘𝐹) = (SubRing‘(𝐸 ↾s (Base‘𝐹))))
38	36, 37	eleqtrd 2858	. . 3 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (Base‘𝐾) ∈ (SubRing‘(𝐸 ↾s (Base‘𝐹))))
39	1, 2, 3, 4, 5, 11, 21, 32, 33, 38	fedgmul 33882	. 2 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (dim‘((subringAlg ‘𝐸)‘(Base‘𝐾))) = ((dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ·e (dim‘((subringAlg ‘(𝐸 ↾s (Base‘𝐹)))‘(Base‘𝐾)))))
40		extdgval 33904	. . 3 ⊢ (𝐸/FldExt𝐾 → (𝐸[:]𝐾) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐾))))
41	22, 40	syl 17	. 2 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸[:]𝐾) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐾))))
42		extdgval 33904	. . . 4 ⊢ (𝐸/FldExt𝐹 → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
43	6, 42	syl 17	. . 3 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸[:]𝐹) = (dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))))
44		extdgval 33904	. . . . 5 ⊢ (𝐹/FldExt𝐾 → (𝐹[:]𝐾) = (dim‘((subringAlg ‘𝐹)‘(Base‘𝐾))))
45	44	adantl 484	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐹[:]𝐾) = (dim‘((subringAlg ‘𝐹)‘(Base‘𝐾))))
46	17	fveq2d 6860	. . . . . 6 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (subringAlg ‘𝐹) = (subringAlg ‘(𝐸 ↾s (Base‘𝐹))))
47	46	fveq1d 6858	. . . . 5 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → ((subringAlg ‘𝐹)‘(Base‘𝐾)) = ((subringAlg ‘(𝐸 ↾s (Base‘𝐹)))‘(Base‘𝐾)))
48	47	fveq2d 6860	. . . 4 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (dim‘((subringAlg ‘𝐹)‘(Base‘𝐾))) = (dim‘((subringAlg ‘(𝐸 ↾s (Base‘𝐹)))‘(Base‘𝐾))))
49	45, 48	eqtrd 2791	. . 3 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐹[:]𝐾) = (dim‘((subringAlg ‘(𝐸 ↾s (Base‘𝐹)))‘(Base‘𝐾))))
50	43, 49	oveq12d 7403	. 2 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → ((𝐸[:]𝐹) ·e (𝐹[:]𝐾)) = ((dim‘((subringAlg ‘𝐸)‘(Base‘𝐹))) ·e (dim‘((subringAlg ‘(𝐸 ↾s (Base‘𝐹)))‘(Base‘𝐾)))))
51	39, 41, 50	3eqtr4d 2801	1 ⊢ ((𝐸/FldExt𝐹 ∧ 𝐹/FldExt𝐾) → (𝐸[:]𝐾) = ((𝐸[:]𝐹) ·e (𝐹[:]𝐾)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1554   ∈ wcel 2136   class class class wbr 5094  ‘cfv 6510  (class class class)co 7385   ·_e cxmu 13103  Basecbs 17221   ↾_s cress 17242  CRingccrg 20256  SubRingcsubrg 20591  DivRingcdr 20751  Fieldcfield 20752  subringAlg csra 21211  dimcldim 33850  /_FldExtcfldext 33889  [:]cextdg 33891

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1809  ax-4 1823  ax-5 1924  ax-6 1981  ax-7 2022  ax-8 2138  ax-9 2146  ax-10 2169  ax-11 2185  ax-12 2206  ax-ext 2728  ax-rep 5221  ax-sep 5240  ax-nul 5250  ax-pow 5316  ax-pr 5384  ax-un 7707  ax-reg 9530  ax-inf2 9586  ax-ac2 10410  ax-cnex 11119  ax-resscn 11120  ax-1cn 11121  ax-icn 11122  ax-addcl 11123  ax-addrcl 11124  ax-mulcl 11125  ax-mulrcl 11126  ax-mulcom 11127  ax-addass 11128  ax-mulass 11129  ax-distr 11130  ax-i2m1 11131  ax-1ne0 11132  ax-1rid 11133  ax-rnegex 11134  ax-rrecex 11135  ax-cnre 11136  ax-pre-lttri 11137  ax-pre-lttrn 11138  ax-pre-ltadd 11139  ax-pre-mulgt0 11140

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-3or 1096  df-3an 1097  df-tru 1557  df-fal 1567  df-ex 1794  df-nf 1798  df-sb 2085  df-mo 2560  df-eu 2590  df-clab 2735  df-cleq 2748  df-clel 2831  df-nfc 2905  df-ne 2952  df-nel 3056  df-ral 3071  df-rex 3081  df-rmo 3361  df-reu 3362  df-rab 3409  df-v 3450  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4281  df-if 4475  df-pw 4551  df-sn 4577  df-pr 4579  df-tp 4581  df-op 4583  df-uni 4860  df-int 4900  df-iun 4945  df-iin 4946  df-br 5095  df-opab 5157  df-mpt 5176  df-tr 5202  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-se 5594  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6466  df-fun 6512  df-fn 6513  df-f 6514  df-f1 6515  df-fo 6516  df-f1o 6517  df-fv 6518  df-isom 6519  df-riota 7342  df-ov 7388  df-oprab 7389  df-mpo 7390  df-of 7649  df-rpss 7695  df-om 7836  df-1st 7959  df-2nd 7960  df-supp 8129  df-tpos 8194  df-frecs 8250  df-wrecs 8281  df-recs 8330  df-rdg 8369  df-1o 8425  df-2o 8426  df-oadd 8429  df-er 8666  df-map 8798  df-ixp 8869  df-en 8917  df-dom 8918  df-sdom 8919  df-fin 8920  df-fsupp 9298  df-sup 9378  df-oi 9448  df-r1 9712  df-rank 9713  df-dju 9849  df-card 9887  df-acn 9890  df-ac 10062  df-pnf 11208  df-mnf 11209  df-xr 11210  df-ltxr 11211  df-le 11212  df-sub 11406  df-neg 11407  df-nn 12201  df-2 12270  df-3 12271  df-4 12272  df-5 12273  df-6 12274  df-7 12275  df-8 12276  df-9 12277  df-n0 12472  df-xnn0 12545  df-z 12559  df-dec 12679  df-uz 12830  df-xmul 13106  df-fz 13503  df-fzo 13650  df-seq 14005  df-hash 14334  df-struct 17159  df-sets 17176  df-slot 17194  df-ndx 17206  df-base 17222  df-ress 17243  df-plusg 17275  df-mulr 17276  df-sca 17278  df-vsca 17279  df-ip 17280  df-tset 17281  df-ple 17282  df-ocomp 17283  df-ds 17284  df-hom 17286  df-cco 17287  df-0g 17446  df-gsum 17447  df-prds 17452  df-pws 17454  df-mre 17590  df-mrc 17591  df-mri 17592  df-acs 17593  df-proset 18302  df-drs 18303  df-poset 18321  df-ipo 18536  df-mgm 18650  df-sgrp 18729  df-mnd 18745  df-mhm 18793  df-submnd 18794  df-grp 18954  df-minusg 18955  df-sbg 18956  df-mulg 19086  df-subg 19141  df-ghm 19230  df-cntz 19333  df-cmn 19798  df-abl 19799  df-mgp 20163  df-rng 20175  df-ur 20204  df-ring 20257  df-oppr 20358  df-dvdsr 20378  df-unit 20379  df-invr 20409  df-nzr 20535  df-subrng 20568  df-subrg 20592  df-drng 20753  df-field 20754  df-lmod 20902  df-lss 20972  df-lsp 21012  df-lmhm 21062  df-lbs 21115  df-lvec 21143  df-sra 21213  df-rgmod 21214  df-dsmm 21757  df-frlm 21772  df-uvc 21808  df-lindf 21831  df-linds 21832  df-dim 33851  df-fldext 33892  df-extdg 33893

This theorem is referenced by:  finexttrb  33916  fldextrspundglemul  33930  fldextrspundgdvdslem  33931  fldextrspundgdvds  33932  fldext2rspun  33933  fldext2chn  33979  constrext2chnlem  34001