Theorem frege118 44505

Description: Simplified application of one direction of dffrege115 44502. Proposition 118 of [Frege1879] p. 78. (Contributed by RP, 8-Jul-2020.) (Proof modification is discouraged.)

Hypotheses

Ref	Expression
frege116.x	⊢ 𝑋 ∈ 𝑈
frege118.y	⊢ 𝑌 ∈ 𝑉

Assertion

Ref	Expression
frege118	⊢ (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))

Distinct variable groups:   𝑅,𝑎   𝑋,𝑎   𝑌,𝑎

Allowed substitution hints:   𝑈(𝑎)   𝑉(𝑎)

Proof of Theorem frege118

Dummy variable 𝑏 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		frege118.y	. . . 4 ⊢ 𝑌 ∈ 𝑉
2	1	frege58c 44445	. . 3 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → [𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
3		sbcimg 3787	. . . . 5 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋))))
4	1, 3	ax-mp 5	. . . 4 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
5		sbcbr1g 5151	. . . . . . 7 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋))
6	1, 5	ax-mp 5	. . . . . 6 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋)
7		csbvarg 4382	. . . . . . . 8 ⊢ (𝑌 ∈ 𝑉 → ⦋𝑌 / 𝑏⦌𝑏 = 𝑌)
8	1, 7	ax-mp 5	. . . . . . 7 ⊢ ⦋𝑌 / 𝑏⦌𝑏 = 𝑌
9	8	breq1i 5101	. . . . . 6 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
10	6, 9	bitri 277	. . . . 5 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
11		sbcal 3798	. . . . . 6 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋))
12		sbcimg 3787	. . . . . . . . 9 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋)))
13	1, 12	ax-mp 5	. . . . . . . 8 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋))
14		sbcbr1g 5151	. . . . . . . . . . 11 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎))
15	1, 14	ax-mp 5	. . . . . . . . . 10 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎)
16	8	breq1i 5101	. . . . . . . . . 10 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
17	15, 16	bitri 277	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
18		sbcg 3811	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋))
19	1, 18	ax-mp 5	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋)
20	17, 19	imbi12i 352	. . . . . . . 8 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
21	13, 20	bitri 277	. . . . . . 7 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
22	21	albii 1833	. . . . . 6 ⊢ (∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
23	11, 22	bitri 277	. . . . 5 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
24	10, 23	imbi12i 352	. . . 4 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
25	4, 24	bitri 277	. . 3 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
26	2, 25	sylib 220	. 2 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
27		frege116.x	. . 3 ⊢ 𝑋 ∈ 𝑈
28	27	frege117 44504	. 2 ⊢ ((∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))) → (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))))
29	26, 28	ax-mp 5	1 ⊢ (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))

Syntax hints:   → wi 4   ↔ wb 208  ∀wal 1552   = wceq 1554   ∈ wcel 2136  [wsbc 3739  ⦋csb 3847   class class class wbr 5094  ^◡ccnv 5639  Fun wfun 6504

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1809  ax-4 1823  ax-5 1924  ax-6 1981  ax-7 2022  ax-8 2138  ax-9 2146  ax-10 2169  ax-11 2185  ax-12 2206  ax-ext 2728  ax-sep 5240  ax-pr 5384  ax-frege1 44314  ax-frege2 44315  ax-frege8 44333  ax-frege52a 44381  ax-frege58b 44425

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-ifp 1072  df-3an 1097  df-tru 1557  df-fal 1567  df-ex 1794  df-nf 1798  df-sb 2085  df-mo 2560  df-clab 2735  df-cleq 2748  df-clel 2831  df-nfc 2905  df-ral 3071  df-rex 3081  df-rab 3409  df-v 3450  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4281  df-if 4475  df-sn 4577  df-pr 4579  df-op 4583  df-br 5095  df-opab 5157  df-id 5535  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-fun 6512

This theorem is referenced by:  frege119  44506