Theorem frege118 44426

Description: Simplified application of one direction of dffrege115 44423. 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 44366	. . 3 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → [𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
3		sbcimg 3778	. . . . 5 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋))))
4	1, 3	ax-mp 5	. . . 4 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
5		sbcbr1g 5136	. . . . . . 7 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋))
6	1, 5	ax-mp 5	. . . . . 6 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋)
7		csbvarg 4369	. . . . . . . 8 ⊢ (𝑌 ∈ 𝑉 → ⦋𝑌 / 𝑏⦌𝑏 = 𝑌)
8	1, 7	ax-mp 5	. . . . . . 7 ⊢ ⦋𝑌 / 𝑏⦌𝑏 = 𝑌
9	8	breq1i 5086	. . . . . 6 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
10	6, 9	bitri 276	. . . . 5 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
11		sbcal 3789	. . . . . 6 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋))
12		sbcimg 3778	. . . . . . . . 9 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋)))
13	1, 12	ax-mp 5	. . . . . . . 8 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋))
14		sbcbr1g 5136	. . . . . . . . . . 11 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎))
15	1, 14	ax-mp 5	. . . . . . . . . 10 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎)
16	8	breq1i 5086	. . . . . . . . . 10 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
17	15, 16	bitri 276	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
18		sbcg 3802	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋))
19	1, 18	ax-mp 5	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋)
20	17, 19	imbi12i 351	. . . . . . . 8 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
21	13, 20	bitri 276	. . . . . . 7 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
22	21	albii 1826	. . . . . 6 ⊢ (∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
23	11, 22	bitri 276	. . . . 5 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))
24	10, 23	imbi12i 351	. . . 4 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
25	4, 24	bitri 276	. . 3 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
26	2, 25	sylib 219	. 2 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))
27		frege116.x	. . 3 ⊢ 𝑋 ∈ 𝑈
28	27	frege117 44425	. 2 ⊢ ((∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))) → (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))))
29	26, 28	ax-mp 5	1 ⊢ (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))

Syntax hints:   → wi 4   ↔ wb 207  ∀wal 1545   = wceq 1547   ∈ wcel 2119  [wsbc 3730  ⦋csb 3838   class class class wbr 5079  ^◡ccnv 5624  Fun wfun 6486

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-sep 5225  ax-pr 5369  ax-frege1 44235  ax-frege2 44236  ax-frege8 44254  ax-frege52a 44302  ax-frege58b 44346

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-ifp 1069  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ral 3055  df-rex 3065  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-sn 4563  df-pr 4565  df-op 4569  df-br 5080  df-opab 5142  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-fun 6494

This theorem is referenced by:  frege119  44427