Step |
Hyp |
Ref |
Expression |
1 |
|
frege58acor |
|- ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> ( if- ( ph , ps , ta ) -> if- ( ph , ( ch -> th ) , ( et -> ze ) ) ) ) |
2 |
|
ifpimim |
|- ( if- ( ph , ( ch -> th ) , ( et -> ze ) ) -> ( if- ( ph , ch , et ) -> if- ( ph , th , ze ) ) ) |
3 |
1 2
|
syl6 |
|- ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> ( if- ( ph , ps , ta ) -> ( if- ( ph , ch , et ) -> if- ( ph , th , ze ) ) ) ) |
4 |
|
frege12 |
|- ( ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> ( if- ( ph , ps , ta ) -> ( if- ( ph , ch , et ) -> if- ( ph , th , ze ) ) ) ) -> ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> ( if- ( ph , ch , et ) -> ( if- ( ph , ps , ta ) -> if- ( ph , th , ze ) ) ) ) ) |
5 |
3 4
|
ax-mp |
|- ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> ( if- ( ph , ch , et ) -> ( if- ( ph , ps , ta ) -> if- ( ph , th , ze ) ) ) ) |