Theorem dn1dc 973

Description: DN₁ for decidable propositions. Without the decidability conditions, DN₁ can serve as a single axiom for Boolean algebra. See http://www-unix.mcs.anl.gov/~mccune/papers/basax/v12.pdf. (Contributed by Jim Kingdon, 22-Apr-2018.)

Assertion

Ref	Expression
dn1dc	⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → (¬ (¬ (¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∨ ¬ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))) ↔ 𝜒))

Proof of Theorem dn1dc

Step	Hyp	Ref	Expression
1		pm2.45 750	. . . . 5 ⊢ (¬ (𝜑 ∨ 𝜓) → ¬ 𝜑)
2		imnan 701	. . . . 5 ⊢ ((¬ (𝜑 ∨ 𝜓) → ¬ 𝜑) ↔ ¬ (¬ (𝜑 ∨ 𝜓) ∧ 𝜑))
3	1, 2	mpbi 145	. . . 4 ⊢ ¬ (¬ (𝜑 ∨ 𝜓) ∧ 𝜑)
4	3	biorfi 758	. . 3 ⊢ (𝜒 ↔ (𝜒 ∨ (¬ (𝜑 ∨ 𝜓) ∧ 𝜑)))
5		orcom 740	. . 3 ⊢ ((𝜒 ∨ (¬ (𝜑 ∨ 𝜓) ∧ 𝜑)) ↔ ((¬ (𝜑 ∨ 𝜓) ∧ 𝜑) ∨ 𝜒))
6		ordir 829	. . 3 ⊢ (((¬ (𝜑 ∨ 𝜓) ∧ 𝜑) ∨ 𝜒) ↔ ((¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∧ (𝜑 ∨ 𝜒)))
7	4, 5, 6	3bitri 206	. 2 ⊢ (𝜒 ↔ ((¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∧ (𝜑 ∨ 𝜒)))
8		pm4.45 796	. . . . . 6 ⊢ (𝜒 ↔ (𝜒 ∧ (𝜒 ∨ 𝜃)))
9		simprrl 545	. . . . . . 7 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID 𝜒)
10		dcor 948	. . . . . . . . 9 ⊢ (DECID 𝜒 → (DECID 𝜃 → DECID (𝜒 ∨ 𝜃)))
11	10	imp 124	. . . . . . . 8 ⊢ ((DECID 𝜒 ∧ DECID 𝜃) → DECID (𝜒 ∨ 𝜃))
12	11	ad2antll 495	. . . . . . 7 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID (𝜒 ∨ 𝜃))
13		anordc 969	. . . . . . 7 ⊢ (DECID 𝜒 → (DECID (𝜒 ∨ 𝜃) → ((𝜒 ∧ (𝜒 ∨ 𝜃)) ↔ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))))
14	9, 12, 13	sylc 62	. . . . . 6 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → ((𝜒 ∧ (𝜒 ∨ 𝜃)) ↔ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))
15	8, 14	bitrid 192	. . . . 5 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → (𝜒 ↔ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))
16	15	orbi2d 802	. . . 4 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → ((𝜑 ∨ 𝜒) ↔ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))))
17	16	anbi2d 468	. . 3 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → (((¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∧ (𝜑 ∨ 𝜒)) ↔ ((¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∧ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))))
18		dcor 948	. . . . . . . 8 ⊢ (DECID 𝜑 → (DECID 𝜓 → DECID (𝜑 ∨ 𝜓)))
19		dcn 854	. . . . . . . 8 ⊢ (DECID (𝜑 ∨ 𝜓) → DECID ¬ (𝜑 ∨ 𝜓))
20	18, 19	syl6 33	. . . . . . 7 ⊢ (DECID 𝜑 → (DECID 𝜓 → DECID ¬ (𝜑 ∨ 𝜓)))
21	20	imp 124	. . . . . 6 ⊢ ((DECID 𝜑 ∧ DECID 𝜓) → DECID ¬ (𝜑 ∨ 𝜓))
22	21	adantrr 483	. . . . 5 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID ¬ (𝜑 ∨ 𝜓))
23		dcor 948	. . . . 5 ⊢ (DECID ¬ (𝜑 ∨ 𝜓) → (DECID 𝜒 → DECID (¬ (𝜑 ∨ 𝜓) ∨ 𝜒)))
24	22, 9, 23	sylc 62	. . . 4 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID (¬ (𝜑 ∨ 𝜓) ∨ 𝜒))
25		dcn 854	. . . . . . . 8 ⊢ (DECID 𝜒 → DECID ¬ 𝜒)
26	9, 25	syl 14	. . . . . . 7 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID ¬ 𝜒)
27		dcn 854	. . . . . . . 8 ⊢ (DECID (𝜒 ∨ 𝜃) → DECID ¬ (𝜒 ∨ 𝜃))
28	12, 27	syl 14	. . . . . . 7 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID ¬ (𝜒 ∨ 𝜃))
29		dcor 948	. . . . . . 7 ⊢ (DECID ¬ 𝜒 → (DECID ¬ (𝜒 ∨ 𝜃) → DECID (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))
30	26, 28, 29	sylc 62	. . . . . 6 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))
31		dcn 854	. . . . . 6 ⊢ (DECID (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)) → DECID ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))
32	30, 31	syl 14	. . . . 5 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))
33		dcor 948	. . . . . 6 ⊢ (DECID 𝜑 → (DECID ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)) → DECID (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))))
34	33	imp 124	. . . . 5 ⊢ ((DECID 𝜑 ∧ DECID ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))) → DECID (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))
35	32, 34	syldan 282	. . . 4 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → DECID (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))
36		anordc 969	. . . 4 ⊢ (DECID (¬ (𝜑 ∨ 𝜓) ∨ 𝜒) → (DECID (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))) → (((¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∧ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))) ↔ ¬ (¬ (¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∨ ¬ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))))))
37	24, 35, 36	sylc 62	. . 3 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → (((¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∧ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))) ↔ ¬ (¬ (¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∨ ¬ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))))
38	17, 37	bitrd 188	. 2 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → (((¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∧ (𝜑 ∨ 𝜒)) ↔ ¬ (¬ (¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∨ ¬ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃))))))
39	7, 38	bitr2id 193	1 ⊢ ((DECID 𝜑 ∧ (DECID 𝜓 ∧ (DECID 𝜒 ∧ DECID 𝜃))) → (¬ (¬ (¬ (𝜑 ∨ 𝜓) ∨ 𝜒) ∨ ¬ (𝜑 ∨ ¬ (¬ 𝜒 ∨ ¬ (𝜒 ∨ 𝜃)))) ↔ 𝜒))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 720  DECID wdc 846

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721

This proof depends on definitions:  df-bi 117  df-stab 843  df-dc 847

This theorem is used by: (None)