Proof of Theorem rp-fakeanorass
| Step | Hyp | Ref
| Expression |
| 1 | | pm1.4 870 |
. . . . . . . 8
⊢ ((𝜑 ∨ 𝜒) → (𝜒 ∨ 𝜑)) |
| 2 | 1 | ord 865 |
. . . . . . 7
⊢ ((𝜑 ∨ 𝜒) → (¬ 𝜒 → 𝜑)) |
| 3 | | pm4.83 1027 |
. . . . . . . 8
⊢ (((𝜒 → 𝜑) ∧ (¬ 𝜒 → 𝜑)) ↔ 𝜑) |
| 4 | 3 | biimpi 216 |
. . . . . . 7
⊢ (((𝜒 → 𝜑) ∧ (¬ 𝜒 → 𝜑)) → 𝜑) |
| 5 | 2, 4 | sylan2 593 |
. . . . . 6
⊢ (((𝜒 → 𝜑) ∧ (𝜑 ∨ 𝜒)) → 𝜑) |
| 6 | 5 | ex 412 |
. . . . 5
⊢ ((𝜒 → 𝜑) → ((𝜑 ∨ 𝜒) → 𝜑)) |
| 7 | 6 | anim1d 611 |
. . . 4
⊢ ((𝜒 → 𝜑) → (((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒)))) |
| 8 | | orc 868 |
. . . . 5
⊢ (𝜑 → (𝜑 ∨ 𝜒)) |
| 9 | 8 | anim1i 615 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))) |
| 10 | 7, 9 | jctir 520 |
. . 3
⊢ ((𝜒 → 𝜑) → ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))))) |
| 11 | | olc 869 |
. . . . . 6
⊢ (𝜒 → (𝜑 ∨ 𝜒)) |
| 12 | | olc 869 |
. . . . . 6
⊢ (𝜒 → (𝜓 ∨ 𝜒)) |
| 13 | 11, 12 | jca 511 |
. . . . 5
⊢ (𝜒 → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))) |
| 14 | | simpl 482 |
. . . . 5
⊢ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → 𝜑) |
| 15 | 13, 14 | imim12i 62 |
. . . 4
⊢ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) → (𝜒 → 𝜑)) |
| 16 | 15 | adantr 480 |
. . 3
⊢
(((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)))) → (𝜒 → 𝜑)) |
| 17 | 10, 16 | impbii 209 |
. 2
⊢ ((𝜒 → 𝜑) ↔ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))))) |
| 18 | | dfbi2 474 |
. 2
⊢ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒))) ↔ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) → (𝜑 ∧ (𝜓 ∨ 𝜒))) ∧ ((𝜑 ∧ (𝜓 ∨ 𝜒)) → ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))))) |
| 19 | | ordir 1009 |
. . . 4
⊢ (((𝜑 ∧ 𝜓) ∨ 𝜒) ↔ ((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒))) |
| 20 | 19 | bicomi 224 |
. . 3
⊢ (((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ 𝜒)) |
| 21 | 20 | bibi1i 338 |
. 2
⊢ ((((𝜑 ∨ 𝜒) ∧ (𝜓 ∨ 𝜒)) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜓) ∨ 𝜒) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒)))) |
| 22 | 17, 18, 21 | 3bitr2i 299 |
1
⊢ ((𝜒 → 𝜑) ↔ (((𝜑 ∧ 𝜓) ∨ 𝜒) ↔ (𝜑 ∧ (𝜓 ∨ 𝜒)))) |