Metamath Proof Explorer


Theorem dmncan1

Description: Cancellation law for domains. (Contributed by Jeff Madsen, 6-Jan-2011)

Ref Expression
Hypotheses dmncan.1 G=1stR
dmncan.2 H=2ndR
dmncan.3 X=ranG
dmncan.4 Z=GIdG
Assertion dmncan1 RDmnAXBXCXAZAHB=AHCB=C

Proof

Step Hyp Ref Expression
1 dmncan.1 G=1stR
2 dmncan.2 H=2ndR
3 dmncan.3 X=ranG
4 dmncan.4 Z=GIdG
5 dmnrngo RDmnRRingOps
6 eqid /gG=/gG
7 1 2 3 6 rngosubdi RRingOpsAXBXCXAHB/gGC=AHB/gGAHC
8 5 7 sylan RDmnAXBXCXAHB/gGC=AHB/gGAHC
9 8 adantr RDmnAXBXCXAZAHB/gGC=AHB/gGAHC
10 9 eqeq1d RDmnAXBXCXAZAHB/gGC=ZAHB/gGAHC=Z
11 1 rngogrpo RRingOpsGGrpOp
12 5 11 syl RDmnGGrpOp
13 3 6 grpodivcl GGrpOpBXCXB/gGCX
14 13 3expb GGrpOpBXCXB/gGCX
15 12 14 sylan RDmnBXCXB/gGCX
16 15 adantlr RDmnAXBXCXB/gGCX
17 1 2 3 4 dmnnzd RDmnAXB/gGCXAHB/gGC=ZA=ZB/gGC=Z
18 17 3exp2 RDmnAXB/gGCXAHB/gGC=ZA=ZB/gGC=Z
19 18 imp31 RDmnAXB/gGCXAHB/gGC=ZA=ZB/gGC=Z
20 16 19 syldan RDmnAXBXCXAHB/gGC=ZA=ZB/gGC=Z
21 20 exp43 RDmnAXBXCXAHB/gGC=ZA=ZB/gGC=Z
22 21 3imp2 RDmnAXBXCXAHB/gGC=ZA=ZB/gGC=Z
23 neor A=ZB/gGC=ZAZB/gGC=Z
24 22 23 imbitrdi RDmnAXBXCXAHB/gGC=ZAZB/gGC=Z
25 24 com23 RDmnAXBXCXAZAHB/gGC=ZB/gGC=Z
26 25 imp RDmnAXBXCXAZAHB/gGC=ZB/gGC=Z
27 10 26 sylbird RDmnAXBXCXAZAHB/gGAHC=ZB/gGC=Z
28 12 adantr RDmnAXBXCXGGrpOp
29 1 2 3 rngocl RRingOpsAXBXAHBX
30 29 3adant3r3 RRingOpsAXBXCXAHBX
31 5 30 sylan RDmnAXBXCXAHBX
32 1 2 3 rngocl RRingOpsAXCXAHCX
33 32 3adant3r2 RRingOpsAXBXCXAHCX
34 5 33 sylan RDmnAXBXCXAHCX
35 3 4 6 grpoeqdivid GGrpOpAHBXAHCXAHB=AHCAHB/gGAHC=Z
36 28 31 34 35 syl3anc RDmnAXBXCXAHB=AHCAHB/gGAHC=Z
37 36 adantr RDmnAXBXCXAZAHB=AHCAHB/gGAHC=Z
38 3 4 6 grpoeqdivid GGrpOpBXCXB=CB/gGC=Z
39 38 3expb GGrpOpBXCXB=CB/gGC=Z
40 12 39 sylan RDmnBXCXB=CB/gGC=Z
41 40 3adantr1 RDmnAXBXCXB=CB/gGC=Z
42 41 adantr RDmnAXBXCXAZB=CB/gGC=Z
43 27 37 42 3imtr4d RDmnAXBXCXAZAHB=AHCB=C