Origin for each line in src/example05.red from check-in 5ce5316a33:

5ce5316a33 2021-03-01 jeff@gridfini: (a+b)^2;
5ce5316a33 2021-03-01 jeff@gridfini: (a+b)^3;
5ce5316a33 2021-03-01 jeff@gridfini: (a+b)^4;
5ce5316a33 2021-03-01 jeff@gridfini: (a+b)^5;
5ce5316a33 2021-03-01 jeff@gridfini: (a+b)^6;
5ce5316a33 2021-03-01 jeff@gridfini: c:=(a+b)^6;
5ce5316a33 2021-03-01 jeff@gridfini: d:=(a+b)^3;
5ce5316a33 2021-03-01 jeff@gridfini: c/d;
5ce5316a33 2021-03-01 jeff@gridfini: a:=sin (x);
5ce5316a33 2021-03-01 jeff@gridfini: b:=cos (x);
5ce5316a33 2021-03-01 jeff@gridfini: c:=a^2+b^2;
5ce5316a33 2021-03-01 jeff@gridfini: d:=a/b;
5ce5316a33 2021-03-01 jeff@gridfini: f:=tan (x)-d;
5ce5316a33 2021-03-01 jeff@gridfini: % Trigo Rules;
5ce5316a33 2021-03-01 jeff@gridfini: trig1:={sin(~x)^2=>(1-cos(x)^2)};
5ce5316a33 2021-03-01 jeff@gridfini: let trig1;
5ce5316a33 2021-03-01 jeff@gridfini: trig2:={tan (~x)=>(sin (x)/cos (x))};
5ce5316a33 2021-03-01 jeff@gridfini: let trig2;
5ce5316a33 2021-03-01 jeff@gridfini: % now with rules;
5ce5316a33 2021-03-01 jeff@gridfini: c;
5ce5316a33 2021-03-01 jeff@gridfini: d;
5ce5316a33 2021-03-01 jeff@gridfini: f;
5ce5316a33 2021-03-01 jeff@gridfini: end;