Metamath Proof Explorer


Theorem undif3VD

Description: The first equality of Exercise 13 of TakeutiZaring p. 22. Virtual deduction proof of undif3 . The following User's Proof is a Virtual Deduction proof completed automatically by the tools program completeusersproof.cmd, which invokes Mel L. O'Cat's mmj2 and Norm Megill's Metamath Proof Assistant. undif3 is undif3VD without virtual deductions and was automatically derived from undif3VD .

1:: |- ( x e. ( A u. ( B \ C ) ) <-> ( x e. A \/ x e. ( B \ C ) ) )
2:: |- ( x e. ( B \ C ) <-> ( x e. B /\ -. x e. C ) )
3:2: |- ( ( x e. A \/ x e. ( B \ C ) ) <-> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
4:1,3: |- ( x e. ( A u. ( B \ C ) ) <-> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
5:: |- (. x e. A ->. x e. A ).
6:5: |- (. x e. A ->. ( x e. A \/ x e. B ) ).
7:5: |- (. x e. A ->. ( -. x e. C \/ x e. A ) ).
8:6,7: |- (. x e. A ->. ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) ).
9:8: |- ( x e. A -> ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) )
10:: |- (. ( x e. B /\ -. x e. C ) ->. ( x e. B /\ -. x e. C ) ).
11:10: |- (. ( x e. B /\ -. x e. C ) ->. x e. B ).
12:10: |- (. ( x e. B /\ -. x e. C ) ->. -. x e. C ).
13:11: |- (. ( x e. B /\ -. x e. C ) ->. ( x e. A \/ x e. B ) ).
14:12: |- (. ( x e. B /\ -. x e. C ) ->. ( -. x e. C \/ x e. A ) ).
15:13,14: |- (. ( x e. B /\ -. x e. C ) ->. ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) ).
16:15: |- ( ( x e. B /\ -. x e. C ) -> ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) )
17:9,16: |- ( ( x e. A \/ ( x e. B /\ -. x e. C ) ) -> ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) )
18:: |- (. ( x e. A /\ -. x e. C ) ->. ( x e. A /\ -. x e. C ) ).
19:18: |- (. ( x e. A /\ -. x e. C ) ->. x e. A ).
20:18: |- (. ( x e. A /\ -. x e. C ) ->. -. x e. C ).
21:18: |- (. ( x e. A /\ -. x e. C ) ->. ( x e. A \/ ( x e. B /\ -. x e. C ) ) ).
22:21: |- ( ( x e. A /\ -. x e. C ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
23:: |- (. ( x e. A /\ x e. A ) ->. ( x e. A /\ x e. A ) ).
24:23: |- (. ( x e. A /\ x e. A ) ->. x e. A ).
25:24: |- (. ( x e. A /\ x e. A ) ->. ( x e. A \/ ( x e. B /\ -. x e. C ) ) ).
26:25: |- ( ( x e. A /\ x e. A ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
27:10: |- (. ( x e. B /\ -. x e. C ) ->. ( x e. A \/ ( x e. B /\ -. x e. C ) ) ).
28:27: |- ( ( x e. B /\ -. x e. C ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
29:: |- (. ( x e. B /\ x e. A ) ->. ( x e. B /\ x e. A ) ).
30:29: |- (. ( x e. B /\ x e. A ) ->. x e. A ).
31:30: |- (. ( x e. B /\ x e. A ) ->. ( x e. A \/ ( x e. B /\ -. x e. C ) ) ).
32:31: |- ( ( x e. B /\ x e. A ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
33:22,26: |- ( ( ( x e. A /\ -. x e. C ) \/ ( x e. A /\ x e. A ) ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
34:28,32: |- ( ( ( x e. B /\ -. x e. C ) \/ ( x e. B /\ x e. A ) ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
35:33,34: |- ( ( ( ( x e. A /\ -. x e. C ) \/ ( x e. A /\ x e. A ) ) \/ ( ( x e. B /\ -. x e. C ) \/ ( x e. B /\ x e. A ) ) ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
36:: |- ( ( ( ( x e. A /\ -. x e. C ) \/ ( x e. A /\ x e. A ) ) \/ ( ( x e. B /\ -. x e. C ) \/ ( x e. B /\ x e. A ) ) ) <-> ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) )
37:36,35: |- ( ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) -> ( x e. A \/ ( x e. B /\ -. x e. C ) ) )
38:17,37: |- ( ( x e. A \/ ( x e. B /\ -. x e. C ) ) <-> ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) )
39:: |- ( x e. ( C \ A ) <-> ( x e. C /\ -. x e. A ) )
40:39: |- ( -. x e. ( C \ A ) <-> -. ( x e. C /\ -. x e. A ) )
41:: |- ( -. ( x e. C /\ -. x e. A ) <-> ( -. x e. C \/ x e. A ) )
42:40,41: |- ( -. x e. ( C \ A ) <-> ( -. x e. C \/ x e. A ) )
43:: |- ( x e. ( A u. B ) <-> ( x e. A \/ x e. B ) )
44:43,42: |- ( ( x e. ( A u. B ) /\ -. x e. ( C \ A ) ) <-> ( ( x e. A \/ x e. B ) /\ ( -. x e. C /\ x e. A ) ) )
45:: |- ( x e. ( ( A u. B ) \ ( C \ A ) ) <-> ( x e. ( A u. B ) /\ -. x e. ( C \ A ) ) )
46:45,44: |- ( x e. ( ( A u. B ) \ ( C \ A ) ) <-> ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) )
47:4,38: |- ( x e. ( A u. ( B \ C ) ) <-> ( ( x e. A \/ x e. B ) /\ ( -. x e. C \/ x e. A ) ) )
48:46,47: |- ( x e. ( A u. ( B \ C ) ) <-> x e. ( ( A u. B ) \ ( C \ A ) ) )
49:48: |- A. x ( x e. ( A u. ( B \ C ) ) <-> x e. ( ( A u. B ) \ ( C \ A ) ) )
qed:49: |- ( A u. ( B \ C ) ) = ( ( A u. B ) \ ( C \ A ) )
(Contributed by Alan Sare, 17-Apr-2012) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Assertion undif3VD ABC=ABCA

Proof

Step Hyp Ref Expression
1 elun xABCxAxBC
2 eldif xBCxB¬xC
3 2 orbi2i xAxBCxAxB¬xC
4 1 3 bitri xABCxAxB¬xC
5 idn1 xAxA
6 orc xAxAxB
7 5 6 e1a xAxAxB
8 olc xA¬xCxA
9 5 8 e1a xA¬xCxA
10 pm3.2 xAxB¬xCxAxAxB¬xCxA
11 7 9 10 e11 xAxAxB¬xCxA
12 11 in1 xAxAxB¬xCxA
13 idn1 xB¬xCxB¬xC
14 simpl xB¬xCxB
15 13 14 e1a xB¬xCxB
16 olc xBxAxB
17 15 16 e1a xB¬xCxAxB
18 simpr xB¬xC¬xC
19 13 18 e1a xB¬xC¬xC
20 orc ¬xC¬xCxA
21 19 20 e1a xB¬xC¬xCxA
22 17 21 10 e11 xB¬xCxAxB¬xCxA
23 22 in1 xB¬xCxAxB¬xCxA
24 12 23 jaoi xAxB¬xCxAxB¬xCxA
25 anddi xAxB¬xCxAxA¬xCxAxAxB¬xCxBxA
26 25 bicomi xA¬xCxAxAxB¬xCxBxAxAxB¬xCxA
27 idn1 xA¬xCxA¬xC
28 simpl xA¬xCxA
29 28 orcd xA¬xCxAxB¬xC
30 27 29 e1a xA¬xCxAxB¬xC
31 30 in1 xA¬xCxAxB¬xC
32 idn1 xAxAxAxA
33 simpl xAxAxA
34 32 33 e1a xAxAxA
35 orc xAxAxB¬xC
36 34 35 e1a xAxAxAxB¬xC
37 36 in1 xAxAxAxB¬xC
38 31 37 jaoi xA¬xCxAxAxAxB¬xC
39 olc xB¬xCxAxB¬xC
40 13 39 e1a xB¬xCxAxB¬xC
41 40 in1 xB¬xCxAxB¬xC
42 idn1 xBxAxBxA
43 simpr xBxAxA
44 42 43 e1a xBxAxA
45 44 35 e1a xBxAxAxB¬xC
46 45 in1 xBxAxAxB¬xC
47 41 46 jaoi xB¬xCxBxAxAxB¬xC
48 38 47 jaoi xA¬xCxAxAxB¬xCxBxAxAxB¬xC
49 26 48 sylbir xAxB¬xCxAxAxB¬xC
50 24 49 impbii xAxB¬xCxAxB¬xCxA
51 4 50 bitri xABCxAxB¬xCxA
52 eldif xABCAxAB¬xCA
53 elun xABxAxB
54 eldif xCAxC¬xA
55 54 notbii ¬xCA¬xC¬xA
56 pm4.53 ¬xC¬xA¬xCxA
57 55 56 bitri ¬xCA¬xCxA
58 53 57 anbi12i xAB¬xCAxAxB¬xCxA
59 52 58 bitri xABCAxAxB¬xCxA
60 51 59 bitr4i xABCxABCA
61 60 ax-gen xxABCxABCA
62 dfcleq ABC=ABCAxxABCxABCA
63 62 biimpri xxABCxABCAABC=ABCA
64 61 63 e0a ABC=ABCA