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