Theorem opabiotafun 6973

Description: Define a function whose value is "the unique 𝑦 such that 𝜑(𝑥, 𝑦)". (Contributed by NM, 19-May-2015.)

Hypothesis

Ref	Expression
opabiota.1	⊢ 𝐹 = {⟨𝑥, 𝑦⟩ ∣ {𝑦 ∣ 𝜑} = {𝑦}}

Assertion

Ref	Expression
opabiotafun	⊢ Fun 𝐹

Distinct variable group:   𝑥,𝑦,𝐹

Allowed substitution hints:   𝜑(𝑥, 𝑦)

Proof of Theorem opabiotafun

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		funopab 6583	. . 3 ⊢ (Fun {⟨𝑥, 𝑦⟩ ∣ {𝑦 ∣ 𝜑} = {𝑦}} ↔ ∀𝑥∃*𝑦{𝑦 ∣ 𝜑} = {𝑦})
2		mo2icl 3674	. . . . 5 ⊢ (∀𝑧({𝑦 ∣ 𝜑} = {𝑧} → 𝑧 = ∪ {𝑦 ∣ 𝜑}) → ∃*𝑧{𝑦 ∣ 𝜑} = {𝑧})
3		unieq 4880	. . . . . 6 ⊢ ({𝑦 ∣ 𝜑} = {𝑧} → ∪ {𝑦 ∣ 𝜑} = ∪ {𝑧})
4		unisnv 4889	. . . . . 6 ⊢ ∪ {𝑧} = 𝑧
5	3, 4	eqtr2di 2815	. . . . 5 ⊢ ({𝑦 ∣ 𝜑} = {𝑧} → 𝑧 = ∪ {𝑦 ∣ 𝜑})
6	2, 5	mpg 1829	. . . 4 ⊢ ∃*𝑧{𝑦 ∣ 𝜑} = {𝑧}
7		nfv 1948	. . . . 5 ⊢ Ⅎ𝑧{𝑦 ∣ 𝜑} = {𝑦}
8		nfab1 2927	. . . . . 6 ⊢ Ⅎ𝑦{𝑦 ∣ 𝜑}
9	8	nfeq1 2940	. . . . 5 ⊢ Ⅎ𝑦{𝑦 ∣ 𝜑} = {𝑧}
10		sneq 4593	. . . . . 6 ⊢ (𝑦 = 𝑧 → {𝑦} = {𝑧})
11	10	eqeq2d 2774	. . . . 5 ⊢ (𝑦 = 𝑧 → ({𝑦 ∣ 𝜑} = {𝑦} ↔ {𝑦 ∣ 𝜑} = {𝑧}))
12	7, 9, 11	cbvmow 2631	. . . 4 ⊢ (∃*𝑦{𝑦 ∣ 𝜑} = {𝑦} ↔ ∃*𝑧{𝑦 ∣ 𝜑} = {𝑧})
13	6, 12	mpbir 234	. . 3 ⊢ ∃*𝑦{𝑦 ∣ 𝜑} = {𝑦}
14	1, 13	mpgbir 1831	. 2 ⊢ Fun {⟨𝑥, 𝑦⟩ ∣ {𝑦 ∣ 𝜑} = {𝑦}}
15		opabiota.1	. . 3 ⊢ 𝐹 = {⟨𝑥, 𝑦⟩ ∣ {𝑦 ∣ 𝜑} = {𝑦}}
16	15	funeqi 6568	. 2 ⊢ (Fun 𝐹 ↔ Fun {⟨𝑥, 𝑦⟩ ∣ {𝑦 ∣ 𝜑} = {𝑦}})
17	14, 16	mpbir 234	1 ⊢ Fun 𝐹

This proof depends on syntax axioms:   → wi 4   = wceq 1569  ∃*wmo 2565  {cab 2741  {csn 4587  ∪ cuni 4869  {copab 5169  Fun wfun 6540

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-sep 5251  ax-pr 5394

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ral 3080  df-rex 3090  df-rab 3416  df-v 3455  df-ss 3900  df-dif 4049  df-in 4093  df-un 4153  df-nul 4281  df-if 4485  df-sn 4588  df-pr 4590  df-op 4838  df-uni 4870  df-br 5106  df-opab 5170  df-id 5549  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-fun 6548

This theorem is used by:  opabiota  6975