Theorem frege118 45173

Description: Simplified application of one direction of dffrege115 45170. 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 45113	. . 3 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → [𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
3		sbcimg 3790	. . . . 5 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋))))
4	1, 3	ax-mp 5	. . . 4 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
5		sbcbr1g 5166	. . . . . . 7 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋))
6	1, 5	ax-mp 5	. . . . . 6 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋)
7		csbvarg 4395	. . . . . . . 8 ⊢ (𝑌 ∈ 𝑉 → ⦋𝑌 / 𝑏⦌𝑏 = 𝑌)
8	1, 7	ax-mp 5	. . . . . . 7 ⊢ ⦋𝑌 / 𝑏⦌𝑏 = 𝑌
9	8	breq1i 5113	. . . . . 6 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
10	6, 9	bitri 278	. . . . 5 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
11		sbcal 3801	. . . . . 6 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋))
12		sbcimg 3790	. . . . . . . . 9 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋)))
13	1, 12	ax-mp 5	. . . . . . . 8 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋))
14		sbcbr1g 5166	. . . . . . . . . . 11 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎))
15	1, 14	ax-mp 5	. . . . . . . . . 10 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎)
16	8	breq1i 5113	. . . . . . . . . 10 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
17	15, 16	bitri 278	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
18		sbcg 3814	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋))
19	1, 18	ax-mp 5	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋)
20	17, 19	imbi12i 353	. . . . . . . 8 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
21	13, 20	bitri 278	. . . . . . 7 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
22	21	albii 1852	. . . . . 6 ⊢ (∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
23	11, 22	bitri 278	. . . . 5 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
24	10, 23	imbi12i 353	. . . 4 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
25	4, 24	bitri 278	. . 3 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
26	2, 25	sylib 221	. 2 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
27		frege116.x	. . 3 ⊢ 𝑋 ∈ 𝑈
28	27	frege117 45172	. 2 ⊢ ((∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))) → (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))))
29	26, 28	ax-mp 5	1 ⊢ (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209  ∀wal 1568   = wceq 1570   ∈ wcel 2147  [wsbc 3742  ⦋csb 3851   class class class wbr 5106  ^◡ccnv 5654  Fun wfun 6552

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5252  ax-pr 5395  ax-frege1 44982  ax-frege2 44983  ax-frege8 45001  ax-frege52a 45049  ax-frege58b 45093

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-ifp 1079  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ral 3081  df-rex 3091  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-sn 4589  df-pr 4591  df-op 4839  df-br 5107  df-opab 5171  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-fun 6560

This theorem is used by:  frege119  45174