Theorem m1m1sr 10780

Description: Minus one times minus one is plus one for signed reals. (Contributed by NM, 14-May-1996.) (New usage is discouraged.)

Assertion

Ref	Expression
m1m1sr	⊢ (-1R ·R -1R) = 1R

Proof of Theorem m1m1sr

Step	Hyp	Ref	Expression
1		df-m1r 10749	. . 3 ⊢ -1R = [⟨1P, (1P +P 1P)⟩] ~R
2	1, 1	oveq12i 7267	. 2 ⊢ (-1R ·R -1R) = ([⟨1P, (1P +P 1P)⟩] ~R ·R [⟨1P, (1P +P 1P)⟩] ~R )
3		df-1r 10748	. . 3 ⊢ 1R = [⟨(1P +P 1P), 1P⟩] ~R
4		1pr 10702	. . . . 5 ⊢ 1P ∈ P
5		addclpr 10705	. . . . . 6 ⊢ ((1P ∈ P ∧ 1P ∈ P) → (1P +P 1P) ∈ P)
6	4, 4, 5	mp2an 688	. . . . 5 ⊢ (1P +P 1P) ∈ P
7		mulsrpr 10763	. . . . 5 ⊢ (((1P ∈ P ∧ (1P +P 1P) ∈ P) ∧ (1P ∈ P ∧ (1P +P 1P) ∈ P)) → ([⟨1P, (1P +P 1P)⟩] ~R ·R [⟨1P, (1P +P 1P)⟩] ~R ) = [⟨((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))), ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))⟩] ~R )
8	4, 6, 4, 6, 7	mp4an 689	. . . 4 ⊢ ([⟨1P, (1P +P 1P)⟩] ~R ·R [⟨1P, (1P +P 1P)⟩] ~R ) = [⟨((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))), ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))⟩] ~R
9		addasspr 10709	. . . . . 6 ⊢ ((1P +P 1P) +P ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))) = (1P +P (1P +P ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))))
10		1idpr 10716	. . . . . . . . 9 ⊢ (1P ∈ P → (1P ·P 1P) = 1P)
11	4, 10	ax-mp 5	. . . . . . . 8 ⊢ (1P ·P 1P) = 1P
12		distrpr 10715	. . . . . . . . 9 ⊢ ((1P +P 1P) ·P (1P +P 1P)) = (((1P +P 1P) ·P 1P) +P ((1P +P 1P) ·P 1P))
13		mulcompr 10710	. . . . . . . . . 10 ⊢ (1P ·P (1P +P 1P)) = ((1P +P 1P) ·P 1P)
14	13	oveq1i 7265	. . . . . . . . 9 ⊢ ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P)) = (((1P +P 1P) ·P 1P) +P ((1P +P 1P) ·P 1P))
15	12, 14	eqtr4i 2769	. . . . . . . 8 ⊢ ((1P +P 1P) ·P (1P +P 1P)) = ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))
16	11, 15	oveq12i 7267	. . . . . . 7 ⊢ ((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))) = (1P +P ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P)))
17	16	oveq2i 7266	. . . . . 6 ⊢ (1P +P ((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P)))) = (1P +P (1P +P ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))))
18	9, 17	eqtr4i 2769	. . . . 5 ⊢ ((1P +P 1P) +P ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))) = (1P +P ((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))))
19		mulclpr 10707	. . . . . . . 8 ⊢ ((1P ∈ P ∧ 1P ∈ P) → (1P ·P 1P) ∈ P)
20	4, 4, 19	mp2an 688	. . . . . . 7 ⊢ (1P ·P 1P) ∈ P
21		mulclpr 10707	. . . . . . . 8 ⊢ (((1P +P 1P) ∈ P ∧ (1P +P 1P) ∈ P) → ((1P +P 1P) ·P (1P +P 1P)) ∈ P)
22	6, 6, 21	mp2an 688	. . . . . . 7 ⊢ ((1P +P 1P) ·P (1P +P 1P)) ∈ P
23		addclpr 10705	. . . . . . 7 ⊢ (((1P ·P 1P) ∈ P ∧ ((1P +P 1P) ·P (1P +P 1P)) ∈ P) → ((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))) ∈ P)
24	20, 22, 23	mp2an 688	. . . . . 6 ⊢ ((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))) ∈ P
25		mulclpr 10707	. . . . . . . 8 ⊢ ((1P ∈ P ∧ (1P +P 1P) ∈ P) → (1P ·P (1P +P 1P)) ∈ P)
26	4, 6, 25	mp2an 688	. . . . . . 7 ⊢ (1P ·P (1P +P 1P)) ∈ P
27		mulclpr 10707	. . . . . . . 8 ⊢ (((1P +P 1P) ∈ P ∧ 1P ∈ P) → ((1P +P 1P) ·P 1P) ∈ P)
28	6, 4, 27	mp2an 688	. . . . . . 7 ⊢ ((1P +P 1P) ·P 1P) ∈ P
29		addclpr 10705	. . . . . . 7 ⊢ (((1P ·P (1P +P 1P)) ∈ P ∧ ((1P +P 1P) ·P 1P) ∈ P) → ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P)) ∈ P)
30	26, 28, 29	mp2an 688	. . . . . 6 ⊢ ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P)) ∈ P
31		enreceq 10753	. . . . . 6 ⊢ ((((1P +P 1P) ∈ P ∧ 1P ∈ P) ∧ (((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))) ∈ P ∧ ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P)) ∈ P)) → ([⟨(1P +P 1P), 1P⟩] ~R = [⟨((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))), ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))⟩] ~R ↔ ((1P +P 1P) +P ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))) = (1P +P ((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))))))
32	6, 4, 24, 30, 31	mp4an 689	. . . . 5 ⊢ ([⟨(1P +P 1P), 1P⟩] ~R = [⟨((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))), ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))⟩] ~R ↔ ((1P +P 1P) +P ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))) = (1P +P ((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P)))))
33	18, 32	mpbir 230	. . . 4 ⊢ [⟨(1P +P 1P), 1P⟩] ~R = [⟨((1P ·P 1P) +P ((1P +P 1P) ·P (1P +P 1P))), ((1P ·P (1P +P 1P)) +P ((1P +P 1P) ·P 1P))⟩] ~R
34	8, 33	eqtr4i 2769	. . 3 ⊢ ([⟨1P, (1P +P 1P)⟩] ~R ·R [⟨1P, (1P +P 1P)⟩] ~R ) = [⟨(1P +P 1P), 1P⟩] ~R
35	3, 34	eqtr4i 2769	. 2 ⊢ 1R = ([⟨1P, (1P +P 1P)⟩] ~R ·R [⟨1P, (1P +P 1P)⟩] ~R )
36	2, 35	eqtr4i 2769	1 ⊢ (-1R ·R -1R) = 1R

Syntax hints:   ↔ wb 205   = wceq 1539   ∈ wcel 2108  ⟨cop 4564  (class class class)co 7255  [cec 8454  Pcnp 10546  1_Pc1p 10547   +_P cpp 10548   ·_P cmp 10549   ~_R cer 10551  1_Rc1r 10554  -1_Rcm1r 10555   ·_R cmr 10557

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-pow 5283  ax-pr 5347  ax-un 7566  ax-inf2 9329

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  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-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-int 4877  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-1o 8267  df-oadd 8271  df-omul 8272  df-er 8456  df-ec 8458  df-qs 8462  df-ni 10559  df-pli 10560  df-mi 10561  df-lti 10562  df-plpq 10595  df-mpq 10596  df-ltpq 10597  df-enq 10598  df-nq 10599  df-erq 10600  df-plq 10601  df-mq 10602  df-1nq 10603  df-rq 10604  df-ltnq 10605  df-np 10668  df-1p 10669  df-plp 10670  df-mp 10671  df-ltp 10672  df-enr 10742  df-nr 10743  df-mr 10745  df-1r 10748  df-m1r 10749

This theorem is referenced by:  sqgt0sr  10793