Metamath Proof Explorer


Theorem ee233

Description: Non-virtual deduction form of e233 . (Contributed by Alan Sare, 18-Mar-2012) (Proof modification is discouraged.) (New usage is discouraged.) The following User's Proof is a Virtual Deduction proof completed automatically by the tools program completeusersproof.cmd, which invokes Mel L. O'Cat's mmj2 and Norm Megill's Metamath Proof Assistant. The completed Virtual Deduction Proof (not shown) was minimized. The minimized proof is shown.

h1:: |- ( ph -> ( ps -> ch ) )
h2:: |- ( ph -> ( ps -> ( th -> ta ) ) )
h3:: |- ( ph -> ( ps -> ( th -> et ) ) )
h4:: |- ( ch -> ( ta -> ( et -> ze ) ) )
5:1,4: |- ( ph -> ( ps -> ( ta -> ( et -> ze ) ) ) )
6:5: |- ( ta -> ( ph -> ( ps -> ( et -> ze ) ) ) )
7:2,6: |- ( ph -> ( ps -> ( th -> ( ph -> ( ps -> ( et -> ze ) ) ) ) ) )
8:7: |- ( ps -> ( th -> ( ph -> ( ps -> ( et -> ze ) ) ) ) )
9:8: |- ( th -> ( ph -> ( ps -> ( et -> ze ) ) ) )
10:9: |- ( ph -> ( ps -> ( th -> ( et -> ze ) ) ) )
11:10: |- ( et -> ( ph -> ( ps -> ( th -> ze ) ) ) )
12:3,11: |- ( ph -> ( ps -> ( th -> ( ph -> ( ps -> ( th -> ze ) ) ) ) ) )
13:12: |- ( ps -> ( th -> ( ph -> ( ps -> ( th -> ze ) ) ) ) )
14:13: |- ( th -> ( ph -> ( ps -> ( th -> ze ) ) ) )
qed:14: |- ( ph -> ( ps -> ( th -> ze ) ) )

Ref Expression
Hypotheses ee233.1 ( 𝜑 → ( 𝜓𝜒 ) )
ee233.2 ( 𝜑 → ( 𝜓 → ( 𝜃𝜏 ) ) )
ee233.3 ( 𝜑 → ( 𝜓 → ( 𝜃𝜂 ) ) )
ee233.4 ( 𝜒 → ( 𝜏 → ( 𝜂𝜁 ) ) )
Assertion ee233 ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) )

Proof

Step Hyp Ref Expression
1 ee233.1 ( 𝜑 → ( 𝜓𝜒 ) )
2 ee233.2 ( 𝜑 → ( 𝜓 → ( 𝜃𝜏 ) ) )
3 ee233.3 ( 𝜑 → ( 𝜓 → ( 𝜃𝜂 ) ) )
4 ee233.4 ( 𝜒 → ( 𝜏 → ( 𝜂𝜁 ) ) )
5 1 4 syl6 ( 𝜑 → ( 𝜓 → ( 𝜏 → ( 𝜂𝜁 ) ) ) )
6 5 com3r ( 𝜏 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) )
7 2 6 syl8 ( 𝜑 → ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) ) ) )
8 pm2.43cbi ( ( 𝜑 → ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) ) ) ) ↔ ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) ) ) )
9 7 8 mpbi ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) ) )
10 pm2.43cbi ( ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) ) ) ↔ ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) ) )
11 9 10 mpbi ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜂𝜁 ) ) ) )
12 11 com14 ( 𝜂 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) )
13 3 12 syl8 ( 𝜑 → ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) ) ) )
14 pm2.43cbi ( ( 𝜑 → ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) ) ) ) ↔ ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) ) ) )
15 13 14 mpbi ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) ) )
16 pm2.43cbi ( ( 𝜓 → ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) ) ) ↔ ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) ) )
17 15 16 mpbi ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) )
18 pm2.43cbi ( ( 𝜃 → ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) ) ↔ ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) ) )
19 17 18 mpbi ( 𝜑 → ( 𝜓 → ( 𝜃𝜁 ) ) )