reserve a,b,d,e for Real;
1 a+b=b or b-a=b implies a=0;
2 a-b=0 or a+-b=0 or -a=-b or a-e=b-e or a-e=b+-e
 b"=1 implies a=b);
b"=1 implies a=b); b=1 implies a=1/b & a=b";
b=1 implies a=1/b & a=b"; b=1 & a"=b & b=1/a);
b=1 & a"=b & b=1/a); b=b implies a=1;
b=b implies a=1; b=-b implies a=-1;
b=-b implies a=-1; b"< > & a/b< >0 & a"
b"< > & a/b< >0 & a" b"< >0 & 1/(a
b"< >0 & 1/(a b)< >0;
b)< >0; (-1)=1;
(-1)=1; 1"=a;
1"=a; b")"=a"
b")"=a" b & (a"
b & (a" b")"=a
b")"=a b;
b; b=-b
b=-b a & (-a)
a & (-a) b=(-b)
b=(-b) a & (-a)
a & (-a) (-b)=a
(-b)=a b & -a
b & -a (-b)=a
(-b)=a b& -(-a)
b& -(-a) b=a
b=a b;
b; (1/b)=1/(a
(1/b)=1/(a b);
b); (b/d)=(b
(b/d)=(b a)/(e
a)/(e d) & (a/e)
d) & (a/e) (b/d)=a/d)
(b/d)=a/d) (b/e);
(b/e); e)/(e
e)/(e b) & a/b=(a/e)/(b/e)
b) & a/b=(a/e)/(b/e) e)
e) e & a/b=e
e & a/b=e (a/e/b)
(a/e/b) (e/b);
(e/b); (1/b)=a/b;
(1/b)=a/b; b;
b; a)/b & a/(b/e)=a
a)/b & a/(b/e)=a (e/b) & a/(b/e)=e/b
(e/b) & a/(b/e)=e/b a
a (a/b) & a/(b/e)=a/b
(a/b) & a/(b/e)=a/b e;
e; (b/b) & a=a
(b/b) & a=a b/b & a=a
b/b & a=a b
b (1/b)
(1/b) b & a=a/(b
b & a=a/(b (1/b)) & a=a
(1/b)) & a=a (1/b)
(1/b) b;
b; e)/b;
e)/b; b)/b & e-a/b=(e
b)/b & e-a/b=(e b-a)/b;
b-a)/b; e) & a/b/e=a/e/b & a/b/e=1/b
e) & a/b/e=a/e/b & a/b/e=1/b (a/e)
(a/e) (a/b) & 1/e
(a/b) & 1/e (a/b)=a/(b
(a/b)=a/(b e);
e); b)/(e
b)/(e d)=(a/e
d)=(a/e b)/d;
b)/d; a=-a & (-a)
a=-a & (-a) (-1)=a & -a=a/(-1) & a=(-a)/(-1);
(-1)=a & -a=a/(-1) & a=(-a)/(-1); a=b implies a=b/e;
a=b implies a=b/e; e=b;
e=b; e=b
e=b d implies a/d=b/e;
d implies a/d=b/e; e=b
e=b d;
d; e=b/d implies a
e=b/d implies a d=b/e;
d=b/e; e=a
e=a b
b (e/b);
(e/b); e=a
e=a b/(b/e);
b/(b/e); e=e/b
e=e/b a & a/b
a & a/b e=1/b
e=1/b a
a e & a/b
e & a/b e=1/b
e=1/b e
e a;
a; (-b)=a
(-b)=a b & (-a)
b & (-a) (-b)=b
(-b)=b a;
a; (a-b)=a
(a-b)=a e-e
e-e b & (a-b)
b & (a-b) e=(b-a)
e=(b-a) (-e) & (a-b)
(-e) & (a-b) e=-(b-a)
e=-(b-a) e;
e; a=a+a & 3
a=a+a & 3 a=a+a+a & 4
a=a+a+a & 4 a=a+a+a+a;
a=a+a+a+a; b)+a/(2
b)+a/(2 b)=a/b & a/(3
b)=a/b & a/(3 b)+a/(3
b)+a/(3 b)=a/b;
92 e< >0 implies a+b=e
b)=a/b;
92 e< >0 implies a+b=e (a/e+b/e);
(a/e+b/e); (a/e-b/e);
(a/e-b/e); e+b
e+b e)/e;
e)/e; e-b
e-b e)/e;
e)/e; (1+b/a);
(1+b/a); (1-b/a);
(1-b/a); (e-d)=(b-a)
(e-d)=(b-a) (d-e);
(d-e); d=a
d=a d+b
d+b d+e
d+e d & (a+b-e)
d & (a+b-e) d=a
d=a d+b
d+b d-e
d-e d
d d=a
d=a d-b
d-b d+e
d+e d & (a-b-e)
d & (a-b-e) d=a
d=a d-b
d-b d-e
d-e d;
d; (e+d)=a
(e+d)=a e+a
e+a d+b
d+b e+b
e+b d & (a+b)
d & (a+b) (e-d)=a
(e-d)=a e-a
e-a d+b
d+b e-b
e-b d
d (e+d)=a
(e+d)=a e+a
e+a d-b
d-b e-b
e-b d & (a-b)
d & (a-b) (e-d)=a
(e-d)=a e-a
e-a d-b
d-b e+b
e+b d;
d; 0 or a+-b
0 or a+-b 0 or -a
0 or -a -b or b-a
-b or b-a 0 or b+-a
0 or b+-a 0
0 b+-e or a+-e
b+-e or a+-e b-e or e-a
b-e or e-a e-b) implies a
e-b) implies a b;
b; b implies a-b
b implies a-b 0 & a+-b
0 & a+-b 0 & -b+a
0 & -b+a 0
0 -b & e-a
-b & e-a e-b;
e-b; -b implies a+b
-b implies a+b 0 & -a
0 & -a b;
b; b implies a+b
b implies a+b 0 & a
0 & a -b;
-b; 0 or b+a
0 or b+a 0) implies a
0) implies a -b;
-b; 0 or b+a
0 or b+a 0) implies a
0) implies a -b;
-b; 1 implies a
1 implies a b) & (a/b
b) & (a/b 1 implies  a
1 implies  a b)
b) -1 implies a
-1 implies a -b & b
-b & b -a) & (a/b
-a) & (a/b -1 implies a
-1 implies a -b & b
-b & b -a);
-a); 1 implies a
1 implies a b) & (a/b
b) & (a/b 1 implies a
1 implies a b)
b) -1 implies a
-1 implies a -b & b
-b & b -a) & (a/b
-a) & (a/b -1 implies a
-1 implies a -b & b
-b & b -a);
-a); 0 or a>0) & (b
0 or a>0) & (b 0 or b>0) or (a
0 or b>0) or (a 0 or a<0) & (b
0 or a<0) & (b 0 or b<0)
0 or b<0) b
b 0;
0; b>0;
b>0; 0 or a>0) & (b
0 or a>0) & (b 0 or b<0) or (a
0 or b<0) or (a 0 or a<0) & (b
0 or a<0) & (b 0 or b>0)
0 or b>0) b
b 0;
0; 0 & b<0 or a
0 & b<0 or a 0 & b>0 implies a/b
0 & b>0 implies a/b 0;
0; 0 & b<0 or a
0 & b<0 or a 0 & b>0 implies a/b
0 & b>0 implies a/b 0;
0; b
b 0 implies a
0 implies a 0 & b
0 & b 0 or a
0 or a 0 & b
0 & b 0;
0; b<0 implies a>0 & b<0 or a<0 & b>0;
b<0 implies a>0 & b<0 or a<0 & b>0; 0 implies b>0 & a
0 implies b>0 & a 0 or b<0 & a
0 or b<0 & a 0;
0; 0 implies b>0 & a
0 implies b>0 & a 0 or b<0 & a
0 or b<0 & a 0;
0; 1) or a<-1 & (b<-1 or b
1) or a<-1 & (b<-1 or b -1)
-1) b>1 & b
b>1 & b a>1;
a>1; 1 & b
1 & b 1 or a
1 or a -1 & b
-1 & b -1 implies a
-1 implies a b
b 1;
1; b) & (b<1 or b
b) & (b<1 or b 1)
1) a) & a>-1 & (0>b or 0
a) & a>-1 & (0>b or 0 b) & (b>-1 or b
b) & (b>-1 or b -1)
-1) b<1;
b<1; a & a
a & a 1 & 0
1 & 0 b & b
b & b 1 or 0
1 or 0 a & a
a & a -1 & 0
-1 & 0 b & b
b & b -1
-1 b
b 1;
1; b or e>0 & a
b or e>0 & a b implies a/e
b implies a/e b/e;
b/e; a & a<0) implies a/b
a & a<0) implies a/b 1 & b/a
1 & b/a 1;
1; b>a;
b>a; b
146 (a>0 or a
b
146 (a>0 or a 0) & (b>1 or b
0) & (b>1 or b 1) or (a<0 or a
1) or (a<0 or a 0) & (b<1 or b
0) & (b<1 or b 1)
1) b
b a;
a; 0) & (b<1 or b
0) & (b<1 or b 1) or (a<0 or a
1) or (a<0 or a 0) & (b>1 or b
0) & (b>1 or b 1)
1) b
b a;
a; 0 iff -a
0 iff -a 0) & (a
0) & (a 0 iff -a
0 iff -a 0);
0); 1/b;
1/b; 1/b implies a
1/b implies a b;
b; -1 implies 0>1/a & 1/a
-1 implies 0>1/a & 1/a -1;
-1; a & a<0 implies 1/a
a & a<0 implies 1/a  -1;
 -1; 1;
