Metamath Proof Explorer


Theorem grpoidinvlem2

Description: Lemma for grpoidinv . (Contributed by NM, 10-Oct-2006) (New usage is discouraged.)

Ref Expression
Hypothesis grpfo.1 X=ranG
Assertion grpoidinvlem2 GGrpOpYXAXUGY=YYGA=UAGYGAGY=AGY

Proof

Step Hyp Ref Expression
1 grpfo.1 X=ranG
2 simprr GGrpOpYXAXAX
3 simprl GGrpOpYXAXYX
4 1 grpocl GGrpOpAXYXAGYX
5 4 3com23 GGrpOpYXAXAGYX
6 5 3expb GGrpOpYXAXAGYX
7 2 3 6 3jca GGrpOpYXAXAXYXAGYX
8 1 grpoass GGrpOpAXYXAGYXAGYGAGY=AGYGAGY
9 7 8 syldan GGrpOpYXAXAGYGAGY=AGYGAGY
10 9 adantr GGrpOpYXAXUGY=YYGA=UAGYGAGY=AGYGAGY
11 oveq1 YGA=UYGAGY=UGY
12 11 adantl UGY=YYGA=UYGAGY=UGY
13 simpl UGY=YYGA=UUGY=Y
14 12 13 eqtr2d UGY=YYGA=UY=YGAGY
15 id YXAXYXYXAXYX
16 15 3anidm13 YXAXYXAXYX
17 1 grpoass GGrpOpYXAXYXYGAGY=YGAGY
18 16 17 sylan2 GGrpOpYXAXYGAGY=YGAGY
19 14 18 sylan9eqr GGrpOpYXAXUGY=YYGA=UY=YGAGY
20 19 eqcomd GGrpOpYXAXUGY=YYGA=UYGAGY=Y
21 20 oveq2d GGrpOpYXAXUGY=YYGA=UAGYGAGY=AGY
22 10 21 eqtrd GGrpOpYXAXUGY=YYGA=UAGYGAGY=AGY