HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem recexsrlem 4006
Description: The reciprocal of a positive signed real exists. Part of Proposition 9-4.3 of [Gleason] p. 126.
Hypothesis
Ref Expression
recexsrlem.1 AV
Assertion
Ref Expression
recexsrlem (0R <R A → ∃x(xR ∧ (A ·R x) = 1R))
Distinct variable group(s):   x,A

Proof of Theorem recexsrlem
StepHypRef Expression
1 recexsrlem.1 . . . . 5 AV
2 ltrelsr 3974 . . . . 5 <R ⊆ (R × R)
31, 2brel 2459 . . . 4 (0R <R A → (0RRAR))
43pm3.27d 262 . . 3 (0R <R AAR)
5 df-nr 3961 . . . 4 R = ((P × P) / ~R )
6 breq2 2066 . . . . 5 ([⟨y, z⟩] ~R = A → (0R <R [⟨y, z⟩] ~R ↔ 0R <R A))
7 opreq1 3006 . . . . . . 7 ([⟨y, z⟩] ~R = A → ([⟨y, z⟩] ~R ·R x) = (A ·R x))
87cleq1d 1109 . . . . . 6 ([⟨y, z⟩] ~R = A → (([⟨y, z⟩] ~R ·R x) = 1R ↔ (A ·R x) = 1R))
98biexdv 936 . . . . 5 ([⟨y, z⟩] ~R = A → (∃x([⟨y, z⟩] ~R ·R x) = 1R ↔ ∃x(A ·R x) = 1R))
106, 9imbi12d 474 . . . 4 ([⟨y, z⟩] ~R = A → ((0R <R [⟨y, z⟩] ~R → ∃x([⟨y, z⟩] ~R ·R x) = 1R) ↔ (0R <R A → ∃x(A ·R x) = 1R)))
11 1pr 3911 . . . . . . . . . . . . . . . . . . 19 1PP
12 addclpr 3914 . . . . . . . . . . . . . . . . . . 19 ((vP ∧ 1PP) → (v +P 1P) ∈ P)
1311, 12mpan2 519 . . . . . . . . . . . . . . . . . 18 (vP → (v +P 1P) ∈ P)
1413, 11jctir 241 . . . . . . . . . . . . . . . . 17 (vP → ((v +P 1P) ∈ P ∧ 1PP))
1514anim2i 270 . . . . . . . . . . . . . . . 16 (((yPzP) ∧ vP) → ((yPzP) ∧ ((v +P 1P) ∈ P ∧ 1PP)))
1615adantr 306 . . . . . . . . . . . . . . 15 ((((yPzP) ∧ vP) ∧ ((w ·P v) = 1P ∧ (z +P w) = y)) → ((yPzP) ∧ ((v +P 1P) ∈ P ∧ 1PP)))
17 mulsrpr 3979 . . . . . . . . . . . . . . 15 (((yPzP) ∧ ((v +P 1P) ∈ P ∧ 1PP)) → ([⟨y, z⟩] ~R ·R [⟨(v +P 1P), 1P⟩] ~R ) = [⟨((y ·P (v +P 1P)) +P (z ·P 1P)), ((y ·P 1P) +P (z ·P (v +P 1P)))⟩] ~R )
1816, 17syl 12 . . . . . . . . . . . . . 14 ((((yPzP) ∧ vP) ∧ ((w ·P v) = 1P ∧ (z +P w) = y)) → ([⟨y, z⟩] ~R ·R [⟨(v +P 1P), 1P⟩] ~R ) = [⟨((y ·P (v +P 1P)) +P (z ·P 1P)), ((y ·P 1P) +P (z ·P (v +P 1P)))⟩] ~R )
19 addclpr 3914 . . . . . . . . . . . . . . . . . . . . 21 (((y ·P (v +P 1P)) ∈ P ∧ (z ·P 1P) ∈ P) → ((y ·P (v +P 1P)) +P (z ·P 1P)) ∈ P)
20 mulclpr 3916 . . . . . . . . . . . . . . . . . . . . . 22 ((yP ∧ (v +P 1P) ∈ P) → (y ·P (v +P 1P)) ∈ P)
2120, 13sylan2 346 . . . . . . . . . . . . . . . . . . . . 21 ((yPvP) → (y ·P (v +P 1P)) ∈ P)
22 mulclpr 3916 . . . . . . . . . . . . . . . . . . . . . 22 ((zP ∧ 1PP) → (z ·P 1P) ∈ P)
2311, 22mpan2 519 . . . . . . . . . . . . . . . . . . . . 21 (zP → (z ·P 1P) ∈ P)
2419, 21, 23syl2an 349 . . . . . . . . . . . . . . . . . . . 20 (((yPvP) ∧ zP) → ((y ·P (v +P 1P)) +P (z ·P 1P)) ∈ P)
2524an1rs 373 . . . . . . . . . . . . . . . . . . 19 (((yPzP) ∧ vP) → ((y ·P (v +P 1P)) +P (z ·P 1P)) ∈ P)
26 addclpr 3914 . . . . . . . . . . . . . . . . . . . . 21 (((y ·P 1P) ∈ P ∧ (z ·P (v +P 1P)) ∈ P) → ((y ·P 1P) +P (z ·P (v +P 1P))) ∈ P)
27 mulclpr 3916 . . . . . . . . . . . . . . . . . . . . . 22 ((yP ∧ 1PP) → (y ·P 1P) ∈ P)
2811, 27mpan2 519 . . . . . . . . . . . . . . . . . . . . 21 (yP → (y ·P 1P) ∈ P)
29 mulclpr 3916 . . . . . . . . . . . . . . . . . . . . . 22 ((zP ∧ (v +P 1P) ∈ P) → (z ·P (v +P 1P)) ∈ P)
3029, 13sylan2 346 . . . . . . . . . . . . . . . . . . . . 21 ((zPvP) → (z ·P (v +P 1P)) ∈ P)
3126, 28, 30syl2an 349 . . . . . . . . . . . . . . . . . . . 20 ((yP ∧ (zPvP)) → ((y ·P 1P) +P (z ·P (v +P 1P))) ∈ P)
3231anassrs 338 . . . . . . . . . . . . . . . . . . 19 (((yPzP) ∧ vP) → ((y ·P 1P) +P (z ·P (v +P 1P))) ∈ P)
3325, 32jca 236 . . . . . . . . . . . . . . . . . 18 (((yPzP) ∧ vP) → (((y ·P (v +P 1P)) +P (z ·P 1P)) ∈ P ∧ ((y ·P 1P) +P (z ·P (v +P 1P))) ∈ P))
34 addclpr 3914 . . . . . . . . . . . . . . . . . . . 20 ((1PP ∧ 1PP) → (1P +P 1P) ∈ P)
3511, 11, 34mp2an 520 . . . . . . . . . . . . . . . . . . 19 (1P +P 1P) ∈ P
3635, 11pm3.2i 234 . . . . . . . . . . . . . . . . . 18 ((1P +P 1P) ∈ P ∧ 1PP)
3733, 36jctir 241 . . . . . . . . . . . . . . . . 17 (((yPzP) ∧ vP) → ((((y ·P (v +P 1P)) +P (z ·P 1P)) ∈ P ∧ ((y ·P 1P) +P (z ·P (v +P 1P))) ∈ P) ∧ ((1P +P 1P) ∈ P ∧ 1PP)))
38 enreceq 3971 . . . . . . . . . . . . . . . . 17 (((((y ·P (v +P 1P)) +P (z ·P 1P)) ∈ P ∧ ((y ·P 1P) +P (z ·P (v +P 1P))) ∈ P) ∧ ((1P +P 1P) ∈ P ∧ 1PP)) → ([⟨((y ·P (v +P 1P)) +P (z ·P 1P)), ((y ·P 1P) +P (z ·P (v +P 1P)))⟩] ~R = [⟨(1P +P 1P), 1P⟩] ~R ↔ (((y ·P (v +P 1P)) +P (z ·P 1P)) +P 1P) = (((y ·P 1P) +P (z ·P (v +P 1P))) +P (1P +P 1P))))
3937, 38syl 12 . . . . . . . . . . . . . . . 16 (((yPzP) ∧ vP) → ([⟨((y ·P (v +P 1P)) +P (z ·P 1P)), ((y ·P 1P) +P (z ·P (v +P 1P)))⟩] ~R = [⟨(1P +P 1P), 1P⟩] ~R ↔ (((y ·P (v +P 1P)) +P (z ·P 1P)) +P 1P) = (((y ·P 1P) +P (z ·P (v +P 1P))) +P (1P +P 1P))))
40 opreq1 3006 . . . . . . . . . . . . . . . . . . . . . . 23 ((z +P w) = y → ((z +P w) ·P v) = (y ·P v))
4140cleqcomd 1106 . . . . . . . . . . . . . . . . . . . . . 22 ((z +P w) = y → (y ·P v) = ((z +P w) ·P v))
42 opreq2 3007 . . . . . . . . . . . . . . . . . . . . . . 23 ((w ·P v) = 1P → ((z ·P v) +P (w ·P v)) = ((z ·P v) +P 1P))
43 visset 1350 . . . . . . . . . . . . . . . . . . . . . . . 24 zV
44 visset 1350 . . . . . . . . . . . . . . . . . . . . . . . 24 wV
45 visset 1350 . . . . . . . . . . . . . . . . . . . . . . . 24 vV
46 visset 1350 . . . . . . . . . . . . . . . . . . . . . . . . 25 uV
47 visset 1350 . . . . . . . . . . . . . . . . . . . . . . . . 25 fV
4846, 47mulcompr 3919 . . . . . . . . . . . . . . . . . . . . . . . 24 (u ·P f) = (f ·P u)
49 visset 1350 . . . . . . . . . . . . . . . . . . . . . . . . 25 xV
5047, 49distrpr 3926 . . . . . . . . . . . . . . . . . . . . . . . 24 (u ·P (f +P x)) = ((u ·P f) +P (u ·P x))
5143, 44, 45, 48, 50caoprdistrr 3081 . . . . . . . . . . . . . . . . . . . . . . 23 ((z +P w) ·P v) = ((z ·P v) +P (w ·P v))
5242, 51syl5eq 1136 . . . . . . . . . . . . . . . . . . . . . 22 ((w ·P v) = 1P → ((z +P w) ·P v) = ((z ·P v) +P 1P))
5341, 52sylan9eqr 1145 . . . . . . . . . . . . . . . . . . . . 21 (((w ·P v) = 1P ∧ (z +P w) = y) → (y ·P v) = ((z ·P v) +P 1P))
5453opreq1d 3012 . . . . . . . . . . . . . . . . . . . 20 (((w ·P v) = 1P ∧ (z +P w) = y) → ((y ·P v) +P ((y ·P 1P) +P (z ·P 1P))) = (((z ·P v) +P 1P) +P ((y ·P 1P) +P (z ·P 1P))))
55 oprex 3018 . . . . . . . . . . . . . . . . . . . . 21 (z ·P v) ∈ V
5611elisseti 1355 . . . . . . . . . . . . . . . . . . . . 21 1PV
57 oprex 3018 . . . . . . . . . . . . . . . . . . . . 21 ((y ·P 1P) +P (z ·P 1P)) ∈ V
5846, 47addcompr 3917 . . . . . . . . . . . . . . . . . . . . 21 (u +P f) = (f +P u)
5947, 49addasspr 3918 . . . . . . . . . . . . . . . . . . . . 21 ((u +P f) +P x) = (u +P (f +P x))
6055, 56, 57, 58, 59caopr32 3074 . . . . . . . . . . . . . . . . . . . 20 (((z ·P v) +P 1P) +P ((y ·P 1P) +P (z ·P 1P))) = (((z ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P 1P)
6154, 60syl6eq 1140 . . . . . . . . . . . . . . . . . . 19 (((w ·P v) = 1P ∧ (z +P w) = y) → ((y ·P v) +P ((y ·P 1P) +P (z ·P 1P))) = (((z ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P 1P))
6261opreq1d 3012 . . . . . . . . . . . . . . . . . 18 (((w ·P v) = 1P ∧ (z +P w) = y) → (((y ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P 1P) = ((((z ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P 1P) +P 1P))
6356, 56addasspr 3918 . . . . . . . . . . . . . . . . . 18 ((((z ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P 1P) +P 1P) = (((z ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P (1P +P 1P))
6462, 63syl6eq 1140 . . . . . . . . . . . . . . . . 17 (((w ·P v) = 1P ∧ (z +P w) = y) → (((y ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P 1P) = (((z ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P (1P +P 1P)))
6545, 56distrpr 3926 . . . . . . . . . . . . . . . . . . . 20 (y ·P (v +P 1P)) = ((y ·P v) +P (y ·P 1P))
6665opreq1i 3009 . . . . . . . . . . . . . . . . . . 19 ((y ·P (v +P 1P)) +P (z ·P 1P)) = (((y ·P v) +P (y ·P 1P)) +P (z ·P 1P))
67 oprex 3018 . . . . . . . . . . . . . . . . . . . 20 (y ·P 1P) ∈ V
68 oprex 3018 . . . . . . . . . . . . . . . . . . . 20 (z ·P 1P) ∈ V
6967, 68addasspr 3918 . . . . . . . . . . . . . . . . . . 19 (((y ·P v) +P (y ·P 1P)) +P (z ·P 1P)) = ((y ·P v) +P ((y ·P 1P) +P (z ·P 1P)))
7066, 69eqtr 1119 . . . . . . . . . . . . . . . . . 18 ((y ·P (v +P 1P)) +P (z ·P 1P)) = ((y ·P v) +P ((y ·P 1P) +P (z ·P 1P)))
7170opreq1i 3009 . . . . . . . . . . . . . . . . 17 (((y ·P (v +P 1P)) +P (z ·P 1P)) +P 1P) = (((y ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P 1P)
7245, 56distrpr 3926 . . . . . . . . . . . . . . . . . . . 20 (z ·P (v +P 1P)) = ((z ·P v) +P (z ·P 1P))
7372opreq2i 3010 . . . . . . . . . . . . . . . . . . 19 ((y ·P 1P) +P (z ·P (v +P 1P))) = ((y ·P 1P) +P ((z ·P v) +P (z ·P 1P)))
7467, 55, 68, 58, 59caopr12 3075 . . . . . . . . . . . . . . . . . . 19 ((y ·P 1P) +P ((z ·P v) +P (z ·P 1P))) = ((z ·P v) +P ((y ·P 1P) +P (z ·P 1P)))
7573, 74eqtr 1119 . . . . . . . . . . . . . . . . . 18 ((y ·P 1P) +P (z ·P (v +P 1P))) = ((z ·P v) +P ((y ·P 1P) +P (z ·P 1P)))
7675opreq1i 3009 . . . . . . . . . . . . . . . . 17 (((y ·P 1P) +P (z ·P (v +P 1P))) +P (1P +P 1P)) = (((z ·P v) +P ((y ·P 1P) +P (z ·P 1P))) +P (1P +P 1P))
7764, 71, 763eqtr4g 1147 . . . . . . . . . . . . . . . 16 (((w ·P v) = 1P ∧ (z +P w) = y) → (((y ·P (v +P 1P)) +P (z ·P 1P)) +P 1P) = (((y ·P 1P) +P (z ·P (v +P 1P))) +P (1P +P 1P)))
7839, 77syl5bir 184 . . . . . . . . . . . . . . 15 (((yPzP) ∧ vP) → (((w ·P v) = 1P ∧ (z +P w) = y) → [⟨((y ·P (v +P 1P)) +P (z ·P 1P)), ((y ·P 1P) +P (z ·P (v +P 1P)))⟩] ~R = [⟨(1P +P 1P), 1P⟩] ~R ))
7978imp 277 . . . . . . . . . . . . . 14 ((((yPzP) ∧ vP) ∧ ((w ·P v) = 1P ∧ (z +P w) = y)) → [⟨((y ·P (v +P 1P)) +P (z ·P 1P)), ((y ·P 1P) +P (z ·P (v +P 1P)))⟩] ~R = [⟨(1P +P 1P), 1P⟩] ~R )
8018, 79eqtrd 1128 . . . . . . . . . . . . 13 ((((yPzP) ∧ vP) ∧ ((w ·P v) = 1P ∧ (z +P w) = y)) → ([⟨y, z⟩] ~R ·R [⟨(v +P 1P), 1P⟩] ~R ) = [⟨(1P +P 1P), 1P⟩] ~R )
81 df-1r 3966 . . . . . . . . . . . . 13 1R = [⟨(1P +P 1P), 1P⟩] ~R
8280, 81syl6eqr 1142 . . . . . . . . . . . 12 ((((yPzP) ∧ vP) ∧ ((w ·P v) = 1P ∧ (z +P w) = y)) → ([⟨y, z⟩] ~R ·R [⟨(v +P 1P), 1P⟩] ~R ) = 1R)
83 enrex 3972 . . . . . . . . . . . . . 14 ~RV
84 ecexg 3204 . . . . . . . . . . . . . 14 ( ~RV → [⟨(v +P 1P), 1P⟩] ~RV)
8583, 84ax-mp 6 . . . . . . . . . . . . 13 [⟨(v +P 1P), 1P⟩] ~RV
86 opreq2 3007 . . . . . . . . . . . . . 14 (x = [⟨(v +P 1P), 1P⟩] ~R → ([⟨y, z⟩] ~R ·R x) = ([⟨y, z⟩] ~R ·R [⟨(v +P 1P), 1P⟩] ~R ))
8786cleq1d 1109 . . . . . . . . . . . . 13 (x = [⟨(v +P 1P), 1P⟩] ~R → (([⟨y, z⟩] ~R ·R x) = 1R ↔ ([⟨y, z⟩] ~R ·R [⟨(v +P 1P), 1P⟩] ~R ) = 1R))
8885, 87cla4ev 1401 . . . . . . . . . . . 12 (([⟨y, z⟩] ~R ·R [⟨(v +P 1P), 1P⟩] ~R ) = 1R → ∃x([⟨y, z⟩] ~R ·R x) = 1R)
8982, 88syl 12 . . . . . . . . . . 11 ((((yPzP) ∧ vP) ∧ ((w ·P v) = 1P ∧ (z +P w) = y)) → ∃x([⟨y, z⟩] ~R ·R x) = 1R)
9089exp43 301 . . . . . . . . . 10 ((yPzP) → (vP → ((w ·P v) = 1P → ((z +P w) = y → ∃x([⟨y, z⟩] ~R ·R x) = 1R))))
9190imp3a 279 . . . . . . . . 9 ((yPzP) → ((vP ∧ (w ·P v) = 1P) → ((z +P w) = y → ∃x([⟨y, z⟩] ~R ·R x) = 1R)))
929119.23adv 954 . . . . . . . 8 ((yPzP) → (∃v(vP ∧ (w ·P v) = 1P) → ((z +P w) = y → ∃x([⟨y, z⟩] ~R ·R x) = 1R)))
93 recexpr 3954 . . . . . . . 8 (wP → ∃v(vP ∧ (w ·P v) = 1P))
9492, 93syl5 22 . . . . . . 7 ((yPzP) → (wP → ((z +P w) = y → ∃x([⟨y, z⟩] ~R ·R x) = 1R)))
9594imp3a 279 . . . . . 6 ((yPzP) → ((wP ∧ (z +P w) = y) → ∃x([⟨y, z⟩] ~R ·R x) = 1R))
969519.23adv 954 . . . . 5 ((yPzP) → (∃w(wP ∧ (z +P w) = y) → ∃x([⟨y, z⟩] ~R ·R x) = 1R))
97 visset 1350 . . . . . . 7 yV
9897, 43gt0srpr 3981 . . . . . 6 (0R <R [⟨y, z⟩] ~Rz<P y)
9997ltexpri 3943 . . . . . 6 (z<P y → ∃w(wP ∧ (z +P w) = y))
10098, 99sylbi 174 . . . . 5 (0R <R [⟨y, z⟩] ~R → ∃w(wP ∧ (z +P w) = y))
10196, 100syl5 22 . . . 4 ((yPzP) → (0R <R [⟨y, z⟩] ~R → ∃x([⟨y, z⟩] ~R ·R x) = 1R))
1025, 10, 101ecoptocl 3239 . . 3 (AR → (0R <R A → ∃x(A ·R x) = 1R))
1034, 102mpcom 49 . 2 (0R <R A → ∃x(A ·R x) = 1R)
104 1r 3984 . . . . . . 7 1RR
105 eleq1 1149 . . . . . . 7 ((A ·R x) = 1R → ((A ·R x) ∈ R ↔ 1RR))
106104, 105mpbiri 169 . . . . . 6 ((A ·R x) = 1R → (A ·R x) ∈ R)
107 dmmulsr 3989 . . . . . . 7 dom ·R = (R × R)
108 0nsr 3982 . . . . . . 7 ¬ ∅ ∈ R
10949, 107, 108ndmoprrcl 3060 . . . . . 6 ((A ·R x) ∈ R → (ARxR))
110106, 109syl 12 . . . . 5 ((A ·R x) = 1R → (ARxR))
111110pm3.27d 262 . . . 4 ((A ·R x) = 1RxR)
112111ancri 245 . . 3 ((A ·R x) = 1R → (xR ∧ (A ·R x) = 1R))
11311219.22i 723 . 2 (∃x(A ·R x) = 1R → ∃x(xR ∧ (A ·R x) = 1R))
114103, 113syl 12 1 (0R <R A → ∃x(xR ∧ (A ·R x) = 1R))
Colors of variables: wff set class
Syntax hints:   → wi 2   ↔ wb 127   ∧ wa 196  ∃wex 678   = wceq 1091   ∈ wcel 1092  Vcvv 1348  ⟨cop 1810   class class class wbr 2054  (class class class)co 3001  [cec 3198  Pcnp 3779  1Pc1p 3780   +P cpp 3781   ·P cmp 3782  <P cltp 3783   ~R cer 3786  Rcnr 3787  0Rc0r 3788  1Rc1r 3789   ·R cmr 3792   <R cltr 3793
This theorem is referenced by:  recexsr 4010  axrecex 4079
This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-13 804  ax-14 805  ax-16 922  ax-17 925  ax-ext 1074  ax-rep 1075  ax-un 1076  ax-pow 1077  ax-reg 1078  ax-inf 1079
This theorem depends on definitions:  df-bi 128  df-or 197  df-an 198  df-3or 582  df-3an 583  df-ex 679  df-sb 853  df-eu 1009  df-mo 1010  df-clab 1093  df-cleq 1097  df-clel 1099  df-ne 1192  df-ral 1205  df-rex 1206  df-reu 1207  df-rab 1208  df-v 1349  df-sbc 1441  df-dif 1489  df-un 1490  df-in 1491  df-ss 1492  df-pss 1494  df-nul 1708  df-if 1777  df-pw 1799  df-sn 1811  df-pr 1812  df-tp 1814  df-op 1815  df-uni 1920  df-int 1966  df-iun 1996  df-tr 2042  df-br 2063  df-opab 2098  df-eprel 2122  df-id 2125  df-po 2128  df-so 2138  df-fr 2169  df-we 2186  df-ord 2202  df-on 2203  df-lim 2204  df-suc 2205  df-om 2373  df-xp 2424  df-rel 2425  df-cnv 2426  df-co 2427  df-dm 2428  df-rn 2429  df-res 2430  df-ima 2431  df-fun 2432  df-fn 2433  df-f 2434  df-f1 2435  df-fv 2438  df-rdg 2970  df-opr 3003  df-oprab 3004  df-1o 3104  df-oadd 3106  df-omul 3107  df-er 3200  df-ec 3202  df-qs 3205  df-ni 3794  df-pli 3795  df-mi 3796  df-lti 3797  df-plpq 3829  df-mpq 3830  df-enq 3831  df-nq 3832  df-plq 3833  df-mq 3834  df-rq 3835  df-ltq 3836  df-1q 3837  df-np 3880  df-1p 3881  df-plp 3882  df-mp 3883  df-ltp 3884  df-mpr 3959  df-enr 3960  df-nr 3961  df-mr 3963  df-ltr 3964  df-0r 3965  df-1r 3966
metamath.org