/* THMS.

Identities of Algebra for use as tests for Davey's SCOPE program

Alan Bundy 15.7.81 */

thm1 :- use( u+v=w -> u=w-v ).

thm2 :- use( sin(2*u)/2 = sin(u)*cos(v) ).

thm3 :- use( u*(v+w) = u*v + u*w ).

thm4 :- use( u^2=v -> (u=sqrt(v) # u= -sqrt(v)) ).

thm5 :- use( sin(u)=v -> u=n*180 + ((-1)^n)*arcsin(v) ).

thm6 :- use( u^(v*w) = (u^v)^w ).


/* Run them all */
go :- thm1, thm2, thm3, thm4, thm5, thm6.
