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 = ran G
Assertion grpoidinvlem2 G GrpOp Y X A X U G Y = Y Y G A = U A G Y G A G Y = A G Y

Proof

Step Hyp Ref Expression
1 grpfo.1 X = ran G
2 simprr G GrpOp Y X A X A X
3 simprl G GrpOp Y X A X Y X
4 1 grpocl G GrpOp A X Y X A G Y X
5 4 3com23 G GrpOp Y X A X A G Y X
6 5 3expb G GrpOp Y X A X A G Y X
7 2 3 6 3jca G GrpOp Y X A X A X Y X A G Y X
8 1 grpoass G GrpOp A X Y X A G Y X A G Y G A G Y = A G Y G A G Y
9 7 8 syldan G GrpOp Y X A X A G Y G A G Y = A G Y G A G Y
10 9 adantr G GrpOp Y X A X U G Y = Y Y G A = U A G Y G A G Y = A G Y G A G Y
11 oveq1 Y G A = U Y G A G Y = U G Y
12 11 adantl U G Y = Y Y G A = U Y G A G Y = U G Y
13 simpl U G Y = Y Y G A = U U G Y = Y
14 12 13 eqtr2d U G Y = Y Y G A = U Y = Y G A G Y
15 id Y X A X Y X Y X A X Y X
16 15 3anidm13 Y X A X Y X A X Y X
17 1 grpoass G GrpOp Y X A X Y X Y G A G Y = Y G A G Y
18 16 17 sylan2 G GrpOp Y X A X Y G A G Y = Y G A G Y
19 14 18 sylan9eqr G GrpOp Y X A X U G Y = Y Y G A = U Y = Y G A G Y
20 19 eqcomd G GrpOp Y X A X U G Y = Y Y G A = U Y G A G Y = Y
21 20 oveq2d G GrpOp Y X A X U G Y = Y Y G A = U A G Y G A G Y = A G Y
22 10 21 eqtrd G GrpOp Y X A X U G Y = Y Y G A = U A G Y G A G Y = A G Y