Theorem frege118 43971

Description: Simplified application of one direction of dffrege115 43968. 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 43911	. . 3 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → [𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
3		sbcimg 3843	. . . . 5 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋))))
4	1, 3	ax-mp 5	. . . 4 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
5		sbcbr1g 5205	. . . . . . 7 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋))
6	1, 5	ax-mp 5	. . . . . 6 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋)
7		csbvarg 4440	. . . . . . . 8 ⊢ (𝑌 ∈ 𝑉 → ⦋𝑌 / 𝑏⦌𝑏 = 𝑌)
8	1, 7	ax-mp 5	. . . . . . 7 ⊢ ⦋𝑌 / 𝑏⦌𝑏 = 𝑌
9	8	breq1i 5155	. . . . . 6 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
10	6, 9	bitri 275	. . . . 5 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
11		sbcal 3855	. . . . . 6 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋))
12		sbcimg 3843	. . . . . . . . 9 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋)))
13	1, 12	ax-mp 5	. . . . . . . 8 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋))
14		sbcbr1g 5205	. . . . . . . . . . 11 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎))
15	1, 14	ax-mp 5	. . . . . . . . . 10 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎)
16	8	breq1i 5155	. . . . . . . . . 10 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
17	15, 16	bitri 275	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
18		sbcg 3870	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋))
19	1, 18	ax-mp 5	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋)
20	17, 19	imbi12i 350	. . . . . . . 8 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
21	13, 20	bitri 275	. . . . . . 7 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
22	21	albii 1816	. . . . . 6 ⊢ (∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
23	11, 22	bitri 275	. . . . 5 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
24	10, 23	imbi12i 350	. . . 4 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
25	4, 24	bitri 275	. . 3 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
26	2, 25	sylib 218	. 2 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
27		frege116.x	. . 3 ⊢ 𝑋 ∈ 𝑈
28	27	frege117 43970	. 2 ⊢ ((∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))) → (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))))
29	26, 28	ax-mp 5	1 ⊢ (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))

Syntax hints:   → wi 4   ↔ wb 206  ∀wal 1535   = wceq 1537   ∈ wcel 2106  [wsbc 3791  ⦋csb 3908   class class class wbr 5148  ^◡ccnv 5688  Fun wfun 6557

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pr 5438  ax-frege1 43780  ax-frege2 43781  ax-frege8 43799  ax-frege52a 43847  ax-frege58b 43891

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-ifp 1063  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-ss 3980  df-nul 4340  df-if 4532  df-sn 4632  df-pr 4634  df-op 4638  df-br 5149  df-opab 5211  df-id 5583  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-fun 6565

This theorem is referenced by:  frege119  43972