Theorem isdivrngo 36108

Description: The predicate "is a division ring". (Contributed by FL, 6-Sep-2009.) (New usage is discouraged.)

Assertion

Ref	Expression
isdivrngo	⊢ (𝐻 ∈ 𝐴 → (⟨𝐺, 𝐻⟩ ∈ DivRingOps ↔ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)))

Proof of Theorem isdivrngo

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

Step	Hyp	Ref	Expression
1		df-br 5075	. . . . 5 ⊢ (𝐺DivRingOps𝐻 ↔ ⟨𝐺, 𝐻⟩ ∈ DivRingOps)
2		df-drngo 36107	. . . . . . 7 ⊢ DivRingOps = {⟨𝑥, 𝑦⟩ ∣ (⟨𝑥, 𝑦⟩ ∈ RingOps ∧ (𝑦 ↾ ((ran 𝑥 ∖ {(GId‘𝑥)}) × (ran 𝑥 ∖ {(GId‘𝑥)}))) ∈ GrpOp)}
3	2	relopabiv 5730	. . . . . 6 ⊢ Rel DivRingOps
4	3	brrelex1i 5643	. . . . 5 ⊢ (𝐺DivRingOps𝐻 → 𝐺 ∈ V)
5	1, 4	sylbir 234	. . . 4 ⊢ (⟨𝐺, 𝐻⟩ ∈ DivRingOps → 𝐺 ∈ V)
6	5	anim1i 615	. . 3 ⊢ ((⟨𝐺, 𝐻⟩ ∈ DivRingOps ∧ 𝐻 ∈ 𝐴) → (𝐺 ∈ V ∧ 𝐻 ∈ 𝐴))
7	6	ancoms 459	. 2 ⊢ ((𝐻 ∈ 𝐴 ∧ ⟨𝐺, 𝐻⟩ ∈ DivRingOps) → (𝐺 ∈ V ∧ 𝐻 ∈ 𝐴))
8		rngoablo2 36067	. . . . 5 ⊢ (⟨𝐺, 𝐻⟩ ∈ RingOps → 𝐺 ∈ AbelOp)
9		elex 3450	. . . . 5 ⊢ (𝐺 ∈ AbelOp → 𝐺 ∈ V)
10	8, 9	syl 17	. . . 4 ⊢ (⟨𝐺, 𝐻⟩ ∈ RingOps → 𝐺 ∈ V)
11	10	ad2antrl 725	. . 3 ⊢ ((𝐻 ∈ 𝐴 ∧ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)) → 𝐺 ∈ V)
12		simpl 483	. . 3 ⊢ ((𝐻 ∈ 𝐴 ∧ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)) → 𝐻 ∈ 𝐴)
13	11, 12	jca 512	. 2 ⊢ ((𝐻 ∈ 𝐴 ∧ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)) → (𝐺 ∈ V ∧ 𝐻 ∈ 𝐴))
14		df-drngo 36107	. . . 4 ⊢ DivRingOps = {⟨𝑔, ℎ⟩ ∣ (⟨𝑔, ℎ⟩ ∈ RingOps ∧ (ℎ ↾ ((ran 𝑔 ∖ {(GId‘𝑔)}) × (ran 𝑔 ∖ {(GId‘𝑔)}))) ∈ GrpOp)}
15	14	eleq2i 2830	. . 3 ⊢ (⟨𝐺, 𝐻⟩ ∈ DivRingOps ↔ ⟨𝐺, 𝐻⟩ ∈ {⟨𝑔, ℎ⟩ ∣ (⟨𝑔, ℎ⟩ ∈ RingOps ∧ (ℎ ↾ ((ran 𝑔 ∖ {(GId‘𝑔)}) × (ran 𝑔 ∖ {(GId‘𝑔)}))) ∈ GrpOp)})
16		opeq1 4804	. . . . . 6 ⊢ (𝑔 = 𝐺 → ⟨𝑔, ℎ⟩ = ⟨𝐺, ℎ⟩)
17	16	eleq1d 2823	. . . . 5 ⊢ (𝑔 = 𝐺 → (⟨𝑔, ℎ⟩ ∈ RingOps ↔ ⟨𝐺, ℎ⟩ ∈ RingOps))
18		rneq 5845	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → ran 𝑔 = ran 𝐺)
19		fveq2 6774	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (GId‘𝑔) = (GId‘𝐺))
20	19	sneqd 4573	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → {(GId‘𝑔)} = {(GId‘𝐺)})
21	18, 20	difeq12d 4058	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (ran 𝑔 ∖ {(GId‘𝑔)}) = (ran 𝐺 ∖ {(GId‘𝐺)}))
22	21	sqxpeqd 5621	. . . . . . 7 ⊢ (𝑔 = 𝐺 → ((ran 𝑔 ∖ {(GId‘𝑔)}) × (ran 𝑔 ∖ {(GId‘𝑔)})) = ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)})))
23	22	reseq2d 5891	. . . . . 6 ⊢ (𝑔 = 𝐺 → (ℎ ↾ ((ran 𝑔 ∖ {(GId‘𝑔)}) × (ran 𝑔 ∖ {(GId‘𝑔)}))) = (ℎ ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))))
24	23	eleq1d 2823	. . . . 5 ⊢ (𝑔 = 𝐺 → ((ℎ ↾ ((ran 𝑔 ∖ {(GId‘𝑔)}) × (ran 𝑔 ∖ {(GId‘𝑔)}))) ∈ GrpOp ↔ (ℎ ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp))
25	17, 24	anbi12d 631	. . . 4 ⊢ (𝑔 = 𝐺 → ((⟨𝑔, ℎ⟩ ∈ RingOps ∧ (ℎ ↾ ((ran 𝑔 ∖ {(GId‘𝑔)}) × (ran 𝑔 ∖ {(GId‘𝑔)}))) ∈ GrpOp) ↔ (⟨𝐺, ℎ⟩ ∈ RingOps ∧ (ℎ ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)))
26		opeq2 4805	. . . . . 6 ⊢ (ℎ = 𝐻 → ⟨𝐺, ℎ⟩ = ⟨𝐺, 𝐻⟩)
27	26	eleq1d 2823	. . . . 5 ⊢ (ℎ = 𝐻 → (⟨𝐺, ℎ⟩ ∈ RingOps ↔ ⟨𝐺, 𝐻⟩ ∈ RingOps))
28		reseq1 5885	. . . . . 6 ⊢ (ℎ = 𝐻 → (ℎ ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) = (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))))
29	28	eleq1d 2823	. . . . 5 ⊢ (ℎ = 𝐻 → ((ℎ ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp ↔ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp))
30	27, 29	anbi12d 631	. . . 4 ⊢ (ℎ = 𝐻 → ((⟨𝐺, ℎ⟩ ∈ RingOps ∧ (ℎ ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp) ↔ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)))
31	25, 30	opelopabg 5451	. . 3 ⊢ ((𝐺 ∈ V ∧ 𝐻 ∈ 𝐴) → (⟨𝐺, 𝐻⟩ ∈ {⟨𝑔, ℎ⟩ ∣ (⟨𝑔, ℎ⟩ ∈ RingOps ∧ (ℎ ↾ ((ran 𝑔 ∖ {(GId‘𝑔)}) × (ran 𝑔 ∖ {(GId‘𝑔)}))) ∈ GrpOp)} ↔ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)))
32	15, 31	syl5bb 283	. 2 ⊢ ((𝐺 ∈ V ∧ 𝐻 ∈ 𝐴) → (⟨𝐺, 𝐻⟩ ∈ DivRingOps ↔ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)))
33	7, 13, 32	pm5.21nd 799	1 ⊢ (𝐻 ∈ 𝐴 → (⟨𝐺, 𝐻⟩ ∈ DivRingOps ↔ (⟨𝐺, 𝐻⟩ ∈ RingOps ∧ (𝐻 ↾ ((ran 𝐺 ∖ {(GId‘𝐺)}) × (ran 𝐺 ∖ {(GId‘𝐺)}))) ∈ GrpOp)))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1539   ∈ wcel 2106  Vcvv 3432   ∖ cdif 3884  {csn 4561  ⟨cop 4567   class class class wbr 5074  {copab 5136   × cxp 5587  ran crn 5590   ↾ cres 5591  ‘cfv 6433  GrpOpcgr 28851  GIdcgi 28852  AbelOpcablo 28906  RingOpscrngo 36052  DivRingOpscdrng 36106

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  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 2709  ax-sep 5223  ax-nul 5230  ax-pr 5352  ax-un 7588

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ral 3069  df-rex 3070  df-rab 3073  df-v 3434  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-nul 4257  df-if 4460  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-br 5075  df-opab 5137  df-mpt 5158  df-id 5489  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-fv 6441  df-ov 7278  df-1st 7831  df-2nd 7832  df-rngo 36053  df-drngo 36107

This theorem is referenced by:  zrdivrng  36111  isdrngo1  36114