Theorem fgreu 32689

Description: Exactly one point of a function's graph has a given first element. (Contributed by Thierry Arnoux, 1-Apr-2018.)

Assertion

Ref	Expression
fgreu	⊢ ((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) → ∃!𝑝 ∈ 𝐹 𝑋 = (1st ‘𝑝))

Distinct variable groups:   𝐹,𝑝   𝑋,𝑝

Proof of Theorem fgreu

Dummy variable 𝑞 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		funfvop 7070	. . 3 ⊢ ((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) → ⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝐹)
2		simplll 775	. . . . . . . 8 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → Fun 𝐹)
3		funrel 6585	. . . . . . . 8 ⊢ (Fun 𝐹 → Rel 𝐹)
4	2, 3	syl 17	. . . . . . 7 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → Rel 𝐹)
5		simplr 769	. . . . . . 7 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → 𝑝 ∈ 𝐹)
6		1st2nd 8063	. . . . . . 7 ⊢ ((Rel 𝐹 ∧ 𝑝 ∈ 𝐹) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
7	4, 5, 6	syl2anc 584	. . . . . 6 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
8		simpr 484	. . . . . . 7 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → 𝑋 = (1st ‘𝑝))
9		simpllr 776	. . . . . . . 8 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → 𝑋 ∈ dom 𝐹)
10	8	opeq1d 4884	. . . . . . . . . 10 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → ⟨𝑋, (2nd ‘𝑝)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
11	7, 10	eqtr4d 2778	. . . . . . . . 9 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → 𝑝 = ⟨𝑋, (2nd ‘𝑝)⟩)
12	11, 5	eqeltrrd 2840	. . . . . . . 8 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → ⟨𝑋, (2nd ‘𝑝)⟩ ∈ 𝐹)
13		funopfvb 6963	. . . . . . . . 9 ⊢ ((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) → ((𝐹‘𝑋) = (2nd ‘𝑝) ↔ ⟨𝑋, (2nd ‘𝑝)⟩ ∈ 𝐹))
14	13	biimpar 477	. . . . . . . 8 ⊢ (((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ ⟨𝑋, (2nd ‘𝑝)⟩ ∈ 𝐹) → (𝐹‘𝑋) = (2nd ‘𝑝))
15	2, 9, 12, 14	syl21anc 838	. . . . . . 7 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → (𝐹‘𝑋) = (2nd ‘𝑝))
16	8, 15	opeq12d 4886	. . . . . 6 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → ⟨𝑋, (𝐹‘𝑋)⟩ = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
17	7, 16	eqtr4d 2778	. . . . 5 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑋 = (1st ‘𝑝)) → 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩)
18		simpr 484	. . . . . . 7 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩) → 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩)
19	18	fveq2d 6911	. . . . . 6 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩) → (1st ‘𝑝) = (1st ‘⟨𝑋, (𝐹‘𝑋)⟩))
20		fvex 6920	. . . . . . . 8 ⊢ (𝐹‘𝑋) ∈ V
21		op1stg 8025	. . . . . . . 8 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (𝐹‘𝑋) ∈ V) → (1st ‘⟨𝑋, (𝐹‘𝑋)⟩) = 𝑋)
22	20, 21	mpan2 691	. . . . . . 7 ⊢ (𝑋 ∈ dom 𝐹 → (1st ‘⟨𝑋, (𝐹‘𝑋)⟩) = 𝑋)
23	22	ad3antlr 731	. . . . . 6 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩) → (1st ‘⟨𝑋, (𝐹‘𝑋)⟩) = 𝑋)
24	19, 23	eqtr2d 2776	. . . . 5 ⊢ ((((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) ∧ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩) → 𝑋 = (1st ‘𝑝))
25	17, 24	impbida 801	. . . 4 ⊢ (((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) ∧ 𝑝 ∈ 𝐹) → (𝑋 = (1st ‘𝑝) ↔ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩))
26	25	ralrimiva 3144	. . 3 ⊢ ((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) → ∀𝑝 ∈ 𝐹 (𝑋 = (1st ‘𝑝) ↔ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩))
27		eqeq2 2747	. . . . . 6 ⊢ (𝑞 = ⟨𝑋, (𝐹‘𝑋)⟩ → (𝑝 = 𝑞 ↔ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩))
28	27	bibi2d 342	. . . . 5 ⊢ (𝑞 = ⟨𝑋, (𝐹‘𝑋)⟩ → ((𝑋 = (1st ‘𝑝) ↔ 𝑝 = 𝑞) ↔ (𝑋 = (1st ‘𝑝) ↔ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩)))
29	28	ralbidv 3176	. . . 4 ⊢ (𝑞 = ⟨𝑋, (𝐹‘𝑋)⟩ → (∀𝑝 ∈ 𝐹 (𝑋 = (1st ‘𝑝) ↔ 𝑝 = 𝑞) ↔ ∀𝑝 ∈ 𝐹 (𝑋 = (1st ‘𝑝) ↔ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩)))
30	29	rspcev 3622	. . 3 ⊢ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝐹 ∧ ∀𝑝 ∈ 𝐹 (𝑋 = (1st ‘𝑝) ↔ 𝑝 = ⟨𝑋, (𝐹‘𝑋)⟩)) → ∃𝑞 ∈ 𝐹 ∀𝑝 ∈ 𝐹 (𝑋 = (1st ‘𝑝) ↔ 𝑝 = 𝑞))
31	1, 26, 30	syl2anc 584	. 2 ⊢ ((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) → ∃𝑞 ∈ 𝐹 ∀𝑝 ∈ 𝐹 (𝑋 = (1st ‘𝑝) ↔ 𝑝 = 𝑞))
32		reu6 3735	. 2 ⊢ (∃!𝑝 ∈ 𝐹 𝑋 = (1st ‘𝑝) ↔ ∃𝑞 ∈ 𝐹 ∀𝑝 ∈ 𝐹 (𝑋 = (1st ‘𝑝) ↔ 𝑝 = 𝑞))
33	31, 32	sylibr 234	1 ⊢ ((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) → ∃!𝑝 ∈ 𝐹 𝑋 = (1st ‘𝑝))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2106  ∀wral 3059  ∃wrex 3068  ∃!wreu 3376  Vcvv 3478  ⟨cop 4637  dom cdm 5689  Rel wrel 5694  Fun wfun 6557  ‘cfv 6563  1^st c1st 8011  2^nd c2nd 8012

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-un 7754

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-reu 3379  df-rab 3434  df-v 3480  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-nul 4340  df-if 4532  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5583  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-iota 6516  df-fun 6565  df-fn 6566  df-fv 6571  df-1st 8013  df-2nd 8014

This theorem is referenced by:  fcnvgreu  32690