Metamath Proof Explorer


Theorem sbcies

Description: A special version of class substitution commonly used for structures. (Contributed by Thierry Arnoux, 14-Mar-2019)

Ref Expression
Hypotheses sbcies.a 𝐴 = ( 𝐸𝑊 )
sbcies.1 ( 𝑎 = 𝐴 → ( 𝜑𝜓 ) )
Assertion sbcies ( 𝑤 = 𝑊 → ( [ ( 𝐸𝑤 ) / 𝑎 ] 𝜓𝜑 ) )

Proof

Step Hyp Ref Expression
1 sbcies.a 𝐴 = ( 𝐸𝑊 )
2 sbcies.1 ( 𝑎 = 𝐴 → ( 𝜑𝜓 ) )
3 fvexd ( 𝑤 = 𝑊 → ( 𝐸𝑤 ) ∈ V )
4 simpr ( ( 𝑤 = 𝑊𝑎 = ( 𝐸𝑤 ) ) → 𝑎 = ( 𝐸𝑤 ) )
5 fveq2 ( 𝑤 = 𝑊 → ( 𝐸𝑤 ) = ( 𝐸𝑊 ) )
6 1 5 eqtr4id ( 𝑤 = 𝑊𝐴 = ( 𝐸𝑤 ) )
7 6 adantr ( ( 𝑤 = 𝑊𝑎 = ( 𝐸𝑤 ) ) → 𝐴 = ( 𝐸𝑤 ) )
8 4 7 eqtr4d ( ( 𝑤 = 𝑊𝑎 = ( 𝐸𝑤 ) ) → 𝑎 = 𝐴 )
9 8 2 syl ( ( 𝑤 = 𝑊𝑎 = ( 𝐸𝑤 ) ) → ( 𝜑𝜓 ) )
10 9 bicomd ( ( 𝑤 = 𝑊𝑎 = ( 𝐸𝑤 ) ) → ( 𝜓𝜑 ) )
11 3 10 sbcied ( 𝑤 = 𝑊 → ( [ ( 𝐸𝑤 ) / 𝑎 ] 𝜓𝜑 ) )