Proof of Theorem ifpim1g
| Step | Hyp | Ref
| Expression |
| 1 | | ifpim123g 43490 |
. 2
⊢
((if-(𝜑, 𝜒, 𝜃) → if-(𝜓, 𝜒, 𝜃)) ↔ ((((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) ∧ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃))))) |
| 2 | | id 22 |
. . . . . 6
⊢ (𝜒 → 𝜒) |
| 3 | 2 | olci 866 |
. . . . 5
⊢ ((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) |
| 4 | 3 | biantrur 530 |
. . . 4
⊢ (((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)) ↔ (((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)))) |
| 5 | 4 | bicomi 224 |
. . 3
⊢ ((((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) ↔ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) |
| 6 | | id 22 |
. . . . . 6
⊢ (𝜃 → 𝜃) |
| 7 | 6 | olci 866 |
. . . . 5
⊢ ((¬
𝜓 → 𝜑) ∨ (𝜃 → 𝜃)) |
| 8 | 7 | biantru 529 |
. . . 4
⊢ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ↔ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃)))) |
| 9 | 8 | bicomi 224 |
. . 3
⊢ ((((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃))) ↔ ((𝜑 → 𝜓) ∨ (𝜒 → 𝜃))) |
| 10 | 5, 9 | anbi12i 628 |
. 2
⊢
(((((𝜑 → ¬
𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) ∧ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃)))) ↔ (((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)) ∧ ((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)))) |
| 11 | 1, 10 | bitri 275 |
1
⊢
((if-(𝜑, 𝜒, 𝜃) → if-(𝜓, 𝜒, 𝜃)) ↔ (((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)) ∧ ((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)))) |