Metamath Proof Explorer


Theorem drngpropd

Description: If two structures have the same group components (properties), one is a division ring iff the other one is. (Contributed by Mario Carneiro, 27-Jun-2015)

Ref Expression
Hypotheses drngpropd.1 φB=BaseK
drngpropd.2 φB=BaseL
drngpropd.3 φxByBx+Ky=x+Ly
drngpropd.4 φxByBxKy=xLy
Assertion drngpropd φKDivRingLDivRing

Proof

Step Hyp Ref Expression
1 drngpropd.1 φB=BaseK
2 drngpropd.2 φB=BaseL
3 drngpropd.3 φxByBx+Ky=x+Ly
4 drngpropd.4 φxByBxKy=xLy
5 1 2 4 unitpropd φUnitK=UnitL
6 5 adantr φKRingUnitK=UnitL
7 1 2 eqtr3d φBaseK=BaseL
8 7 adantr φKRingBaseK=BaseL
9 1 adantr φKRingB=BaseK
10 2 adantr φKRingB=BaseL
11 3 adantlr φKRingxByBx+Ky=x+Ly
12 9 10 11 grpidpropd φKRing0K=0L
13 12 sneqd φKRing0K=0L
14 8 13 difeq12d φKRingBaseK0K=BaseL0L
15 6 14 eqeq12d φKRingUnitK=BaseK0KUnitL=BaseL0L
16 15 pm5.32da φKRingUnitK=BaseK0KKRingUnitL=BaseL0L
17 1 2 3 4 ringpropd φKRingLRing
18 17 anbi1d φKRingUnitL=BaseL0LLRingUnitL=BaseL0L
19 16 18 bitrd φKRingUnitK=BaseK0KLRingUnitL=BaseL0L
20 eqid BaseK=BaseK
21 eqid UnitK=UnitK
22 eqid 0K=0K
23 20 21 22 isdrng KDivRingKRingUnitK=BaseK0K
24 eqid BaseL=BaseL
25 eqid UnitL=UnitL
26 eqid 0L=0L
27 24 25 26 isdrng LDivRingLRingUnitL=BaseL0L
28 19 23 27 3bitr4g φKDivRingLDivRing