Theorem mulidnq 7700

Description: Multiplication identity element for positive fractions. (Contributed by NM, 3-Mar-1996.)

Assertion

Ref	Expression
mulidnq	⊢ (𝐴 ∈ Q → (𝐴 ·Q 1Q) = 𝐴)

Proof of Theorem mulidnq

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-nqqs 7659	. 2 ⊢ Q = ((N × N) / ~Q )
2		oveq1 6056	. . 3 ⊢ ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑥, 𝑦⟩] ~Q ·Q 1Q) = (𝐴 ·Q 1Q))
3		id 19	. . 3 ⊢ ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → [⟨𝑥, 𝑦⟩] ~Q = 𝐴)
4	2, 3	eqeq12d 2247	. 2 ⊢ ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → (([⟨𝑥, 𝑦⟩] ~Q ·Q 1Q) = [⟨𝑥, 𝑦⟩] ~Q ↔ (𝐴 ·Q 1Q) = 𝐴))
5		df-1nqqs 7662	. . . . 5 ⊢ 1Q = [⟨1o, 1o⟩] ~Q
6	5	oveq2i 6060	. . . 4 ⊢ ([⟨𝑥, 𝑦⟩] ~Q ·Q 1Q) = ([⟨𝑥, 𝑦⟩] ~Q ·Q [⟨1o, 1o⟩] ~Q )
7		1pi 7626	. . . . 5 ⊢ 1o ∈ N
8		mulpipqqs 7684	. . . . 5 ⊢ (((𝑥 ∈ N ∧ 𝑦 ∈ N) ∧ (1o ∈ N ∧ 1o ∈ N)) → ([⟨𝑥, 𝑦⟩] ~Q ·Q [⟨1o, 1o⟩] ~Q ) = [⟨(𝑥 ·N 1o), (𝑦 ·N 1o)⟩] ~Q )
9	7, 7, 8	mpanr12 439	. . . 4 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → ([⟨𝑥, 𝑦⟩] ~Q ·Q [⟨1o, 1o⟩] ~Q ) = [⟨(𝑥 ·N 1o), (𝑦 ·N 1o)⟩] ~Q )
10	6, 9	eqtrid 2277	. . 3 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → ([⟨𝑥, 𝑦⟩] ~Q ·Q 1Q) = [⟨(𝑥 ·N 1o), (𝑦 ·N 1o)⟩] ~Q )
11		mulcompig 7642	. . . . . . 7 ⊢ ((1o ∈ N ∧ 𝑥 ∈ N) → (1o ·N 𝑥) = (𝑥 ·N 1o))
12	7, 11	mpan 424	. . . . . 6 ⊢ (𝑥 ∈ N → (1o ·N 𝑥) = (𝑥 ·N 1o))
13	12	adantr 276	. . . . 5 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → (1o ·N 𝑥) = (𝑥 ·N 1o))
14		mulcompig 7642	. . . . . . 7 ⊢ ((1o ∈ N ∧ 𝑦 ∈ N) → (1o ·N 𝑦) = (𝑦 ·N 1o))
15	7, 14	mpan 424	. . . . . 6 ⊢ (𝑦 ∈ N → (1o ·N 𝑦) = (𝑦 ·N 1o))
16	15	adantl 277	. . . . 5 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → (1o ·N 𝑦) = (𝑦 ·N 1o))
17	13, 16	opeq12d 3890	. . . 4 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → ⟨(1o ·N 𝑥), (1o ·N 𝑦)⟩ = ⟨(𝑥 ·N 1o), (𝑦 ·N 1o)⟩)
18	17	eceq1d 6802	. . 3 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → [⟨(1o ·N 𝑥), (1o ·N 𝑦)⟩] ~Q = [⟨(𝑥 ·N 1o), (𝑦 ·N 1o)⟩] ~Q )
19		mulcanenqec 7697	. . . 4 ⊢ ((1o ∈ N ∧ 𝑥 ∈ N ∧ 𝑦 ∈ N) → [⟨(1o ·N 𝑥), (1o ·N 𝑦)⟩] ~Q = [⟨𝑥, 𝑦⟩] ~Q )
20	7, 19	mp3an1 1361	. . 3 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → [⟨(1o ·N 𝑥), (1o ·N 𝑦)⟩] ~Q = [⟨𝑥, 𝑦⟩] ~Q )
21	10, 18, 20	3eqtr2d 2271	. 2 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → ([⟨𝑥, 𝑦⟩] ~Q ·Q 1Q) = [⟨𝑥, 𝑦⟩] ~Q )
22	1, 4, 21	ecoptocl 6855	1 ⊢ (𝐴 ∈ Q → (𝐴 ·Q 1Q) = 𝐴)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1398   ∈ wcel 2203  ⟨cop 3691  (class class class)co 6049  1_oc1o 6639  [cec 6764  Ncnpi 7583   ·_N cmi 7585   ~_Q ceq 7590  Qcnq 7591  1_Qc1q 7592   ·_Q cmq 7594

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4224  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2814  df-sbc 3042  df-csb 3138  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-iun 3992  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-id 4413  df-iord 4486  df-on 4488  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-ov 6052  df-oprab 6053  df-mpo 6054  df-1st 6333  df-2nd 6334  df-recs 6535  df-irdg 6600  df-1o 6646  df-oadd 6650  df-omul 6651  df-er 6766  df-ec 6768  df-qs 6772  df-ni 7615  df-mi 7617  df-mpq 7656  df-enq 7658  df-nqqs 7659  df-mqqs 7661  df-1nqqs 7662

This theorem is referenced by:  recmulnqg  7702  rec1nq  7706  ltaddnq  7718  halfnqq  7721  prarloclemarch  7729  ltrnqg  7731  addnqprllem  7838  addnqprulem  7839  addnqprl  7840  addnqpru  7841  appdivnq  7874  prmuloc2  7878  mulnqprl  7879  mulnqpru  7880  1idprl  7901  1idpru  7902  recexprlem1ssl  7944  recexprlem1ssu  7945