Theorem pf1rcl 21613

Description: Reverse closure for the set of polynomial functions. (Contributed by Mario Carneiro, 12-Jun-2015.)

Hypothesis

Ref	Expression
pf1rcl.q	⊢ 𝑄 = ran (eval1‘𝑅)

Assertion

Ref	Expression
pf1rcl	⊢ (𝑋 ∈ 𝑄 → 𝑅 ∈ CRing)

Proof of Theorem pf1rcl

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		n0i 4279	. 2 ⊢ (𝑋 ∈ 𝑄 → ¬ 𝑄 = ∅)
2		pf1rcl.q	. . . 4 ⊢ 𝑄 = ran (eval1‘𝑅)
3		eqid 2736	. . . . . 6 ⊢ (eval1‘𝑅) = (eval1‘𝑅)
4		eqid 2736	. . . . . 6 ⊢ (1o eval 𝑅) = (1o eval 𝑅)
5		eqid 2736	. . . . . 6 ⊢ (Base‘𝑅) = (Base‘𝑅)
6	3, 4, 5	evl1fval 21592	. . . . 5 ⊢ (eval1‘𝑅) = ((𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∘ (1o eval 𝑅))
7	6	rneqi 5872	. . . 4 ⊢ ran (eval1‘𝑅) = ran ((𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∘ (1o eval 𝑅))
8		rnco2 6185	. . . 4 ⊢ ran ((𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∘ (1o eval 𝑅)) = ((𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) “ ran (1o eval 𝑅))
9	2, 7, 8	3eqtri 2768	. . 3 ⊢ 𝑄 = ((𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) “ ran (1o eval 𝑅))
10		inss2 4175	. . . . 5 ⊢ (dom (𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∩ ran (1o eval 𝑅)) ⊆ ran (1o eval 𝑅)
11		neq0 4291	. . . . . . 7 ⊢ (¬ ran (1o eval 𝑅) = ∅ ↔ ∃𝑥 𝑥 ∈ ran (1o eval 𝑅))
12	4, 5	evlval 21403	. . . . . . . . . . 11 ⊢ (1o eval 𝑅) = ((1o evalSub 𝑅)‘(Base‘𝑅))
13	12	rneqi 5872	. . . . . . . . . 10 ⊢ ran (1o eval 𝑅) = ran ((1o evalSub 𝑅)‘(Base‘𝑅))
14	13	mpfrcl 21393	. . . . . . . . 9 ⊢ (𝑥 ∈ ran (1o eval 𝑅) → (1o ∈ V ∧ 𝑅 ∈ CRing ∧ (Base‘𝑅) ∈ (SubRing‘𝑅)))
15	14	simp2d 1142	. . . . . . . 8 ⊢ (𝑥 ∈ ran (1o eval 𝑅) → 𝑅 ∈ CRing)
16	15	exlimiv 1932	. . . . . . 7 ⊢ (∃𝑥 𝑥 ∈ ran (1o eval 𝑅) → 𝑅 ∈ CRing)
17	11, 16	sylbi 216	. . . . . 6 ⊢ (¬ ran (1o eval 𝑅) = ∅ → 𝑅 ∈ CRing)
18	17	con1i 147	. . . . 5 ⊢ (¬ 𝑅 ∈ CRing → ran (1o eval 𝑅) = ∅)
19		sseq0 4345	. . . . 5 ⊢ (((dom (𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∩ ran (1o eval 𝑅)) ⊆ ran (1o eval 𝑅) ∧ ran (1o eval 𝑅) = ∅) → (dom (𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∩ ran (1o eval 𝑅)) = ∅)
20	10, 18, 19	sylancr 587	. . . 4 ⊢ (¬ 𝑅 ∈ CRing → (dom (𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∩ ran (1o eval 𝑅)) = ∅)
21		imadisj 6012	. . . 4 ⊢ (((𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) “ ran (1o eval 𝑅)) = ∅ ↔ (dom (𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) ∩ ran (1o eval 𝑅)) = ∅)
22	20, 21	sylibr 233	. . 3 ⊢ (¬ 𝑅 ∈ CRing → ((𝑥 ∈ ((Base‘𝑅) ↑m ((Base‘𝑅) ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ (Base‘𝑅) ↦ (1o × {𝑦})))) “ ran (1o eval 𝑅)) = ∅)
23	9, 22	eqtrid 2788	. 2 ⊢ (¬ 𝑅 ∈ CRing → 𝑄 = ∅)
24	1, 23	nsyl2 141	1 ⊢ (𝑋 ∈ 𝑄 → 𝑅 ∈ CRing)

Syntax hints:  ¬ wn 3   → wi 4   = wceq 1540  ∃wex 1780   ∈ wcel 2105  Vcvv 3441   ∩ cin 3896   ⊆ wss 3897  ∅c0 4268  {csn 4572   ↦ cmpt 5172   × cxp 5612  dom cdm 5614  ran crn 5615   “ cima 5617   ∘ ccom 5618  ‘cfv 6473  (class class class)co 7329  1_oc1o 8352   ↑_m cmap 8678  Basecbs 17001  CRingccrg 19871  SubRingcsubrg 20117   evalSub ces 21378   eval cevl 21379  eval₁ce1 21578

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5226  ax-sep 5240  ax-nul 5247  ax-pow 5305  ax-pr 5369  ax-un 7642

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3727  df-csb 3843  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4269  df-if 4473  df-pw 4548  df-sn 4573  df-pr 4575  df-op 4579  df-uni 4852  df-iun 4940  df-br 5090  df-opab 5152  df-mpt 5173  df-id 5512  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-iota 6425  df-fun 6475  df-fn 6476  df-f 6477  df-f1 6478  df-fo 6479  df-f1o 6480  df-fv 6481  df-riota 7286  df-ov 7332  df-oprab 7333  df-mpo 7334  df-evls 21380  df-evl 21381  df-evl1 21580

This theorem is referenced by:  pf1f  21614  pf1mpf  21616  pf1addcl  21617  pf1mulcl  21618  pf1ind  21619