Metamath Proof Explorer


Theorem tratrbVD

Description: Virtual deduction proof of tratrb . The following user's proof is completed by invoking mmj2's unify command and using mmj2's StepSelector to pick all remaining steps of the Metamath proof.

1:: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ).
2:1,?: e1a |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. Tr A ).
3:1,?: e1a |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) ).
4:1,?: e1a |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. B e. A ).
5:: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. ( x e. y /\ y e. B ) ).
6:5,?: e2 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. x e. y ).
7:5,?: e2 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. y e. B ).
8:2,7,4,?: e121 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. y e. A ).
9:2,6,8,?: e122 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. x e. A ).
10:: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) , B e. x ->. B e. x ).
11:6,7,10,?: e223 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) , B e. x ->. ( x e. y /\ y e. B /\ B e. x ) ).
12:11: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. ( B e. x -> ( x e. y /\ y e. B /\ B e. x ) ) ).
13:: |- -. ( x e. y /\ y e. B /\ B e. x )
14:12,13,?: e20 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. -. B e. x ).
15:: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) , x = B ->. x = B ).
16:7,15,?: e23 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) , x = B ->. y e. x ).
17:6,16,?: e23 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) , x = B ->. ( x e. y /\ y e. x ) ).
18:17: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. ( x = B -> ( x e. y /\ y e. x ) ) ).
19:: |- -. ( x e. y /\ y e. x )
20:18,19,?: e20 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. -. x = B ).
21:3,?: e1a |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. A. y e. A A. x e. A ( x e. y \/ y e. x \/ x = y ) ).
22:21,9,4,?: e121 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. [. x / x ]. [. B / y ]. ( x e. y \/ y e. x \/ x = y ) ).
23:22,?: e2 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. [. B / y ]. ( x e. y \/ y e. x \/ x = y ) ).
24:4,23,?: e12 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. ( x e. B \/ B e. x \/ x = B ) ).
25:14,20,24,?: e222 |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) , ( x e. y /\ y e. B ) ->. x e. B ).
26:25: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. ( ( x e. y /\ y e. B ) -> x e. B ) ).
27:: |- ( A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) -> A. y A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) )
28:27,?: e0a |- ( ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) -> A. y ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) )
29:28,26: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. A. y ( ( x e. y /\ y e. B ) -> x e. B ) ).
30:: |- ( A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) -> A. x A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) )
31:30,?: e0a |- ( ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) -> A. x ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) )
32:31,29: |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. A. x A. y ( ( x e. y /\ y e. B ) -> x e. B ) ).
33:32,?: e1a |- (. ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) ->. Tr B ).
qed:33: |- ( ( Tr A /\ A. x e. A A. y e. A ( x e. y \/ y e. x \/ x = y ) /\ B e. A ) -> Tr B )
(Contributed by Alan Sare, 31-Dec-2011) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Assertion tratrbVD TrAxAyAxyyxx=yBATrB

Proof

