Theorem u4lem4 759

Description: Lemma for unified implication study. (Contributed by NM, 18-Dec-1997.)

Assertion

Ref	Expression
u4lem4	(a →4 (a →4 (b →4 a))) = (a →4 (b →4 a))

Proof of Theorem u4lem4

Step	Hyp	Ref	Expression
1		df-i4 47	. 2 (a →4 (a →4 (b →4 a))) = (((a ∩ (a →4 (b →4 a))) ∪ (a⊥ ∩ (a →4 (b →4 a)))) ∪ ((a⊥ ∪ (a →4 (b →4 a))) ∩ (a →4 (b →4 a))⊥ ))
2		u4lem3 752	. . . . . . . . 9 (a →4 (b →4 a)) = (a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ )))
3		comid 187	. . . . . . . . . . . 12 a C a
4	3	comcom2 183	. . . . . . . . . . 11 a C a⊥
5		comanr1 464	. . . . . . . . . . . 12 a C (a ∩ b)
6		comanr1 464	. . . . . . . . . . . 12 a C (a ∩ b⊥ )
7	5, 6	com2or 483	. . . . . . . . . . 11 a C ((a ∩ b) ∪ (a ∩ b⊥ ))
8	4, 7	com2or 483	. . . . . . . . . 10 a C (a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ )))
9	8	comcom 453	. . . . . . . . 9 (a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ ))) C a
10	2, 9	bctr 181	. . . . . . . 8 (a →4 (b →4 a)) C a
11	10	comcom 453	. . . . . . 7 a C (a →4 (b →4 a))
12	11, 4	fh2r 474	. . . . . 6 ((a ∪ a⊥ ) ∩ (a →4 (b →4 a))) = ((a ∩ (a →4 (b →4 a))) ∪ (a⊥ ∩ (a →4 (b →4 a))))
13	12	ax-r1 35	. . . . 5 ((a ∩ (a →4 (b →4 a))) ∪ (a⊥ ∩ (a →4 (b →4 a)))) = ((a ∪ a⊥ ) ∩ (a →4 (b →4 a)))
14		ancom 74	. . . . . 6 ((a ∪ a⊥ ) ∩ (a →4 (b →4 a))) = ((a →4 (b →4 a)) ∩ (a ∪ a⊥ ))
15		df-t 41	. . . . . . . . 9 1 = (a ∪ a⊥ )
16	15	ax-r1 35	. . . . . . . 8 (a ∪ a⊥ ) = 1
17	16	lan 77	. . . . . . 7 ((a →4 (b →4 a)) ∩ (a ∪ a⊥ )) = ((a →4 (b →4 a)) ∩ 1)
18		an1 106	. . . . . . 7 ((a →4 (b →4 a)) ∩ 1) = (a →4 (b →4 a))
19	17, 18	ax-r2 36	. . . . . 6 ((a →4 (b →4 a)) ∩ (a ∪ a⊥ )) = (a →4 (b →4 a))
20	14, 19	ax-r2 36	. . . . 5 ((a ∪ a⊥ ) ∩ (a →4 (b →4 a))) = (a →4 (b →4 a))
21	13, 20	ax-r2 36	. . . 4 ((a ∩ (a →4 (b →4 a))) ∪ (a⊥ ∩ (a →4 (b →4 a)))) = (a →4 (b →4 a))
22	10	comcom4 455	. . . . . 6 (a →4 (b →4 a))⊥ C a⊥
23		comid 187	. . . . . . 7 (a →4 (b →4 a)) C (a →4 (b →4 a))
24	23	comcom3 454	. . . . . 6 (a →4 (b →4 a))⊥ C (a →4 (b →4 a))
25	22, 24	fh1r 473	. . . . 5 ((a⊥ ∪ (a →4 (b →4 a))) ∩ (a →4 (b →4 a))⊥ ) = ((a⊥ ∩ (a →4 (b →4 a))⊥ ) ∪ ((a →4 (b →4 a)) ∩ (a →4 (b →4 a))⊥ ))
26		dff 101	. . . . . . . 8 0 = ((a →4 (b →4 a)) ∩ (a →4 (b →4 a))⊥ )
27	26	ax-r1 35	. . . . . . 7 ((a →4 (b →4 a)) ∩ (a →4 (b →4 a))⊥ ) = 0
28	27	lor 70	. . . . . 6 ((a⊥ ∩ (a →4 (b →4 a))⊥ ) ∪ ((a →4 (b →4 a)) ∩ (a →4 (b →4 a))⊥ )) = ((a⊥ ∩ (a →4 (b →4 a))⊥ ) ∪ 0)
29		or0 102	. . . . . 6 ((a⊥ ∩ (a →4 (b →4 a))⊥ ) ∪ 0) = (a⊥ ∩ (a →4 (b →4 a))⊥ )
30	28, 29	ax-r2 36	. . . . 5 ((a⊥ ∩ (a →4 (b →4 a))⊥ ) ∪ ((a →4 (b →4 a)) ∩ (a →4 (b →4 a))⊥ )) = (a⊥ ∩ (a →4 (b →4 a))⊥ )
31	25, 30	ax-r2 36	. . . 4 ((a⊥ ∪ (a →4 (b →4 a))) ∩ (a →4 (b →4 a))⊥ ) = (a⊥ ∩ (a →4 (b →4 a))⊥ )
32	21, 31	2or 72	. . 3 (((a ∩ (a →4 (b →4 a))) ∪ (a⊥ ∩ (a →4 (b →4 a)))) ∪ ((a⊥ ∪ (a →4 (b →4 a))) ∩ (a →4 (b →4 a))⊥ )) = ((a →4 (b →4 a)) ∪ (a⊥ ∩ (a →4 (b →4 a))⊥ ))
33	10	comcom2 183	. . . . . 6 (a →4 (b →4 a)) C a⊥
34	23	comcom2 183	. . . . . 6 (a →4 (b →4 a)) C (a →4 (b →4 a))⊥
35	33, 34	fh3 471	. . . . 5 ((a →4 (b →4 a)) ∪ (a⊥ ∩ (a →4 (b →4 a))⊥ )) = (((a →4 (b →4 a)) ∪ a⊥ ) ∩ ((a →4 (b →4 a)) ∪ (a →4 (b →4 a))⊥ ))
36		df-t 41	. . . . . . . 8 1 = ((a →4 (b →4 a)) ∪ (a →4 (b →4 a))⊥ )
37	36	ax-r1 35	. . . . . . 7 ((a →4 (b →4 a)) ∪ (a →4 (b →4 a))⊥ ) = 1
38	37	lan 77	. . . . . 6 (((a →4 (b →4 a)) ∪ a⊥ ) ∩ ((a →4 (b →4 a)) ∪ (a →4 (b →4 a))⊥ )) = (((a →4 (b →4 a)) ∪ a⊥ ) ∩ 1)
39		an1 106	. . . . . 6 (((a →4 (b →4 a)) ∪ a⊥ ) ∩ 1) = ((a →4 (b →4 a)) ∪ a⊥ )
40	38, 39	ax-r2 36	. . . . 5 (((a →4 (b →4 a)) ∪ a⊥ ) ∩ ((a →4 (b →4 a)) ∪ (a →4 (b →4 a))⊥ )) = ((a →4 (b →4 a)) ∪ a⊥ )
41	35, 40	ax-r2 36	. . . 4 ((a →4 (b →4 a)) ∪ (a⊥ ∩ (a →4 (b →4 a))⊥ )) = ((a →4 (b →4 a)) ∪ a⊥ )
42	2	ax-r5 38	. . . . 5 ((a →4 (b →4 a)) ∪ a⊥ ) = ((a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ ))) ∪ a⊥ )
43		or32 82	. . . . . 6 ((a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ ))) ∪ a⊥ ) = ((a⊥ ∪ a⊥ ) ∪ ((a ∩ b) ∪ (a ∩ b⊥ )))
44		oridm 110	. . . . . . . 8 (a⊥ ∪ a⊥ ) = a⊥
45	44	ax-r5 38	. . . . . . 7 ((a⊥ ∪ a⊥ ) ∪ ((a ∩ b) ∪ (a ∩ b⊥ ))) = (a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ )))
46	2	ax-r1 35	. . . . . . 7 (a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ ))) = (a →4 (b →4 a))
47	45, 46	ax-r2 36	. . . . . 6 ((a⊥ ∪ a⊥ ) ∪ ((a ∩ b) ∪ (a ∩ b⊥ ))) = (a →4 (b →4 a))
48	43, 47	ax-r2 36	. . . . 5 ((a⊥ ∪ ((a ∩ b) ∪ (a ∩ b⊥ ))) ∪ a⊥ ) = (a →4 (b →4 a))
49	42, 48	ax-r2 36	. . . 4 ((a →4 (b →4 a)) ∪ a⊥ ) = (a →4 (b →4 a))
50	41, 49	ax-r2 36	. . 3 ((a →4 (b →4 a)) ∪ (a⊥ ∩ (a →4 (b →4 a))⊥ )) = (a →4 (b →4 a))
51	32, 50	ax-r2 36	. 2 (((a ∩ (a →4 (b →4 a))) ∪ (a⊥ ∩ (a →4 (b →4 a)))) ∪ ((a⊥ ∪ (a →4 (b →4 a))) ∩ (a →4 (b →4 a))⊥ )) = (a →4 (b →4 a))
52	1, 51	ax-r2 36	1 (a →4 (a →4 (b →4 a))) = (a →4 (b →4 a))

Syntax hints:   = wb 1  ^⊥ wn 4   ∪ wo 6   ∩ wa 7  1wt 8  0wf 9   →₄ wi4 15

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

This theorem depends on definitions:  df-b 39  df-a 40  df-t 41  df-f 42  df-i4 47  df-le1 130  df-le2 131  df-c1 132  df-c2 133

This theorem is referenced by: (None)