Theorem qnumval

Description: Value of the canonical numerator function. (Contributed by Stefan O'Rear, 13-Sep-2014)

	Ref	Expression
Assertion	qnumval	$$⊢A\in \mathbb{Q}\to \mathrm{numer}\left(A\right)=1^{st}\left(\left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge A=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)\right)$$

Proof

Step	Hyp	Ref	Expression
1		eqeq1	$$⊢a=A\to \left(a=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\leftrightarrow A=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)$$
2	1	anbi2d	$$⊢a=A\to \left(\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge a=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\leftrightarrow \left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge A=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)$$
3	2	riotabidv	$$⊢a=A\to \left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge a=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)=\left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge A=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)$$
4	3	fveq2d	$$⊢a=A\to 1^{st}\left(\left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge a=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)\right)=1^{st}\left(\left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge A=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)\right)$$
5		df-numer	$$⊢\mathrm{numer}=\left(a\in \mathbb{Q}⟼1^{st}\left(\left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge a=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)\right)\right)$$
6		fvex	$$⊢1^{st}\left(\left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge A=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)\right)\in \mathrm{V}$$
7	4 5 6	fvmpt	$$⊢A\in \mathbb{Q}\to \mathrm{numer}\left(A\right)=1^{st}\left(\left(\iota x\in \left(\mathbb{Z}\times \mathbb{N}\right)|\left(1^{st}\left(x\right)\gcd 2^{nd}\left(x\right)=1\wedge A=\frac{1^{st}\left(x\right)}{2^{nd}\left(x\right)}\right)\right)\right)$$