Theorem frege118 43977

Description: Simplified application of one direction of dffrege115 43974. 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 43917	. . 3 ⊢ (∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → [𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
3		sbcimg 3805	. . . . 5 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋))))
4	1, 3	ax-mp 5	. . . 4 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑋 → [𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)))
5		sbcbr1g 5167	. . . . . . 7 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋))
6	1, 5	ax-mp 5	. . . . . 6 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑋)
7		csbvarg 4400	. . . . . . . 8 ⊢ (𝑌 ∈ 𝑉 → ⦋𝑌 / 𝑏⦌𝑏 = 𝑌)
8	1, 7	ax-mp 5	. . . . . . 7 ⊢ ⦋𝑌 / 𝑏⦌𝑏 = 𝑌
9	8	breq1i 5117	. . . . . 6 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
10	6, 9	bitri 275	. . . . 5 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑋 ↔ 𝑌𝑅𝑋)
11		sbcal 3816	. . . . . 6 ⊢ ([𝑌 / 𝑏]∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ∀𝑎[𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋))
12		sbcimg 3805	. . . . . . . . 9 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋)))
13	1, 12	ax-mp 5	. . . . . . . 8 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ ([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋))
14		sbcbr1g 5167	. . . . . . . . . . 11 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎))
15	1, 14	ax-mp 5	. . . . . . . . . 10 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ ⦋𝑌 / 𝑏⦌𝑏𝑅𝑎)
16	8	breq1i 5117	. . . . . . . . . 10 ⊢ (⦋𝑌 / 𝑏⦌𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
17	15, 16	bitri 275	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑏𝑅𝑎 ↔ 𝑌𝑅𝑎)
18		sbcg 3829	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝑉 → ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋))
19	1, 18	ax-mp 5	. . . . . . . . 9 ⊢ ([𝑌 / 𝑏]𝑎 = 𝑋 ↔ 𝑎 = 𝑋)
20	17, 19	imbi12i 350	. . . . . . . 8 ⊢ (([𝑌 / 𝑏]𝑏𝑅𝑎 → [𝑌 / 𝑏]𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
21	13, 20	bitri 275	. . . . . . 7 ⊢ ([𝑌 / 𝑏](𝑏𝑅𝑎 → 𝑎 = 𝑋) ↔ (𝑌𝑅𝑎 → 𝑎 = 𝑋))
22	21	albii 1819	. . . . . 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 43976	. 2 ⊢ ((∀𝑏(𝑏𝑅𝑋 → ∀𝑎(𝑏𝑅𝑎 → 𝑎 = 𝑋)) → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))) → (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋))))
29	26, 28	ax-mp 5	1 ⊢ (Fun ◡◡𝑅 → (𝑌𝑅𝑋 → ∀𝑎(𝑌𝑅𝑎 → 𝑎 = 𝑋)))

Syntax hints:   → wi 4   ↔ wb 206  ∀wal 1538   = wceq 1540   ∈ wcel 2109  [wsbc 3756  ⦋csb 3865   class class class wbr 5110  ^◡ccnv 5640  Fun wfun 6508

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pr 5390  ax-frege1 43786  ax-frege2 43787  ax-frege8 43805  ax-frege52a 43853  ax-frege58b 43897

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-ifp 1063  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ral 3046  df-rex 3055  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-ss 3934  df-nul 4300  df-if 4492  df-sn 4593  df-pr 4595  df-op 4599  df-br 5111  df-opab 5173  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-fun 6516

This theorem is referenced by:  frege119  43978