1; a implies 0<1/a & 1/a
a implies 0<1/a & 1/a 1;
1; e-a implies a
e-a implies a e-b) & (b
e-b) & (b e-a implies a
e-a implies a e-b);
e-b); e+d implies a-e
e+d implies a-e d-b;
d-b; e-d implies a+d
e-d implies a+d e+b & a-e
e+b & a-e b-d & e-a
b-d & e-a d-b & b-a
d-b & b-a d-e;
d-e; e-d implies a+d
e-d implies a+d e-b) & (a+b
e-b) & (a+b e-d implies a+d
e-d implies a+d e-b);
e-b); 0 implies a+b
0 implies a+b b & b-a
b & b-a b) & (a+b
b) & (a+b b or b-a
b or b-a b implies a
b implies a 0);
0); b
b e implies a
e implies a e/b)
e/b) b
b e implies a
e implies a e/b)
e/b) b
b e implies a
e implies a e/b)
e/b) b
b e implies a
e implies a e/b);
e/b); b
b b
b b>e implies a>e/b)
b>e implies a>e/b) b>e implies a
b>e implies a e)
e) e) implies b
e) implies b e;
e; e)
e) e) implies b
e) implies b e;
e; a
a e)
e) e;
e; e)
e) e) implies b
e) implies b e;
e; d
d d
d d
d e
e b implies a/b
b implies a/b e/d;
e/d; d
d e
e b implies a/b
b implies a/b e/d;
e/d; b
b d>e/b);
d>e/b); b< e/d implies a
b< e/d implies a d >e/b) & (a
 d >e/b) & (a  b > e/d implies a
b > e/d implies a d < e/b);
d < e/b); b) & (0
b) & (0 d implies a
d implies a e
e b
b d;
d; a) & (a>b or a
a) & (a>b or a b) & (0>e or 0
b) & (0>e or 0 e) & e
e) & e d implies a
d implies a e
e b
b d;
d; b or a>b) & 0>e & e>d
b or a>b) & 0>e & e>d ed;
ed; 0) & (a>0 or b<0) & a
0) & (a>0 or b<0) & a b implies e/a
b implies e/a e/b;
e/b; 0) & (a>0 or b<0) & a
0) & (a>0 or b<0) & a b implies e/a
b implies e/a e/b;
e/b;
reserve x,y for Any;
204 for X,Y being Subset of REAL st X< >& Y< >
& for a,b st a
CX & bCY holds ab holds ex d st (for a st a
CX holds ad) & for b st b
CY holds db;