Theorem u4lemaa 585

Description: Lemma for non-tollens implication study.

Assertion

Ref	Expression
u4lemaa	((a ->4 b) ^ a) = (a ^ b)

Proof of Theorem u4lemaa

Step	Hyp	Ref	Expression
1		df-i4 46	. . 3 (a ->4 b) = (((a ^ b) v (a_|_ ^ b)) v ((a_|_ v b) ^ b_|_))
2	1	ran 71	. 2 ((a ->4 b) ^ a) = ((((a ^ b) v (a_|_ ^ b)) v ((a_|_ v b) ^ b_|_)) ^ a)
3		comanr1 446	. . . . . 6 a C (a ^ b)
4		comanr1 446	. . . . . . 7 a_|_ C (a_|_ ^ b)
5	4	comcom6 441	. . . . . 6 a C (a_|_ ^ b)
6	3, 5	com2or 465	. . . . 5 a C ((a ^ b) v (a_|_ ^ b))
7	6	comcom 435	. . . 4 ((a ^ b) v (a_|_ ^ b)) C a
8	3	comcom3 436	. . . . . . . 8 a_|_ C (a ^ b)
9	8, 4	com2or 465	. . . . . . 7 a_|_ C ((a ^ b) v (a_|_ ^ b))
10	9	comcom 435	. . . . . 6 ((a ^ b) v (a_|_ ^ b)) C a_|_
11		comanr2 447	. . . . . . . 8 b C (a ^ b)
12		comanr2 447	. . . . . . . 8 b C (a_|_ ^ b)
13	11, 12	com2or 465	. . . . . . 7 b C ((a ^ b) v (a_|_ ^ b))
14	13	comcom 435	. . . . . 6 ((a ^ b) v (a_|_ ^ b)) C b
15	10, 14	com2or 465	. . . . 5 ((a ^ b) v (a_|_ ^ b)) C (a_|_ v b)
16	14	comcom2 175	. . . . 5 ((a ^ b) v (a_|_ ^ b)) C b_|_
17	15, 16	com2an 466	. . . 4 ((a ^ b) v (a_|_ ^ b)) C ((a_|_ v b) ^ b_|_)
18	7, 17	fh2r 456	. . 3 ((((a ^ b) v (a_|_ ^ b)) v ((a_|_ v b) ^ b_|_)) ^ a) = ((((a ^ b) v (a_|_ ^ b)) ^ a) v (((a_|_ v b) ^ b_|_) ^ a))
19	3, 5	fh1r 455	. . . . . 6 (((a ^ b) v (a_|_ ^ b)) ^ a) = (((a ^ b) ^ a) v ((a_|_ ^ b) ^ a))
20		an32 76	. . . . . . . . 9 ((a ^ b) ^ a) = ((a ^ a) ^ b)
21		anidm 103	. . . . . . . . . 10 (a ^ a) = a
22	21	ran 71	. . . . . . . . 9 ((a ^ a) ^ b) = (a ^ b)
23	20, 22	ax-r2 35	. . . . . . . 8 ((a ^ b) ^ a) = (a ^ b)
24		ancom 68	. . . . . . . . 9 ((a_|_ ^ b) ^ a) = (a ^ (a_|_ ^ b))
25		anass 69	. . . . . . . . . . 11 ((a ^ a_|_) ^ b) = (a ^ (a_|_ ^ b))
26	25	ax-r1 34	. . . . . . . . . 10 (a ^ (a_|_ ^ b)) = ((a ^ a_|_) ^ b)
27		ancom 68	. . . . . . . . . . 11 ((a ^ a_|_) ^ b) = (b ^ (a ^ a_|_))
28		dff 93	. . . . . . . . . . . . . 14 0 = (a ^ a_|_)
29	28	ax-r1 34	. . . . . . . . . . . . 13 (a ^ a_|_) = 0
30	29	lan 70	. . . . . . . . . . . 12 (b ^ (a ^ a_|_)) = (b ^ 0)
31		an0 100	. . . . . . . . . . . 12 (b ^ 0) = 0
32	30, 31	ax-r2 35	. . . . . . . . . . 11 (b ^ (a ^ a_|_)) = 0
33	27, 32	ax-r2 35	. . . . . . . . . 10 ((a ^ a_|_) ^ b) = 0
34	26, 33	ax-r2 35	. . . . . . . . 9 (a ^ (a_|_ ^ b)) = 0
35	24, 34	ax-r2 35	. . . . . . . 8 ((a_|_ ^ b) ^ a) = 0
36	23, 35	2or 67	. . . . . . 7 (((a ^ b) ^ a) v ((a_|_ ^ b) ^ a)) = ((a ^ b) v 0)
37		or0 94	. . . . . . 7 ((a ^ b) v 0) = (a ^ b)
38	36, 37	ax-r2 35	. . . . . 6 (((a ^ b) ^ a) v ((a_|_ ^ b) ^ a)) = (a ^ b)
39	19, 38	ax-r2 35	. . . . 5 (((a ^ b) v (a_|_ ^ b)) ^ a) = (a ^ b)
40		anass 69	. . . . . 6 (((a_|_ v b) ^ b_|_) ^ a) = ((a_|_ v b) ^ (b_|_ ^ a))
41		ancom 68	. . . . . . . . 9 (b_|_ ^ a) = (a ^ b_|_)
42		anor1 80	. . . . . . . . 9 (a ^ b_|_) = (a_|_ v b)_|_
43	41, 42	ax-r2 35	. . . . . . . 8 (b_|_ ^ a) = (a_|_ v b)_|_
44	43	lan 70	. . . . . . 7 ((a_|_ v b) ^ (b_|_ ^ a)) = ((a_|_ v b) ^ (a_|_ v b)_|_)
45		dff 93	. . . . . . . 8 0 = ((a_|_ v b) ^ (a_|_ v b)_|_)
46	45	ax-r1 34	. . . . . . 7 ((a_|_ v b) ^ (a_|_ v b)_|_) = 0
47	44, 46	ax-r2 35	. . . . . 6 ((a_|_ v b) ^ (b_|_ ^ a)) = 0
48	40, 47	ax-r2 35	. . . . 5 (((a_|_ v b) ^ b_|_) ^ a) = 0
49	39, 48	2or 67	. . . 4 ((((a ^ b) v (a_|_ ^ b)) ^ a) v (((a_|_ v b) ^ b_|_) ^ a)) = ((a ^ b) v 0)
50	49, 37	ax-r2 35	. . 3 ((((a ^ b) v (a_|_ ^ b)) ^ a) v (((a_|_ v b) ^ b_|_) ^ a)) = (a ^ b)
51	18, 50	ax-r2 35	. 2 ((((a ^ b) v (a_|_ ^ b)) v ((a_|_ v b) ^ b_|_)) ^ a) = (a ^ b)
52	2, 51	ax-r2 35	1 ((a ->4 b) ^ a) = (a ^ b)

Syntax hints:   = wb 1  _|_wn 4   v wo 6   ^ wa 7  0wf 10   ->4 wi4 16

This theorem is referenced by:  u4lemnona 650  u4lem1 719  u4lem5 746

This theorem was proved from axioms:  ax-a1 29  ax-a2 30  ax-a3 31  ax-a4 32  ax-a5 33  ax-r1 34  ax-r2 35  ax-r4 36  ax-r5 37  ax-r3 421

This theorem depends on definitions:  df-b 38  df-a 39  df-t 40  df-f 41  df-i4 46  df-le1 122  df-le2 123  df-c1 124  df-c2 125

metamath.org