Metamath Proof Explorer


Theorem bnj121

Description: First-order logic and set theory. (Contributed by Jonathan Ben-Naim, 3-Jun-2011) (New usage is discouraged.)

Ref Expression
Hypotheses bnj121.1 ( 𝜁 ↔ ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 𝑛𝜑𝜓 ) ) )
bnj121.2 ( 𝜁′[ 1o / 𝑛 ] 𝜁 )
bnj121.3 ( 𝜑′[ 1o / 𝑛 ] 𝜑 )
bnj121.4 ( 𝜓′[ 1o / 𝑛 ] 𝜓 )
Assertion bnj121 ( 𝜁′ ↔ ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 1o𝜑′𝜓′ ) ) )

Proof

Step Hyp Ref Expression
1 bnj121.1 ( 𝜁 ↔ ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 𝑛𝜑𝜓 ) ) )
2 bnj121.2 ( 𝜁′[ 1o / 𝑛 ] 𝜁 )
3 bnj121.3 ( 𝜑′[ 1o / 𝑛 ] 𝜑 )
4 bnj121.4 ( 𝜓′[ 1o / 𝑛 ] 𝜓 )
5 1 sbcbii ( [ 1o / 𝑛 ] 𝜁[ 1o / 𝑛 ] ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 𝑛𝜑𝜓 ) ) )
6 bnj105 1o ∈ V
7 6 bnj90 ( [ 1o / 𝑛 ] 𝑓 Fn 𝑛𝑓 Fn 1o )
8 7 bicomi ( 𝑓 Fn 1o[ 1o / 𝑛 ] 𝑓 Fn 𝑛 )
9 8 3 4 3anbi123i ( ( 𝑓 Fn 1o𝜑′𝜓′ ) ↔ ( [ 1o / 𝑛 ] 𝑓 Fn 𝑛[ 1o / 𝑛 ] 𝜑[ 1o / 𝑛 ] 𝜓 ) )
10 sbc3an ( [ 1o / 𝑛 ] ( 𝑓 Fn 𝑛𝜑𝜓 ) ↔ ( [ 1o / 𝑛 ] 𝑓 Fn 𝑛[ 1o / 𝑛 ] 𝜑[ 1o / 𝑛 ] 𝜓 ) )
11 9 10 bitr4i ( ( 𝑓 Fn 1o𝜑′𝜓′ ) ↔ [ 1o / 𝑛 ] ( 𝑓 Fn 𝑛𝜑𝜓 ) )
12 11 imbi2i ( ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 1o𝜑′𝜓′ ) ) ↔ ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → [ 1o / 𝑛 ] ( 𝑓 Fn 𝑛𝜑𝜓 ) ) )
13 nfv 𝑛 ( 𝑅 FrSe 𝐴𝑥𝐴 )
14 13 sbc19.21g ( 1o ∈ V → ( [ 1o / 𝑛 ] ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 𝑛𝜑𝜓 ) ) ↔ ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → [ 1o / 𝑛 ] ( 𝑓 Fn 𝑛𝜑𝜓 ) ) ) )
15 6 14 ax-mp ( [ 1o / 𝑛 ] ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 𝑛𝜑𝜓 ) ) ↔ ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → [ 1o / 𝑛 ] ( 𝑓 Fn 𝑛𝜑𝜓 ) ) )
16 12 15 bitr4i ( ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 1o𝜑′𝜓′ ) ) ↔ [ 1o / 𝑛 ] ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 𝑛𝜑𝜓 ) ) )
17 5 2 16 3bitr4i ( 𝜁′ ↔ ( ( 𝑅 FrSe 𝐴𝑥𝐴 ) → ( 𝑓 Fn 1o𝜑′𝜓′ ) ) )