Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  2reu8i Structured version   Visualization version   GIF version

Theorem 2reu8i 44605
Description: Implication of a double restricted existential uniqueness in terms of restricted existential quantification and restricted universal quantification, see also 2reu8 44604. The involved wffs depend on the setvar variables as follows: ph(x,y), ta(v,y), ch(x,w), th(v,w), et(x,b), ps(a,b), ze(a,w). (Contributed by AV, 1-Apr-2023.)
Hypotheses
Ref Expression
2reu8i.x (𝑥 = 𝑣 → (𝜑𝜏))
2reu8i.v (𝑥 = 𝑣 → (𝜒𝜃))
2reu8i.w (𝑦 = 𝑤 → (𝜑𝜒))
2reu8i.b (𝑦 = 𝑏 → (𝜑𝜂))
2reu8i.a (𝑥 = 𝑎 → (𝜒𝜁))
2reu8i.1 (((𝜒𝑦 = 𝑤) ∧ 𝜁) → 𝑦 = 𝑤)
2reu8i.2 ((𝑥 = 𝑎𝑦 = 𝑏) → (𝜑𝜓))
Assertion
Ref Expression
2reu8i (∃!𝑥𝐴 ∃!𝑦𝐵 𝜑 → ∃𝑥𝐴𝑦𝐵 (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
Distinct variable groups:   𝐴,𝑎,𝑏,𝑣,𝑤,𝑥,𝑦   𝐵,𝑎,𝑏,𝑣,𝑤,𝑥,𝑦   𝜑,𝑎,𝑏,𝑣,𝑤   𝜒,𝑎,𝑏,𝑣,𝑦   𝜏,𝑎,𝑏,𝑥   𝜃,𝑎,𝑏,𝑥   𝜂,𝑤,𝑦   𝜓,𝑤,𝑥,𝑦   𝜁,𝑥
Allowed substitution hints:   𝜑(𝑥,𝑦)   𝜓(𝑣,𝑎,𝑏)   𝜒(𝑥,𝑤)   𝜃(𝑦,𝑤,𝑣)   𝜏(𝑦,𝑤,𝑣)   𝜂(𝑥,𝑣,𝑎,𝑏)   𝜁(𝑦,𝑤,𝑣,𝑎,𝑏)

Proof of Theorem 2reu8i
Dummy variable 𝑢 is distinct from all other variables.
StepHypRef Expression
1 2reu8i.w . . . . 5 (𝑦 = 𝑤 → (𝜑𝜒))
21reu8 3668 . . . 4 (∃!𝑦𝐵 𝜑 ↔ ∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)))
32reubii 3325 . . 3 (∃!𝑥𝐴 ∃!𝑦𝐵 𝜑 ↔ ∃!𝑥𝐴𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)))
4 2reu8i.x . . . . . 6 (𝑥 = 𝑣 → (𝜑𝜏))
5 2reu8i.v . . . . . . . 8 (𝑥 = 𝑣 → (𝜒𝜃))
65imbi1d 342 . . . . . . 7 (𝑥 = 𝑣 → ((𝜒𝑦 = 𝑤) ↔ (𝜃𝑦 = 𝑤)))
76ralbidv 3112 . . . . . 6 (𝑥 = 𝑣 → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ↔ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)))
84, 7anbi12d 631 . . . . 5 (𝑥 = 𝑣 → ((𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ↔ (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤))))
98rexbidv 3226 . . . 4 (𝑥 = 𝑣 → (∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ↔ ∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤))))
109reu8 3668 . . 3 (∃!𝑥𝐴𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ↔ ∃𝑥𝐴 (∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣)))
113, 10bitri 274 . 2 (∃!𝑥𝐴 ∃!𝑦𝐵 𝜑 ↔ ∃𝑥𝐴 (∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣)))
12 nfv 1917 . . . . . . . . 9 𝑢(𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤))
13 nfs1v 2153 . . . . . . . . . 10 𝑦[𝑢 / 𝑦]𝜏
14 nfcv 2907 . . . . . . . . . . 11 𝑦𝐵
15 nfs1v 2153 . . . . . . . . . . . 12 𝑦[𝑢 / 𝑦]𝜃
16 nfv 1917 . . . . . . . . . . . 12 𝑦 𝑢 = 𝑤
1715, 16nfim 1899 . . . . . . . . . . 11 𝑦([𝑢 / 𝑦]𝜃𝑢 = 𝑤)
1814, 17nfralw 3151 . . . . . . . . . 10 𝑦𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)
1913, 18nfan 1902 . . . . . . . . 9 𝑦([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤))
20 sbequ12 2244 . . . . . . . . . 10 (𝑦 = 𝑢 → (𝜏 ↔ [𝑢 / 𝑦]𝜏))
21 sbequ12 2244 . . . . . . . . . . . 12 (𝑦 = 𝑢 → (𝜃 ↔ [𝑢 / 𝑦]𝜃))
22 equequ1 2028 . . . . . . . . . . . 12 (𝑦 = 𝑢 → (𝑦 = 𝑤𝑢 = 𝑤))
2321, 22imbi12d 345 . . . . . . . . . . 11 (𝑦 = 𝑢 → ((𝜃𝑦 = 𝑤) ↔ ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)))
2423ralbidv 3112 . . . . . . . . . 10 (𝑦 = 𝑢 → (∀𝑤𝐵 (𝜃𝑦 = 𝑤) ↔ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)))
2520, 24anbi12d 631 . . . . . . . . 9 (𝑦 = 𝑢 → ((𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) ↔ ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤))))
2612, 19, 25cbvrexw 3374 . . . . . . . 8 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) ↔ ∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)))
2726imbi1i 350 . . . . . . 7 ((∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣) ↔ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣))
2827ralbii 3092 . . . . . 6 (∀𝑣𝐴 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣) ↔ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣))
2928anbi2i 623 . . . . 5 ((∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣)) ↔ (∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)))
30 nfcv 2907 . . . . . . 7 𝑦𝐴
3114, 19nfrex 3242 . . . . . . . 8 𝑦𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤))
32 nfv 1917 . . . . . . . 8 𝑦 𝑥 = 𝑣
3331, 32nfim 1899 . . . . . . 7 𝑦(∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)
3430, 33nfralw 3151 . . . . . 6 𝑦𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)
3534r19.41 3277 . . . . 5 (∃𝑦𝐵 ((𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) ↔ (∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)))
3629, 35bitr4i 277 . . . 4 ((∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣)) ↔ ∃𝑦𝐵 ((𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)))
37 r19.28v 3116 . . . . . . . . 9 ((∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → ∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)))
38 simplr 766 . . . . . . . . . . 11 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ ∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣))) → 𝜑)
39 nfv 1917 . . . . . . . . . . . . . . . . 17 𝑣𝑤𝐵 (𝜒𝑦 = 𝑤)
40 nfcv 2907 . . . . . . . . . . . . . . . . . . 19 𝑣𝐵
41 nfs1v 2153 . . . . . . . . . . . . . . . . . . . 20 𝑣[𝑎 / 𝑣][𝑢 / 𝑦]𝜏
42 nfs1v 2153 . . . . . . . . . . . . . . . . . . . . . 22 𝑣[𝑎 / 𝑣][𝑢 / 𝑦]𝜃
43 nfv 1917 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 𝑢 = 𝑤
4442, 43nfim 1899 . . . . . . . . . . . . . . . . . . . . 21 𝑣([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)
4540, 44nfralw 3151 . . . . . . . . . . . . . . . . . . . 20 𝑣𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)
4641, 45nfan 1902 . . . . . . . . . . . . . . . . . . 19 𝑣([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤))
4740, 46nfrex 3242 . . . . . . . . . . . . . . . . . 18 𝑣𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤))
48 nfv 1917 . . . . . . . . . . . . . . . . . 18 𝑣 𝑥 = 𝑎
4947, 48nfim 1899 . . . . . . . . . . . . . . . . 17 𝑣(∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)
5039, 49nfan 1902 . . . . . . . . . . . . . . . 16 𝑣(∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎))
51 sbequ12 2244 . . . . . . . . . . . . . . . . . . . 20 (𝑣 = 𝑎 → ([𝑢 / 𝑦]𝜏 ↔ [𝑎 / 𝑣][𝑢 / 𝑦]𝜏))
52 sbequ12 2244 . . . . . . . . . . . . . . . . . . . . . 22 (𝑣 = 𝑎 → ([𝑢 / 𝑦]𝜃 ↔ [𝑎 / 𝑣][𝑢 / 𝑦]𝜃))
5352imbi1d 342 . . . . . . . . . . . . . . . . . . . . 21 (𝑣 = 𝑎 → (([𝑢 / 𝑦]𝜃𝑢 = 𝑤) ↔ ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)))
5453ralbidv 3112 . . . . . . . . . . . . . . . . . . . 20 (𝑣 = 𝑎 → (∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤) ↔ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)))
5551, 54anbi12d 631 . . . . . . . . . . . . . . . . . . 19 (𝑣 = 𝑎 → (([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) ↔ ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤))))
5655rexbidv 3226 . . . . . . . . . . . . . . . . . 18 (𝑣 = 𝑎 → (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) ↔ ∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤))))
57 equequ2 2029 . . . . . . . . . . . . . . . . . 18 (𝑣 = 𝑎 → (𝑥 = 𝑣𝑥 = 𝑎))
5856, 57imbi12d 345 . . . . . . . . . . . . . . . . 17 (𝑣 = 𝑎 → ((∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣) ↔ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)))
5958anbi2d 629 . . . . . . . . . . . . . . . 16 (𝑣 = 𝑎 → ((∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) ↔ (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎))))
6050, 59rspc 3549 . . . . . . . . . . . . . . 15 (𝑎𝐴 → (∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎))))
6160ad2antrl 725 . . . . . . . . . . . . . 14 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) → (∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎))))
62 nfs1v 2153 . . . . . . . . . . . . . . . . . . . . 21 𝑤[𝑏 / 𝑤]𝜒
63 nfv 1917 . . . . . . . . . . . . . . . . . . . . 21 𝑤 𝑦 = 𝑏
6462, 63nfim 1899 . . . . . . . . . . . . . . . . . . . 20 𝑤([𝑏 / 𝑤]𝜒𝑦 = 𝑏)
65 sbequ12 2244 . . . . . . . . . . . . . . . . . . . . 21 (𝑤 = 𝑏 → (𝜒 ↔ [𝑏 / 𝑤]𝜒))
66 equequ2 2029 . . . . . . . . . . . . . . . . . . . . 21 (𝑤 = 𝑏 → (𝑦 = 𝑤𝑦 = 𝑏))
6765, 66imbi12d 345 . . . . . . . . . . . . . . . . . . . 20 (𝑤 = 𝑏 → ((𝜒𝑦 = 𝑤) ↔ ([𝑏 / 𝑤]𝜒𝑦 = 𝑏)))
6864, 67rspc 3549 . . . . . . . . . . . . . . . . . . 19 (𝑏𝐵 → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) → ([𝑏 / 𝑤]𝜒𝑦 = 𝑏)))
6968adantl 482 . . . . . . . . . . . . . . . . . 18 ((𝑎𝐴𝑏𝐵) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) → ([𝑏 / 𝑤]𝜒𝑦 = 𝑏)))
7069adantl 482 . . . . . . . . . . . . . . . . 17 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) → ([𝑏 / 𝑤]𝜒𝑦 = 𝑏)))
7170imp 407 . . . . . . . . . . . . . . . 16 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) → ([𝑏 / 𝑤]𝜒𝑦 = 𝑏))
721sbievw 2095 . . . . . . . . . . . . . . . . . . . . 21 ([𝑤 / 𝑦]𝜑𝜒)
7372bicomi 223 . . . . . . . . . . . . . . . . . . . 20 (𝜒 ↔ [𝑤 / 𝑦]𝜑)
7473sbbii 2079 . . . . . . . . . . . . . . . . . . 19 ([𝑏 / 𝑤]𝜒 ↔ [𝑏 / 𝑤][𝑤 / 𝑦]𝜑)
75 sbco2vv 2100 . . . . . . . . . . . . . . . . . . 19 ([𝑏 / 𝑤][𝑤 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)
7674, 75bitri 274 . . . . . . . . . . . . . . . . . 18 ([𝑏 / 𝑤]𝜒 ↔ [𝑏 / 𝑦]𝜑)
7776imbi1i 350 . . . . . . . . . . . . . . . . 17 (([𝑏 / 𝑤]𝜒𝑦 = 𝑏) ↔ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏))
78 2reu8i.b . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 = 𝑏 → (𝜑𝜂))
7978sbievw 2095 . . . . . . . . . . . . . . . . . . . . . 22 ([𝑏 / 𝑦]𝜑𝜂)
80 pm3.35 800 . . . . . . . . . . . . . . . . . . . . . . . 24 (([𝑏 / 𝑦]𝜑 ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) → 𝑦 = 𝑏)
8180equcomd 2022 . . . . . . . . . . . . . . . . . . . . . . 23 (([𝑏 / 𝑦]𝜑 ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) → 𝑏 = 𝑦)
8281ex 413 . . . . . . . . . . . . . . . . . . . . . 22 ([𝑏 / 𝑦]𝜑 → (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → 𝑏 = 𝑦))
8379, 82sylbir 234 . . . . . . . . . . . . . . . . . . . . 21 (𝜂 → (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → 𝑏 = 𝑦))
8483com12 32 . . . . . . . . . . . . . . . . . . . 20 (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → (𝜂𝑏 = 𝑦))
8584ad2antlr 724 . . . . . . . . . . . . . . . . . . 19 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)) → (𝜂𝑏 = 𝑦))
86 simplrr 775 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) → 𝑏𝐵)
8786ad2antrr 723 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → 𝑏𝐵)
88 sbequ 2086 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑢 = 𝑏 → ([𝑢 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
8988sbbidv 2082 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑢 = 𝑏 → ([𝑎 / 𝑥][𝑢 / 𝑦]𝜑 ↔ [𝑎 / 𝑥][𝑏 / 𝑦]𝜑))
90 equequ1 2028 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑢 = 𝑏 → (𝑢 = 𝑤𝑏 = 𝑤))
9190imbi2d 341 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑢 = 𝑏 → (([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤) ↔ ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤)))
9291ralbidv 3112 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑢 = 𝑏 → (∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤) ↔ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤)))
9389, 92anbi12d 631 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑢 = 𝑏 → (([𝑎 / 𝑥][𝑢 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤)) ↔ ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤))))
9493adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) ∧ 𝑢 = 𝑏) → (([𝑎 / 𝑥][𝑢 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤)) ↔ ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤))))
95 vex 3436 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑎 ∈ V
96 vex 3436 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑏 ∈ V
97 2reu8i.2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑥 = 𝑎𝑦 = 𝑏) → (𝜑𝜓))
9895, 96, 97sbc2ie 3799 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑𝜓)
9998a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) → ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑𝜓))
10099biimprd 247 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) → (𝜓[𝑎 / 𝑥][𝑏 / 𝑦]𝜑))
101100adantld 491 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) → ((𝜂𝜓) → [𝑎 / 𝑥][𝑏 / 𝑦]𝜑))
102101imp 407 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → [𝑎 / 𝑥][𝑏 / 𝑦]𝜑)
103 sbsbc 3720 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ([𝑏 / 𝑦]𝜑[𝑏 / 𝑦]𝜑)
104103sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑥][𝑏 / 𝑦]𝜑)
105 sbsbc 3720 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑[𝑎 / 𝑥][𝑏 / 𝑦]𝜑)
106104, 105bitri 274 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑[𝑎 / 𝑥][𝑏 / 𝑦]𝜑)
107102, 106sylibr 233 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → [𝑎 / 𝑥][𝑏 / 𝑦]𝜑)
10872sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑 ↔ [𝑎 / 𝑥]𝜒)
109 2reu8i.a . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑥 = 𝑎 → (𝜒𝜁))
110109sbievw 2095 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ([𝑎 / 𝑥]𝜒𝜁)
111108, 110bitri 274 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝜁)
112 2reu8i.1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜒𝑦 = 𝑤) ∧ 𝜁) → 𝑦 = 𝑤)
113112ex 413 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜒𝑦 = 𝑤) → (𝜁𝑦 = 𝑤))
114113adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ 𝑤𝐵) ∧ (𝜒𝑦 = 𝑤)) → (𝜁𝑦 = 𝑤))
11579imbi1i 350 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) ↔ (𝜂𝑦 = 𝑏))
116 pm2.27 42 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝜂 → ((𝜂𝑦 = 𝑏) → 𝑦 = 𝑏))
117116ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) → ((𝜂𝑦 = 𝑏) → 𝑦 = 𝑏))
118115, 117syl5bi 241 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) → (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → 𝑦 = 𝑏))
119 ax7 2019 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑦 = 𝑏 → (𝑦 = 𝑤𝑏 = 𝑤))
120118, 119syl6 35 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) → (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → (𝑦 = 𝑤𝑏 = 𝑤)))
121120imp 407 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) → (𝑦 = 𝑤𝑏 = 𝑤))
122121ad2antrr 723 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ 𝑤𝐵) ∧ (𝜒𝑦 = 𝑤)) → (𝑦 = 𝑤𝑏 = 𝑤))
123114, 122syld 47 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ 𝑤𝐵) ∧ (𝜒𝑦 = 𝑤)) → (𝜁𝑏 = 𝑤))
124111, 123syl5bi 241 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ 𝑤𝐵) ∧ (𝜒𝑦 = 𝑤)) → ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤))
125124ex 413 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ 𝑤𝐵) → ((𝜒𝑦 = 𝑤) → ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤)))
126125ralimdva 3108 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝜂𝜓)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) → ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤)))
127126exp31 420 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) → ((𝜂𝜓) → (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) → ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤)))))
128127com24 95 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) → (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → ((𝜂𝜓) → ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤)))))
129128imp41 426 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤))
130107, 129jca 512 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑏 = 𝑤)))
13187, 94, 130rspcedvd 3563 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → ∃𝑢𝐵 ([𝑎 / 𝑥][𝑢 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤)))
1324sbievw 2095 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ([𝑣 / 𝑥]𝜑𝜏)
133132bicomi 223 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝜏 ↔ [𝑣 / 𝑥]𝜑)
134133sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ([𝑢 / 𝑦]𝜏 ↔ [𝑢 / 𝑦][𝑣 / 𝑥]𝜑)
135 sbcom2 2161 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ([𝑢 / 𝑦][𝑣 / 𝑥]𝜑 ↔ [𝑣 / 𝑥][𝑢 / 𝑦]𝜑)
136134, 135bitri 274 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ([𝑢 / 𝑦]𝜏 ↔ [𝑣 / 𝑥][𝑢 / 𝑦]𝜑)
137136sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ↔ [𝑎 / 𝑣][𝑣 / 𝑥][𝑢 / 𝑦]𝜑)
138 sbco2vv 2100 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ([𝑎 / 𝑣][𝑣 / 𝑥][𝑢 / 𝑦]𝜑 ↔ [𝑎 / 𝑥][𝑢 / 𝑦]𝜑)
139137, 138bitri 274 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ↔ [𝑎 / 𝑥][𝑢 / 𝑦]𝜑)
1405sbievw 2095 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ([𝑣 / 𝑥]𝜒𝜃)
141140bicomi 223 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝜃 ↔ [𝑣 / 𝑥]𝜒)
142141sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ([𝑢 / 𝑦]𝜃 ↔ [𝑢 / 𝑦][𝑣 / 𝑥]𝜒)
143 sbcom2 2161 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ([𝑢 / 𝑦][𝑣 / 𝑥]𝜒 ↔ [𝑣 / 𝑥][𝑢 / 𝑦]𝜒)
144142, 143bitri 274 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ([𝑢 / 𝑦]𝜃 ↔ [𝑣 / 𝑥][𝑢 / 𝑦]𝜒)
145144sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃 ↔ [𝑎 / 𝑣][𝑣 / 𝑥][𝑢 / 𝑦]𝜒)
146 sbco2vv 2100 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ([𝑎 / 𝑣][𝑣 / 𝑥][𝑢 / 𝑦]𝜒 ↔ [𝑎 / 𝑥][𝑢 / 𝑦]𝜒)
14773sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ([𝑢 / 𝑦]𝜒 ↔ [𝑢 / 𝑦][𝑤 / 𝑦]𝜑)
148 nfs1v 2153 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 𝑦[𝑤 / 𝑦]𝜑
149148sbf 2263 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ([𝑢 / 𝑦][𝑤 / 𝑦]𝜑 ↔ [𝑤 / 𝑦]𝜑)
150147, 149bitri 274 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ([𝑢 / 𝑦]𝜒 ↔ [𝑤 / 𝑦]𝜑)
151150sbbii 2079 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ([𝑎 / 𝑥][𝑢 / 𝑦]𝜒 ↔ [𝑎 / 𝑥][𝑤 / 𝑦]𝜑)
152145, 146, 1513bitri 297 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃 ↔ [𝑎 / 𝑥][𝑤 / 𝑦]𝜑)
153152imbi1i 350 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤) ↔ ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤))
154153ralbii 3092 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤) ↔ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤))
155139, 154anbi12i 627 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) ↔ ([𝑎 / 𝑥][𝑢 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤)))
156155rexbii 3181 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) ↔ ∃𝑢𝐵 ([𝑎 / 𝑥][𝑢 / 𝑦]𝜑 ∧ ∀𝑤𝐵 ([𝑎 / 𝑥][𝑤 / 𝑦]𝜑𝑢 = 𝑤)))
157131, 156sylibr 233 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → ∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)))
158 pm2.27 42 . . . . . . . . . . . . . . . . . . . . . . . 24 (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → ((∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎) → 𝑥 = 𝑎))
159157, 158syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (𝜂𝜓)) → ((∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎) → 𝑥 = 𝑎))
160159impancom 452 . . . . . . . . . . . . . . . . . . . . . 22 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)) → ((𝜂𝜓) → 𝑥 = 𝑎))
161160imp 407 . . . . . . . . . . . . . . . . . . . . 21 ((((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)) ∧ (𝜂𝜓)) → 𝑥 = 𝑎)
162161equcomd 2022 . . . . . . . . . . . . . . . . . . . 20 ((((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)) ∧ (𝜂𝜓)) → 𝑎 = 𝑥)
163162exp32 421 . . . . . . . . . . . . . . . . . . 19 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)) → (𝜂 → (𝜓𝑎 = 𝑥)))
16485, 163jcad 513 . . . . . . . . . . . . . . . . . 18 (((((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ([𝑏 / 𝑦]𝜑𝑦 = 𝑏)) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)) → (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))
165164exp31 420 . . . . . . . . . . . . . . . . 17 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) → (([𝑏 / 𝑦]𝜑𝑦 = 𝑏) → ((∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎) → (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))))
16677, 165syl5bi 241 . . . . . . . . . . . . . . . 16 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) → (([𝑏 / 𝑤]𝜒𝑦 = 𝑏) → ((∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎) → (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))))
16771, 166mpd 15 . . . . . . . . . . . . . . 15 (((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) → ((∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎) → (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
168167expimpd 454 . . . . . . . . . . . . . 14 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) → ((∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑎 / 𝑣][𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑎)) → (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
16961, 168syld 47 . . . . . . . . . . . . 13 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ (𝑎𝐴𝑏𝐵)) → (∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
170169impancom 452 . . . . . . . . . . . 12 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ ∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣))) → ((𝑎𝐴𝑏𝐵) → (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
171170ralrimivv 3122 . . . . . . . . . . 11 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ ∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣))) → ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))
17238, 171jca 512 . . . . . . . . . 10 ((((𝑥𝐴𝑦𝐵) ∧ 𝜑) ∧ ∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣))) → (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
173172ex 413 . . . . . . . . 9 (((𝑥𝐴𝑦𝐵) ∧ 𝜑) → (∀𝑣𝐴 (∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))))
17437, 173syl5 34 . . . . . . . 8 (((𝑥𝐴𝑦𝐵) ∧ 𝜑) → ((∀𝑤𝐵 (𝜒𝑦 = 𝑤) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))))
175174expd 416 . . . . . . 7 (((𝑥𝐴𝑦𝐵) ∧ 𝜑) → (∀𝑤𝐵 (𝜒𝑦 = 𝑤) → (∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣) → (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))))
176175expimpd 454 . . . . . 6 ((𝑥𝐴𝑦𝐵) → ((𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) → (∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣) → (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))))
177176impd 411 . . . . 5 ((𝑥𝐴𝑦𝐵) → (((𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))))
178177reximdva 3203 . . . 4 (𝑥𝐴 → (∃𝑦𝐵 ((𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑢𝐵 ([𝑢 / 𝑦]𝜏 ∧ ∀𝑤𝐵 ([𝑢 / 𝑦]𝜃𝑢 = 𝑤)) → 𝑥 = 𝑣)) → ∃𝑦𝐵 (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))))
17936, 178syl5bi 241 . . 3 (𝑥𝐴 → ((∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣)) → ∃𝑦𝐵 (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥))))))
180179reximia 3176 . 2 (∃𝑥𝐴 (∃𝑦𝐵 (𝜑 ∧ ∀𝑤𝐵 (𝜒𝑦 = 𝑤)) ∧ ∀𝑣𝐴 (∃𝑦𝐵 (𝜏 ∧ ∀𝑤𝐵 (𝜃𝑦 = 𝑤)) → 𝑥 = 𝑣)) → ∃𝑥𝐴𝑦𝐵 (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
18111, 180sylbi 216 1 (∃!𝑥𝐴 ∃!𝑦𝐵 𝜑 → ∃𝑥𝐴𝑦𝐵 (𝜑 ∧ ∀𝑎𝐴𝑏𝐵 (𝜂 → (𝑏 = 𝑦 ∧ (𝜓𝑎 = 𝑥)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  [wsb 2067  wcel 2106  wral 3064  wrex 3065  ∃!wreu 3066  [wsbc 3716
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-tru 1542  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ral 3069  df-rex 3070  df-reu 3072  df-v 3434  df-sbc 3717
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator