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

Theorem fta1glem1 26495
Description: Lemma for fta1g 26497. (Contributed by Mario Carneiro, 7-Jun-2016.)
Hypotheses
Ref Expression
fta1g.p 𝑃 = (Poly1‘𝑅)
fta1g.b 𝐵 = (Base‘𝑃)
fta1g.d 𝐷 = (deg1‘𝑅)
fta1g.o 𝑂 = (eval1‘𝑅)
fta1g.w 𝑊 = (0g‘𝑅)
fta1g.z 0 = (0g‘𝑃)
fta1g.1 (𝜑 → 𝑅 ∈ IDomn)
fta1g.2 (𝜑 → 𝐹 ∈ 𝐵)
fta1glem.k 𝐾 = (Base‘𝑅)
fta1glem.x 𝑋 = (var1‘𝑅)
fta1glem.m − = (-g‘𝑃)
fta1glem.a 𝐴 = (algSc‘𝑃)
fta1glem.g 𝐺 = (𝑋 − (𝐴‘𝑇))
fta1glem.3 (𝜑 → 𝑁 ∈ ℕ0)
fta1glem.4 (𝜑 → (𝐷‘𝐹) = (𝑁 + 1))
fta1glem.5 (𝜑 → 𝑇 ∈ (◡(𝑂‘𝐹) “ {𝑊}))
Assertion
Ref Expression
fta1glem1 (𝜑 → (𝐷‘(𝐹(quot1p‘𝑅)𝐺)) = 𝑁)

