Proof of Theorem rp-fakeanorass
Step | Hyp | Ref
| Expression |
1 | | pm1.4 867 |
. . . . . . . 8
⊢ ((𝜑 ∨ 𝜒) → (𝜒 ∨ 𝜑)) |
2 | 1 | ord 862 |
. . . . . . 7
⊢ ((𝜑 ∨ 𝜒) → (¬ 𝜒 → 𝜑)) |
3 | | pm4.83 1023 |
. . . . . . . 8
⊢ (((𝜒 → 𝜑) ∧ (¬ 𝜒 → 𝜑)) ↔ 𝜑) |
4 | 3 | biimpi 215 |
. . . . . . 7
⊢ (((𝜒 → 𝜑) ∧ (¬ 𝜒 → 𝜑)) → 𝜑) |
5 | 2, 4 | sylan2 594 |
. . . . . 6
⊢ (((𝜒 → 𝜑) ∧ (𝜑 ∨ 𝜒)) → 𝜑) |
6 | 5 | ex 414 |
. . . . 5
⊢ ((𝜒 → 𝜑) → ((𝜑 ∨ 𝜒) → 𝜑)) |
7 | 6 | anim1d 612 |
. . . 4
⊢ ((𝜒 → 𝜑) → (((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒)))) |
8 | | orc 865 |
. . . . 5
⊢ (𝜑 → (𝜑 ∨ 𝜒)) |
9 | 8 | anim1i 616 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))) |
10 | 7, 9 | jctir 522 |
. . 3
⊢ ((𝜒 → 𝜑) → ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))))) |
11 | | olc 866 |
. . . . . 6
⊢ (𝜒 → (𝜑 ∨ 𝜒)) |
12 | | olc 866 |
. . . . . 6
⊢ (𝜒 → (𝜓 ∨ 𝜒)) |
13 | 11, 12 | jca 513 |
. . . . 5
⊢ (𝜒 → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))) |
14 | | simpl 484 |
. . . . 5
⊢ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → 𝜑) |
15 | 13, 14 | imim12i 62 |
. . . 4
⊢ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) → (𝜒 → 𝜑)) |
16 | 15 | adantr 482 |
. . 3
⊢
(((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)))) → (𝜒 → 𝜑)) |
17 | 10, 16 | impbii 208 |
. 2
⊢ ((𝜒 → 𝜑) ↔ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))))) |
18 | | dfbi2 476 |
. 2
⊢ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒))) ↔ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))))) |
19 | | ordir 1005 |
. . . 4
⊢ (((𝜑 ∧ 𝜓) ∨ 𝜒) ↔ ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))) |
20 | 19 | bicomi 223 |
. . 3
⊢ (((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ 𝜒)) |
21 | 20 | bibi1i 339 |
. 2
⊢ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜓) ∨ 𝜒) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒)))) |
22 | 17, 18, 21 | 3bitr2i 299 |
1
⊢ ((𝜒 → 𝜑) ↔ (((𝜑 ∧ 𝜓) ∨ 𝜒) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒)))) |