Theorem fpr 7008

Description: A function with a domain of two elements. (Contributed by Jeff Madsen, 20-Jun-2010.) (Proof shortened by Andrew Salmon, 22-Oct-2011.)

Hypotheses

Ref	Expression
fpr.1	⊢ 𝐴 ∈ V
fpr.2	⊢ 𝐵 ∈ V
fpr.3	⊢ 𝐶 ∈ V
fpr.4	⊢ 𝐷 ∈ V

Assertion

Ref	Expression
fpr	⊢ (𝐴 ≠ 𝐵 → {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩}:{𝐴, 𝐵}⟶{𝐶, 𝐷})

Proof of Theorem fpr

Step	Hyp	Ref	Expression
1		fpr.1	. . . 4 ⊢ 𝐴 ∈ V
2		fpr.2	. . . 4 ⊢ 𝐵 ∈ V
3		fpr.3	. . . 4 ⊢ 𝐶 ∈ V
4		fpr.4	. . . 4 ⊢ 𝐷 ∈ V
5	1, 2, 3, 4	funpr 6474	. . 3 ⊢ (𝐴 ≠ 𝐵 → Fun {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩})
6	3, 4	dmprop 6109	. . 3 ⊢ dom {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} = {𝐴, 𝐵}
7		df-fn 6421	. . 3 ⊢ ({⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} Fn {𝐴, 𝐵} ↔ (Fun {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} ∧ dom {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} = {𝐴, 𝐵}))
8	5, 6, 7	sylanblrc 589	. 2 ⊢ (𝐴 ≠ 𝐵 → {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} Fn {𝐴, 𝐵})
9		df-pr 4561	. . . . 5 ⊢ {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} = ({⟨𝐴, 𝐶⟩} ∪ {⟨𝐵, 𝐷⟩})
10	9	rneqi 5835	. . . 4 ⊢ ran {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} = ran ({⟨𝐴, 𝐶⟩} ∪ {⟨𝐵, 𝐷⟩})
11		rnun 6038	. . . 4 ⊢ ran ({⟨𝐴, 𝐶⟩} ∪ {⟨𝐵, 𝐷⟩}) = (ran {⟨𝐴, 𝐶⟩} ∪ ran {⟨𝐵, 𝐷⟩})
12	1	rnsnop 6116	. . . . . 6 ⊢ ran {⟨𝐴, 𝐶⟩} = {𝐶}
13	2	rnsnop 6116	. . . . . 6 ⊢ ran {⟨𝐵, 𝐷⟩} = {𝐷}
14	12, 13	uneq12i 4091	. . . . 5 ⊢ (ran {⟨𝐴, 𝐶⟩} ∪ ran {⟨𝐵, 𝐷⟩}) = ({𝐶} ∪ {𝐷})
15		df-pr 4561	. . . . 5 ⊢ {𝐶, 𝐷} = ({𝐶} ∪ {𝐷})
16	14, 15	eqtr4i 2769	. . . 4 ⊢ (ran {⟨𝐴, 𝐶⟩} ∪ ran {⟨𝐵, 𝐷⟩}) = {𝐶, 𝐷}
17	10, 11, 16	3eqtri 2770	. . 3 ⊢ ran {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} = {𝐶, 𝐷}
18	17	eqimssi 3975	. 2 ⊢ ran {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} ⊆ {𝐶, 𝐷}
19		df-f 6422	. 2 ⊢ ({⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩}:{𝐴, 𝐵}⟶{𝐶, 𝐷} ↔ ({⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} Fn {𝐴, 𝐵} ∧ ran {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩} ⊆ {𝐶, 𝐷}))
20	8, 18, 19	sylanblrc 589	1 ⊢ (𝐴 ≠ 𝐵 → {⟨𝐴, 𝐶⟩, ⟨𝐵, 𝐷⟩}:{𝐴, 𝐵}⟶{𝐶, 𝐷})

Syntax hints:   → wi 4   = wceq 1539   ∈ wcel 2108   ≠ wne 2942  Vcvv 3422   ∪ cun 3881   ⊆ wss 3883  {csn 4558  {cpr 4560  ⟨cop 4564  dom cdm 5580  ran crn 5581  Fun wfun 6412   Fn wfn 6413  ⟶wf 6414

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pr 5347

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-ral 3068  df-rex 3069  df-rab 3072  df-v 3424  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-sn 4559  df-pr 4561  df-op 4565  df-br 5071  df-opab 5133  df-id 5480  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-fun 6420  df-fn 6421  df-f 6422

This theorem is referenced by:  fprg  7009  fprb  7051  1sdom  8955  axlowdimlem4  27216  coinfliprv  32349  poimirlem22  35726  nnsum3primes4  45128  nnsum3primesgbe  45132