Metamath Proof Explorer

Theorem sb5ALTVD

Description: The following User's Proof is a Natural Deduction Sequent Calculus transcription of the Fitch-style Natural Deduction proof of Unit 20 Excercise 3.a., which is sb5 , found in the "Answers to Starred Exercises" on page 457 of "Understanding Symbolic Logic", Fifth Edition (2008), by Virginia Klenk. The same proof may also be interpreted as a Virtual Deduction Hilbert-style axiomatic proof. It was completed automatically by the tools program completeusersproof.cmd, which invokes Mel L. O'Cat's mmj2 and Norm Megill's Metamath Proof Assistant. sb5ALT is sb5ALTVD without virtual deductions and was automatically derived from sb5ALTVD .

1:: |- (. [ y / x ] ph ->. [ y / x ] ph ).
2:: |- [ y / x ] x = y
3:1,2: |- (. [ y / x ] ph ->. [ y / x ] ( x = y /\ ph ) ).
4:3: |- (. [ y / x ] ph ->. E. x ( x = y /\ ph ) ).
5:4: |- ( [ y / x ] ph -> E. x ( x = y /\ ph ) )
6:: |- (. E. x ( x = y /\ ph ) ->. E. x ( x = y /\ ph ) ).
7:: |- (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. ( x = y /\ ph ) ).
8:7: |- (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. ph ).
9:7: |- (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. x = y ).
10:8,9: |- (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. [ y / x ] ph ).
101:: |- ( [ y / x ] ph -> A. x [ y / x ] ph )
11:101,10: |- ( E. x ( x = y /\ ph ) -> [ y / x ] ph )
12:5,11: |- ( ( [ y / x ] ph -> E. x ( x = y /\ ph ) ) /\ ( E. x ( x = y /\ ph ) -> [ y / x ] ph ) )
qed:12: |- ( [ y / x ] ph <-> E. x ( x = y /\ ph ) )
(Contributed by Alan Sare, 21-Apr-2013) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Assertion sb5ALTVD 
|- ( [ y / x ] ph <-> E. x ( x = y /\ ph ) )

Proof

Step Hyp Ref Expression
1 idn1 
 |-  (. [ y / x ] ph ->. [ y / x ] ph ).
2 equsb1 
 |-  [ y / x ] x = y
3 sban 
 |-  ( [ y / x ] ( x = y /\ ph ) <-> ( [ y / x ] x = y /\ [ y / x ] ph ) )
4 3 simplbi2com 
 |-  ( [ y / x ] ph -> ( [ y / x ] x = y -> [ y / x ] ( x = y /\ ph ) ) )
5 1 2 4 e10 
 |-  (. [ y / x ] ph ->. [ y / x ] ( x = y /\ ph ) ).
6 spsbe 
 |-  ( [ y / x ] ( x = y /\ ph ) -> E. x ( x = y /\ ph ) )
7 5 6 e1a 
 |-  (. [ y / x ] ph ->. E. x ( x = y /\ ph ) ).
8 7 in1 
 |-  ( [ y / x ] ph -> E. x ( x = y /\ ph ) )
9 hbs1 
 |-  ( [ y / x ] ph -> A. x [ y / x ] ph )
10 idn2 
 |-  (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. ( x = y /\ ph ) ).
11 simpr 
 |-  ( ( x = y /\ ph ) -> ph )
12 10 11 e2 
 |-  (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. ph ).
13 simpl 
 |-  ( ( x = y /\ ph ) -> x = y )
14 10 13 e2 
 |-  (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. x = y ).
15 sbequ1 
 |-  ( x = y -> ( ph -> [ y / x ] ph ) )
16 15 com12 
 |-  ( ph -> ( x = y -> [ y / x ] ph ) )
17 12 14 16 e22 
 |-  (. E. x ( x = y /\ ph ) ,. ( x = y /\ ph ) ->. [ y / x ] ph ).
18 9 17 exinst 
 |-  ( E. x ( x = y /\ ph ) -> [ y / x ] ph )
19 8 18 pm3.2i 
 |-  ( ( [ y / x ] ph -> E. x ( x = y /\ ph ) ) /\ ( E. x ( x = y /\ ph ) -> [ y / x ] ph ) )
20 impbi 
 |-  ( ( [ y / x ] ph -> E. x ( x = y /\ ph ) ) -> ( ( E. x ( x = y /\ ph ) -> [ y / x ] ph ) -> ( [ y / x ] ph <-> E. x ( x = y /\ ph ) ) ) )
21 20 imp 
 |-  ( ( ( [ y / x ] ph -> E. x ( x = y /\ ph ) ) /\ ( E. x ( x = y /\ ph ) -> [ y / x ] ph ) ) -> ( [ y / x ] ph <-> E. x ( x = y /\ ph ) ) )
22 19 21 e0a 
 |-  ( [ y / x ] ph <-> E. x ( x = y /\ ph ) )