Step Hyp Ref Expression
1 hbra1 xAyAxyyxx=yxxAyAxyyxx=y
2 alrim3con13v xAyAxyyxx=yxxAyAxyyxx=yTrAxAyAxyyxx=yBAxTrAxAyAxyyxx=yBA
3 1 2 e0a TrAxAyAxyyxx=yBAxTrAxAyAxyyxx=yBA
4 ax-5 xAyxA
5 hbra1 yAxyyxx=yyyAxyyxx=y
6 4 5 hbral xAyAxyyxx=yyxAyAxyyxx=y
7 alrim3con13v xAyAxyyxx=yyxAyAxyyxx=yTrAxAyAxyyxx=yBAyTrAxAyAxyyxx=yBA
8 6 7 e0a TrAxAyAxyyxx=yBAyTrAxAyAxyyxx=yBA
9 idn2 TrAxAyAxyyxx=yBA,xyyBxyyB
10 simpl xyyBxy
11 9 10 e2 TrAxAyAxyyxx=yBA,xyyBxy
12 simpr xyyByB
13 9 12 e2 TrAxAyAxyyxx=yBA,xyyByB
14 idn3 TrAxAyAxyyxx=yBA,xyyB,BxBx
15 pm3.2an3 xyyBBxxyyBBx
16 11 13 14 15 e223 TrAxAyAxyyxx=yBA,xyyB,BxxyyBBx
17 16 in3 TrAxAyAxyyxx=yBA,xyyBBxxyyBBx
18 en3lp ¬xyyBBx
19 con3 BxxyyBBx¬xyyBBx¬Bx
20 17 18 19 e20 TrAxAyAxyyxx=yBA,xyyB¬Bx
21 idn3 TrAxAyAxyyxx=yBA,xyyB,x=Bx=B
22 eleq2 x=ByxyB
23 22 biimprcd yBx=Byx
24 13 21 23 e23 TrAxAyAxyyxx=yBA,xyyB,x=Byx
25 pm3.2 xyyxxyyx
26 11 24 25 e23 TrAxAyAxyyxx=yBA,xyyB,x=Bxyyx
27 26 in3 TrAxAyAxyyxx=yBA,xyyBx=Bxyyx
28 en2lp ¬xyyx
29 con3 x=Bxyyx¬xyyx¬x=B
30 27 28 29 e20 TrAxAyAxyyxx=yBA,xyyB¬x=B
31 idn1 TrAxAyAxyyxx=yBATrAxAyAxyyxx=yBA
32 simp3 TrAxAyAxyyxx=yBABA
33 31 32 e1a TrAxAyAxyyxx=yBABA
34 simp2 TrAxAyAxyyxx=yBAxAyAxyyxx=y
35 31 34 e1a TrAxAyAxyyxx=yBAxAyAxyyxx=y
36 ralcom xAyAxyyxx=yyAxAxyyxx=y
37 36 biimpi xAyAxyyxx=yyAxAxyyxx=y
38 35 37 e1a TrAxAyAxyyxx=yBAyAxAxyyxx=y
39 simp1 TrAxAyAxyyxx=yBATrA
40 31 39 e1a TrAxAyAxyyxx=yBATrA
41 trel TrAyBBAyA
42 41 expd TrAyBBAyA
43 40 13 33 42 e121 TrAxAyAxyyxx=yBA,xyyByA
44 trel TrAxyyAxA
45 44 expd TrAxyyAxA
46 40 11 43 45 e122 TrAxAyAxyyxx=yBA,xyyBxA
47 rspsbc2 BAxAyAxAxyyxx=y[˙x/x]˙[˙B/y]˙xyyxx=y
48 47 com13 yAxAxyyxx=yxABA[˙x/x]˙[˙B/y]˙xyyxx=y
49 38 46 33 48 e121 TrAxAyAxyyxx=yBA,xyyB[˙x/x]˙[˙B/y]˙xyyxx=y
50 equid x=x
51 sbceq2a x=x[˙x/x]˙[˙B/y]˙xyyxx=y[˙B/y]˙xyyxx=y
52 50 51 ax-mp [˙x/x]˙[˙B/y]˙xyyxx=y[˙B/y]˙xyyxx=y
53 52 biimpi [˙x/x]˙[˙B/y]˙xyyxx=y[˙B/y]˙xyyxx=y
54 49 53 e2 TrAxAyAxyyxx=yBA,xyyB[˙B/y]˙xyyxx=y
55 sbcoreleleq BA[˙B/y]˙xyyxx=yxBBxx=B
56 55 biimpd BA[˙B/y]˙xyyxx=yxBBxx=B
57 33 54 56 e12 TrAxAyAxyyxx=yBA,xyyBxBBxx=B
58 3ornot23 ¬Bx¬x=BxBBxx=BxB
59 58 ex ¬Bx¬x=BxBBxx=BxB
60 20 30 57 59 e222 TrAxAyAxyyxx=yBA,xyyBxB
61 60 in2 TrAxAyAxyyxx=yBAxyyBxB
62 8 61 gen11nv TrAxAyAxyyxx=yBAyxyyBxB
63 3 62 gen11nv TrAxAyAxyyxx=yBAxyxyyBxB
64 dftr2 TrBxyxyyBxB
65 64 biimpri xyxyyBxBTrB
66 63 65 e1a TrAxAyAxyyxx=yBATrB
67 66 in1 TrAxAyAxyyxx=yBATrB