Theorem fprb 31669

Description: A condition for functionhood over a pair. (Contributed by Scott Fenton, 16-Sep-2013.)

Hypotheses

Ref	Expression
fprb.1	⊢ 𝐴 ∈ V
fprb.2	⊢ 𝐵 ∈ V

Assertion

Ref	Expression
fprb	⊢ (𝐴 ≠ 𝐵 → (𝐹:{𝐴, 𝐵}⟶𝑅 ↔ ∃𝑥 ∈ 𝑅 ∃𝑦 ∈ 𝑅 𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}))

Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦   𝑥,𝐹,𝑦   𝑥,𝑅,𝑦

Proof of Theorem fprb

Step	Hyp	Ref	Expression
1		fprb.1	. . . . . . 7 ⊢ 𝐴 ∈ V
2	1	prid1 4297	. . . . . 6 ⊢ 𝐴 ∈ {𝐴, 𝐵}
3		ffvelrn 6357	. . . . . 6 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐴 ∈ {𝐴, 𝐵}) → (𝐹‘𝐴) ∈ 𝑅)
4	2, 3	mpan2 707	. . . . 5 ⊢ (𝐹:{𝐴, 𝐵}⟶𝑅 → (𝐹‘𝐴) ∈ 𝑅)
5	4	adantr 481	. . . 4 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐴 ≠ 𝐵) → (𝐹‘𝐴) ∈ 𝑅)
6		fprb.2	. . . . . . 7 ⊢ 𝐵 ∈ V
7	6	prid2 4298	. . . . . 6 ⊢ 𝐵 ∈ {𝐴, 𝐵}
8		ffvelrn 6357	. . . . . 6 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐵 ∈ {𝐴, 𝐵}) → (𝐹‘𝐵) ∈ 𝑅)
9	7, 8	mpan2 707	. . . . 5 ⊢ (𝐹:{𝐴, 𝐵}⟶𝑅 → (𝐹‘𝐵) ∈ 𝑅)
10	9	adantr 481	. . . 4 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐴 ≠ 𝐵) → (𝐹‘𝐵) ∈ 𝑅)
11		fvex 6201	. . . . . . . 8 ⊢ (𝐹‘𝐴) ∈ V
12	1, 11	fvpr1 6456	. . . . . . 7 ⊢ (𝐴 ≠ 𝐵 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐴) = (𝐹‘𝐴))
13		fvex 6201	. . . . . . . 8 ⊢ (𝐹‘𝐵) ∈ V
14	6, 13	fvpr2 6457	. . . . . . 7 ⊢ (𝐴 ≠ 𝐵 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐵) = (𝐹‘𝐵))
15		fveq2 6191	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → (𝐹‘𝑥) = (𝐹‘𝐴))
16		fveq2 6191	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐴))
17	15, 16	eqeq12d 2637	. . . . . . . . 9 ⊢ (𝑥 = 𝐴 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥) ↔ (𝐹‘𝐴) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐴)))
18		eqcom 2629	. . . . . . . . 9 ⊢ ((𝐹‘𝐴) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐴) ↔ ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐴) = (𝐹‘𝐴))
19	17, 18	syl6bb 276	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥) ↔ ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐴) = (𝐹‘𝐴)))
20		fveq2 6191	. . . . . . . . . 10 ⊢ (𝑥 = 𝐵 → (𝐹‘𝑥) = (𝐹‘𝐵))
21		fveq2 6191	. . . . . . . . . 10 ⊢ (𝑥 = 𝐵 → ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐵))
22	20, 21	eqeq12d 2637	. . . . . . . . 9 ⊢ (𝑥 = 𝐵 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥) ↔ (𝐹‘𝐵) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐵)))
23		eqcom 2629	. . . . . . . . 9 ⊢ ((𝐹‘𝐵) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐵) ↔ ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐵) = (𝐹‘𝐵))
24	22, 23	syl6bb 276	. . . . . . . 8 ⊢ (𝑥 = 𝐵 → ((𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥) ↔ ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐵) = (𝐹‘𝐵)))
25	1, 6, 19, 24	ralpr 4238	. . . . . . 7 ⊢ (∀𝑥 ∈ {𝐴, 𝐵} (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥) ↔ (({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐴) = (𝐹‘𝐴) ∧ ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝐵) = (𝐹‘𝐵)))
26	12, 14, 25	sylanbrc 698	. . . . . 6 ⊢ (𝐴 ≠ 𝐵 → ∀𝑥 ∈ {𝐴, 𝐵} (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥))
27	26	adantl 482	. . . . 5 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐴 ≠ 𝐵) → ∀𝑥 ∈ {𝐴, 𝐵} (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥))
28		ffn 6045	. . . . . 6 ⊢ (𝐹:{𝐴, 𝐵}⟶𝑅 → 𝐹 Fn {𝐴, 𝐵})
29	1, 6, 11, 13	fpr 6421	. . . . . . 7 ⊢ (𝐴 ≠ 𝐵 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}:{𝐴, 𝐵}⟶{(𝐹‘𝐴), (𝐹‘𝐵)})
30		ffn 6045	. . . . . . 7 ⊢ ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}:{𝐴, 𝐵}⟶{(𝐹‘𝐴), (𝐹‘𝐵)} → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} Fn {𝐴, 𝐵})
31	29, 30	syl 17	. . . . . 6 ⊢ (𝐴 ≠ 𝐵 → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} Fn {𝐴, 𝐵})
32		eqfnfv 6311	. . . . . 6 ⊢ ((𝐹 Fn {𝐴, 𝐵} ∧ {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} Fn {𝐴, 𝐵}) → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ ∀𝑥 ∈ {𝐴, 𝐵} (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥)))
33	28, 31, 32	syl2an 494	. . . . 5 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐴 ≠ 𝐵) → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩} ↔ ∀𝑥 ∈ {𝐴, 𝐵} (𝐹‘𝑥) = ({⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}‘𝑥)))
34	27, 33	mpbird 247	. . . 4 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐴 ≠ 𝐵) → 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
35		opeq2 4403	. . . . . . 7 ⊢ (𝑥 = (𝐹‘𝐴) → ⟨𝐴, 𝑥⟩ = ⟨𝐴, (𝐹‘𝐴)⟩)
36	35	preq1d 4274	. . . . . 6 ⊢ (𝑥 = (𝐹‘𝐴) → {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, 𝑦⟩})
37	36	eqeq2d 2632	. . . . 5 ⊢ (𝑥 = (𝐹‘𝐴) → (𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, 𝑦⟩}))
38		opeq2 4403	. . . . . . 7 ⊢ (𝑦 = (𝐹‘𝐵) → ⟨𝐵, 𝑦⟩ = ⟨𝐵, (𝐹‘𝐵)⟩)
39	38	preq2d 4275	. . . . . 6 ⊢ (𝑦 = (𝐹‘𝐵) → {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, 𝑦⟩} = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩})
40	39	eqeq2d 2632	. . . . 5 ⊢ (𝑦 = (𝐹‘𝐵) → (𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, 𝑦⟩} ↔ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}))
41	37, 40	rspc2ev 3324	. . . 4 ⊢ (((𝐹‘𝐴) ∈ 𝑅 ∧ (𝐹‘𝐵) ∈ 𝑅 ∧ 𝐹 = {⟨𝐴, (𝐹‘𝐴)⟩, ⟨𝐵, (𝐹‘𝐵)⟩}) → ∃𝑥 ∈ 𝑅 ∃𝑦 ∈ 𝑅 𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩})
42	5, 10, 34, 41	syl3anc 1326	. . 3 ⊢ ((𝐹:{𝐴, 𝐵}⟶𝑅 ∧ 𝐴 ≠ 𝐵) → ∃𝑥 ∈ 𝑅 ∃𝑦 ∈ 𝑅 𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩})
43	42	expcom 451	. 2 ⊢ (𝐴 ≠ 𝐵 → (𝐹:{𝐴, 𝐵}⟶𝑅 → ∃𝑥 ∈ 𝑅 ∃𝑦 ∈ 𝑅 𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}))
44		vex 3203	. . . . . . 7 ⊢ 𝑥 ∈ V
45		vex 3203	. . . . . . 7 ⊢ 𝑦 ∈ V
46	1, 6, 44, 45	fpr 6421	. . . . . 6 ⊢ (𝐴 ≠ 𝐵 → {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}:{𝐴, 𝐵}⟶{𝑥, 𝑦})
47		prssi 4353	. . . . . 6 ⊢ ((𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅) → {𝑥, 𝑦} ⊆ 𝑅)
48		fss 6056	. . . . . 6 ⊢ (({⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}:{𝐴, 𝐵}⟶{𝑥, 𝑦} ∧ {𝑥, 𝑦} ⊆ 𝑅) → {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}:{𝐴, 𝐵}⟶𝑅)
49	46, 47, 48	syl2an 494	. . . . 5 ⊢ ((𝐴 ≠ 𝐵 ∧ (𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅)) → {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}:{𝐴, 𝐵}⟶𝑅)
50	49	ex 450	. . . 4 ⊢ (𝐴 ≠ 𝐵 → ((𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅) → {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}:{𝐴, 𝐵}⟶𝑅))
51		feq1 6026	. . . . 5 ⊢ (𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩} → (𝐹:{𝐴, 𝐵}⟶𝑅 ↔ {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}:{𝐴, 𝐵}⟶𝑅))
52	51	biimprcd 240	. . . 4 ⊢ ({⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}:{𝐴, 𝐵}⟶𝑅 → (𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩} → 𝐹:{𝐴, 𝐵}⟶𝑅))
53	50, 52	syl6 35	. . 3 ⊢ (𝐴 ≠ 𝐵 → ((𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅) → (𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩} → 𝐹:{𝐴, 𝐵}⟶𝑅)))
54	53	rexlimdvv 3037	. 2 ⊢ (𝐴 ≠ 𝐵 → (∃𝑥 ∈ 𝑅 ∃𝑦 ∈ 𝑅 𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩} → 𝐹:{𝐴, 𝐵}⟶𝑅))
55	43, 54	impbid 202	1 ⊢ (𝐴 ≠ 𝐵 → (𝐹:{𝐴, 𝐵}⟶𝑅 ↔ ∃𝑥 ∈ 𝑅 ∃𝑦 ∈ 𝑅 𝐹 = {⟨𝐴, 𝑥⟩, ⟨𝐵, 𝑦⟩}))

Syntax hints:   → wi 4   ↔ wb 196   ∧ wa 384   = wceq 1483   ∈ wcel 1990   ≠ wne 2794  ∀wral 2912  ∃wrex 2913  Vcvv 3200   ⊆ wss 3574  {cpr 4179  ⟨cop 4183   Fn wfn 5883  ⟶wf 5884  ‘cfv 5888

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-fv 5896

This theorem is referenced by: (None)