Proof of Theorem fta1glem1
StepHypRef Expression
1 1cnd 11309 . 2 (𝜑 → 1 ∈ ℂ)
2 fta1g.1 . . . . . 6 (𝜑 → 𝑅 ∈ IDomn)
3 isidom 20985 . . . . . . 7 (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
4 domnnzr 20967 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
53, 4simplbiim 514 . . . . . 6 (𝑅 ∈ IDomn → 𝑅 ∈ NzRing)
62, 5syl 18 . . . . 5 (𝜑 → 𝑅 ∈ NzRing)
7 nzrring 20775 . . . . 5 (𝑅 ∈ NzRing → 𝑅 ∈ Ring)
86, 7syl 18 . . . 4 (𝜑 → 𝑅 ∈ Ring)
9 fta1g.2 . . . . 5 (𝜑 → 𝐹 ∈ 𝐵)
10 fta1g.p . . . . . . . 8 𝑃 = (Poly1‘𝑅)
11 fta1g.b . . . . . . . 8 𝐵 = (Base‘𝑃)
12 fta1glem.k . . . . . . . 8 𝐾 = (Base‘𝑅)
13 fta1glem.x . . . . . . . 8 𝑋 = (var1‘𝑅)
14 fta1glem.m . . . . . . . 8 − = (-g‘𝑃)
15 fta1glem.a . . . . . . . 8 𝐴 = (algSc‘𝑃)
16 fta1glem.g . . . . . . . 8 𝐺 = (𝑋 − (𝐴‘𝑇))
17 fta1g.o . . . . . . . 8 𝑂 = (eval1‘𝑅)
183simplbi 502 . . . . . . . . 9 (𝑅 ∈ IDomn → 𝑅 ∈ CRing)
192, 18syl 18 . . . . . . . 8 (𝜑 → 𝑅 ∈ CRing)
20 fta1glem.5 . . . . . . . . . 10 (𝜑 → 𝑇 ∈ (◡(𝑂‘𝐹) “ {𝑊}))
21 eqid 2760 . . . . . . . . . . . . 13 (𝑅 ↑s 𝐾) = (𝑅 ↑s 𝐾)
22 eqid 2760 . . . . . . . . . . . . 13 (Base‘(𝑅 ↑s 𝐾)) = (Base‘(𝑅 ↑s 𝐾))
2312fvexi 6904 . . . . . . . . . . . . . 14 𝐾 ∈ V
2423a1i 11 . . . . . . . . . . . . 13 (𝜑 → 𝐾 ∈ V)
2517, 10, 21, 12evl1rhm 22659 . . . . . . . . . . . . . . . 16 (𝑅 ∈ CRing → 𝑂 ∈ (𝑃 RingHom (𝑅 ↑s 𝐾)))
2619, 25syl 18 . . . . . . . . . . . . . . 15 (𝜑 → 𝑂 ∈ (𝑃 RingHom (𝑅 ↑s 𝐾)))
2711, 22rhmf 20724 . . . . . . . . . . . . . . 15 (𝑂 ∈ (𝑃 RingHom (𝑅 ↑s 𝐾)) → 𝑂:𝐵⟶(Base‘(𝑅 ↑s 𝐾)))
2826, 27syl 18 . . . . . . . . . . . . . 14 (𝜑 → 𝑂:𝐵⟶(Base‘(𝑅 ↑s 𝐾)))
2928, 9ffvelcdmd 7090 . . . . . . . . . . . . 13 (𝜑 → (𝑂‘𝐹) ∈ (Base‘(𝑅 ↑s 𝐾)))
3021, 12, 22, 2, 24, 29pwselbas 17669 . . . . . . . . . . . 12 (𝜑 → (𝑂‘𝐹):𝐾⟶𝐾)
3130ffnd 6715 . . . . . . . . . . 11 (𝜑 → (𝑂‘𝐹) Fn 𝐾)
32 fniniseg 7064 . . . . . . . . . . 11 ((𝑂‘𝐹) Fn 𝐾 → (𝑇 ∈ (◡(𝑂‘𝐹) “ {𝑊}) ↔ (𝑇 ∈ 𝐾 ∧ ((𝑂‘𝐹)‘𝑇) = 𝑊)))
3331, 32syl 18 . . . . . . . . . 10 (𝜑 → (𝑇 ∈ (◡(𝑂‘𝐹) “ {𝑊}) ↔ (𝑇 ∈ 𝐾 ∧ ((𝑂‘𝐹)‘𝑇) = 𝑊)))
3420, 33mpbid 235 . . . . . . . . 9 (𝜑 → (𝑇 ∈ 𝐾 ∧ ((𝑂‘𝐹)‘𝑇) = 𝑊))
3534simpld 500 . . . . . . . 8 (𝜑 → 𝑇 ∈ 𝐾)
36 eqid 2760 . . . . . . . 8 (Monic1p‘𝑅) = (Monic1p‘𝑅)
37 fta1g.d . . . . . . . 8 𝐷 = (deg1‘𝑅)
38 fta1g.w . . . . . . . 8 𝑊 = (0g‘𝑅)
3910, 11, 12, 13, 14, 15, 16, 17, 6, 19, 35, 36, 37, 38ply1remlem 26492 . . . . . . 7 (𝜑 → (𝐺 ∈ (Monic1p‘𝑅) ∧ (𝐷‘𝐺) = 1 ∧ (◡(𝑂‘𝐺) “ {𝑊}) = {𝑇}))
4039simp1d 1160 . . . . . 6 (𝜑 → 𝐺 ∈ (Monic1p‘𝑅))
41 eqid 2760 . . . . . . 7 (Unic1p‘𝑅) = (Unic1p‘𝑅)
4241, 36mon1puc1p 26478 . . . . . 6 ((𝑅 ∈ Ring ∧ 𝐺 ∈ (Monic1p‘𝑅)) → 𝐺 ∈ (Unic1p‘𝑅))
438, 40, 42syl2anc 596 . . . . 5 (𝜑 → 𝐺 ∈ (Unic1p‘𝑅))
44 eqid 2760 . . . . . 6 (quot1p‘𝑅) = (quot1p‘𝑅)
4544, 10, 11, 41q1pcl 26484 . . . . 5 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐺 ∈ (Unic1p‘𝑅)) → (𝐹(quot1p‘𝑅)𝐺) ∈ 𝐵)
468, 9, 43, 45syl3anc 1398 . . . 4 (𝜑 → (𝐹(quot1p‘𝑅)𝐺) ∈ 𝐵)
47 fta1glem.4 . . . . . . . 8 (𝜑 → (𝐷‘𝐹) = (𝑁 + 1))
48 fta1glem.3 . . . . . . . . 9 (𝜑 → 𝑁 ∈ ℕ0)
49 peano2nn0 12653 . . . . . . . . 9 (𝑁 ∈ ℕ0 → (𝑁 + 1) ∈ ℕ0)
5048, 49syl 18 . . . . . . . 8 (𝜑 → (𝑁 + 1) ∈ ℕ0)
5147, 50eqeltrd 2860 . . . . . . 7 (𝜑 → (𝐷‘𝐹) ∈ ℕ0)
52 fta1g.z . . . . . . . . 9 0 = (0g‘𝑃)
5337, 10, 52, 11deg1nn0clb 26417 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐵) → (𝐹 ≠ 0 ↔ (𝐷‘𝐹) ∈ ℕ0))
548, 9, 53syl2anc 596 . . . . . . 7 (𝜑 → (𝐹 ≠ 0 ↔ (𝐷‘𝐹) ∈ ℕ0))
5551, 54mpbird 260 . . . . . 6 (𝜑 → 𝐹 ≠ 0 )
5634simprd 501 . . . . . . . . 9 (𝜑 → ((𝑂‘𝐹)‘𝑇) = 𝑊)
57 eqid 2760 . . . . . . . . . 10 (∥r‘𝑃) = (∥r‘𝑃)
5810, 11, 12, 13, 14, 15, 16, 17, 6, 19, 35, 9, 38, 57facth1 26494 . . . . . . . . 9 (𝜑 → (𝐺(∥r‘𝑃)𝐹 ↔ ((𝑂‘𝐹)‘𝑇) = 𝑊))
5956, 58mpbird 260 . . . . . . . 8 (𝜑 → 𝐺(∥r‘𝑃)𝐹)
60 eqid 2760 . . . . . . . . . 10 (.r‘𝑃) = (.r‘𝑃)
6110, 57, 11, 41, 60, 44dvdsq1p 26490 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐺 ∈ (Unic1p‘𝑅)) → (𝐺(∥r‘𝑃)𝐹 ↔ 𝐹 = ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺)))
628, 9, 43, 61syl3anc 1398 . . . . . . . 8 (𝜑 → (𝐺(∥r‘𝑃)𝐹 ↔ 𝐹 = ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺)))
6359, 62mpbid 235 . . . . . . 7 (𝜑 → 𝐹 = ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺))
6463eqcomd 2766 . . . . . 6 (𝜑 → ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺) = 𝐹)
6510ply1crng 22525 . . . . . . . . 9 (𝑅 ∈ CRing → 𝑃 ∈ CRing)
6619, 65syl 18 . . . . . . . 8 (𝜑 → 𝑃 ∈ CRing)
67 crngring 20481 . . . . . . . 8 (𝑃 ∈ CRing → 𝑃 ∈ Ring)
6866, 67syl 18 . . . . . . 7 (𝜑 → 𝑃 ∈ Ring)
6910, 11, 36mon1pcl 26472 . . . . . . . 8 (𝐺 ∈ (Monic1p‘𝑅) → 𝐺 ∈ 𝐵)
7040, 69syl 18 . . . . . . 7 (𝜑 → 𝐺 ∈ 𝐵)
7111, 60, 52ringlz 20533 . . . . . . 7 ((𝑃 ∈ Ring ∧ 𝐺 ∈ 𝐵) → ( 0 (.r‘𝑃)𝐺) = 0 )
7268, 70, 71syl2anc 596 . . . . . 6 (𝜑 → ( 0 (.r‘𝑃)𝐺) = 0 )
7355, 64, 723netr4d 3032 . . . . 5 (𝜑 → ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺) ≠ ( 0 (.r‘𝑃)𝐺))
74 oveq1 7431 . . . . . 6 ((𝐹(quot1p‘𝑅)𝐺) = 0 → ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺) = ( 0 (.r‘𝑃)𝐺))
7574necon3i 2987 . . . . 5 (((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺) ≠ ( 0 (.r‘𝑃)𝐺) → (𝐹(quot1p‘𝑅)𝐺) ≠ 0 )
7673, 75syl 18 . . . 4 (𝜑 → (𝐹(quot1p‘𝑅)𝐺) ≠ 0 )
7737, 10, 52, 11deg1nn0cl 26415 . . . 4 ((𝑅 ∈ Ring ∧ (𝐹(quot1p‘𝑅)𝐺) ∈ 𝐵 ∧ (𝐹(quot1p‘𝑅)𝐺) ≠ 0 ) → (𝐷‘(𝐹(quot1p‘𝑅)𝐺)) ∈ ℕ0)
788, 46, 76, 77syl3anc 1398 . . 3 (𝜑 → (𝐷‘(𝐹(quot1p‘𝑅)𝐺)) ∈ ℕ0)
7978nn0cnd 12676 . 2 (𝜑 → (𝐷‘(𝐹(quot1p‘𝑅)𝐺)) ∈ ℂ)
8048nn0cnd 12676 . 2 (𝜑 → 𝑁 ∈ ℂ)
8111, 60crngcom 20487 . . . . . . 7 ((𝑃 ∈ CRing ∧ (𝐹(quot1p‘𝑅)𝐺) ∈ 𝐵 ∧ 𝐺 ∈ 𝐵) → ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺) = (𝐺(.r‘𝑃)(𝐹(quot1p‘𝑅)𝐺)))
8266, 46, 70, 81syl3anc 1398 . . . . . 6 (𝜑 → ((𝐹(quot1p‘𝑅)𝐺)(.r‘𝑃)𝐺) = (𝐺(.r‘𝑃)(𝐹(quot1p‘𝑅)𝐺)))
8363, 82eqtrd 2795 . . . . 5 (𝜑 → 𝐹 = (𝐺(.r‘𝑃)(𝐹(quot1p‘𝑅)𝐺)))
8483fveq2d 6894 . . . 4 (𝜑 → (𝐷‘𝐹) = (𝐷‘(𝐺(.r‘𝑃)(𝐹(quot1p‘𝑅)𝐺))))
85 eqid 2760 . . . . 5 (RLReg‘𝑅) = (RLReg‘𝑅)
8639simp2d 1161 . . . . . . 7 (𝜑 → (𝐷‘𝐺) = 1)
87 1nn0 12629 . . . . . . 7 1 ∈ ℕ0
8886, 87eqeltrdi 2868 . . . . . 6 (𝜑 → (𝐷‘𝐺) ∈ ℕ0)
8937, 10, 52, 11deg1nn0clb 26417 . . . . . . 7 ((𝑅 ∈ Ring ∧ 𝐺 ∈ 𝐵) → (𝐺 ≠ 0 ↔ (𝐷‘𝐺) ∈ ℕ0))
908, 70, 89syl2anc 596 . . . . . 6 (𝜑 → (𝐺 ≠ 0 ↔ (𝐷‘𝐺) ∈ ℕ0))
9188, 90mpbird 260 . . . . 5 (𝜑 → 𝐺 ≠ 0 )
92 eqid 2760 . . . . . . . 8 (Unit‘𝑅) = (Unit‘𝑅)
9385, 92unitrrg 20964 . . . . . . 7 (𝑅 ∈ Ring → (Unit‘𝑅) ⊆ (RLReg‘𝑅))
948, 93syl 18 . . . . . 6 (𝜑 → (Unit‘𝑅) ⊆ (RLReg‘𝑅))
9537, 92, 41uc1pldg 26476 . . . . . . 7 (𝐺 ∈ (Unic1p‘𝑅) → ((coe1‘𝐺)‘(𝐷‘𝐺)) ∈ (Unit‘𝑅))
9643, 95syl 18 . . . . . 6 (𝜑 → ((coe1‘𝐺)‘(𝐷‘𝐺)) ∈ (Unit‘𝑅))
9794, 96sseldd 3910 . . . . 5 (𝜑 → ((coe1‘𝐺)‘(𝐷‘𝐺)) ∈ (RLReg‘𝑅))
9837, 10, 85, 11, 60, 52, 8, 70, 91, 97, 46, 76deg1mul2 26441 . . . 4 (𝜑 → (𝐷‘(𝐺(.r‘𝑃)(𝐹(quot1p‘𝑅)𝐺))) = ((𝐷‘𝐺) + (𝐷‘(𝐹(quot1p‘𝑅)𝐺))))
9984, 47, 983eqtr3d 2803 . . 3 (𝜑 → (𝑁 + 1) = ((𝐷‘𝐺) + (𝐷‘(𝐹(quot1p‘𝑅)𝐺))))
100 ax-1cn 11265 . . . 4 1 ∈ ℂ
101 addcom 11503 . . . 4 ((𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑁 + 1) = (1 + 𝑁))
10280, 100, 101sylancl 598 . . 3 (𝜑 → (𝑁 + 1) = (1 + 𝑁))
10386oveq1d 7439 . . 3 (𝜑 → ((𝐷‘𝐺) + (𝐷‘(𝐹(quot1p‘𝑅)𝐺))) = (1 + (𝐷‘(𝐹(quot1p‘𝑅)𝐺))))
10499, 102, 1033eqtr3rd 2804 . 2 (𝜑 → (1 + (𝐷‘(𝐹(quot1p‘𝑅)𝐺))) = (1 + 𝑁))
1051, 79, 80, 104addcanad 11522 1 (𝜑 → (𝐷‘(𝐹(quot1p‘𝑅)𝐺)) = 𝑁)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1569   ∈ wcel 2144   ≠ wne 2955  Vcvv 3450   ⊆ wss 3896  {csn 4584   class class class wbr 5102  ◡ccnv 5650   “ cima 5654   Fn wfn 6538  ⟶wf 6539  ‘cfv 6543  (class class class)co 7424  ℂcc 11205  1c1 11208   + caddc 11210  ℕ0cn0 12613  Basecbs 17396  .rcmulr 17438  0gc0g 17619   ↑s cpws 17626  -gcsg 19155  Ringcrg 20468  CRingccrg 20469  ∥rcdsr 20593  Unitcui 20594   RingHom crh 20708  NzRingcnzr 20771  RLRegcrlreg 20952  Domncdomn 20953  IDomncidom 20954  algSccascl 22169  var1cv1 22503  Poly1cpl1 22504  coe1cco1 22505  eval1ce1 22641  deg1cdg1 26381  Monic1pcmn1 26453  Unic1pcuc1p 26454  quot1pcq1p 26455
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5327  ax-pr 5391  ax-un 7755  ax-cnex 11263  ax-resscn 11264  ax-1cn 11265  ax-icn 11266  ax-addcl 11267  ax-addrcl 11268  ax-mulcl 11269  ax-mulrcl 11270  ax-mulcom 11271  ax-addass 11272  ax-mulass 11273  ax-distr 11274  ax-i2m1 11275  ax-1ne0 11276  ax-1rid 11277  ax-rnegex 11278  ax-rrecex 11279  ax-cnre 11280  ax-pre-lttri 11281  ax-pre-lttrn 11282  ax-pre-ltadd 11283  ax-pre-mulgt0 11284  ax-pre-sup 11285  ax-addf 11286
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3848  df-ss 3897  df-pss 4013  df-dif 4046  df-in 4090  df-un 4150  df-nul 4278  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4835  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6307  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6497  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7381  df-ov 7427  df-oprab 7428  df-mpo 7429  df-of 7697  df-ofr 7698  df-om 7882  df-1st 8005  df-2nd 8006  df-supp 8184  df-tpos 8250  df-frecs 8306  df-wrecs 8337  df-recs 8386  df-rdg 8425  df-1o 8483  df-2o 8484  df-er 8724  df-map 8856  df-pm 8857  df-ixp 8933  df-en 8981  df-dom 8982  df-sdom 8983  df-fin 8984  df-fsupp 9361  df-sup 9441  df-oi 9511  df-card 10027  df-pnf 11352  df-mnf 11353  df-xr 11354  df-ltxr 11355  df-le 11356  df-sub 11550  df-neg 11551  df-nn 12343  df-2 12412  df-3 12413  df-4 12414  df-5 12415  df-6 12416  df-7 12417  df-8 12418  df-9 12419  df-n0 12614  df-z 12701  df-dec 12822  df-uz 12973  df-fz 13647  df-fzo 13796  df-seq 14152  df-hash 14482  df-struct 17334  df-sets 17351  df-slot 17369  df-ndx 17381  df-base 17397  df-ress 17418  df-plusg 17450  df-mulr 17451  df-starv 17452  df-sca 17453  df-vsca 17454  df-ip 17455  df-tset 17456  df-ple 17457  df-ds 17459  df-unif 17460  df-hom 17461  df-cco 17462  df-0g 17621  df-gsum 17622  df-prds 17627  df-pws 17629  df-mre 17765  df-mrc 17766  df-acs 17768  df-mgm 18825  df-sgrp 18917  df-mnd 18933  df-mhm 18987  df-submnd 18988  df-grp 19156  df-minusg 19157  df-sbg 19158  df-mulg 19287  df-subg 19342  df-ghm 19437  df-cntz 19540  df-cmn 20005  df-abl 20006  df-mgp 20370  df-rng 20384  df-ur 20417  df-srg 20422  df-ring 20470  df-cring 20471  df-oppr 20576  df-dvdsr 20596  df-unit 20597  df-invr 20627  df-rhm 20711  df-nzr 20772  df-subrng 20807  df-subrg 20831  df-rlreg 20955  df-domn 20956  df-idom 20957  df-lmod 21146  df-lss 21216  df-lsp 21256  df-cnfld 21688  df-assa 22170  df-asp 22171  df-ascl 22172  df-psr 22226  df-mvr 22227  df-mpl 22228  df-opsr 22230  df-evls 22392  df-evl 22393  df-psr1 22507  df-vr1 22508  df-ply1 22509  df-coe1 22510  df-evl1 22643  df-mdeg 26382  df-deg1 26383  df-mon1 26458  df-uc1p 26459  df-q1p 26460  df-r1p 26461
This theorem is used by:  fta1glem2  26496
  Copyright terms: Public domain W3C validator