true-->is_a_theorem(implies(implies(implies(A,B),C),
implies(implies(C,A),implies(D,A)))).
is_a_theorem(implies(A,B)),is_a_theorem(A)-->is_a_theorem(B).
is_a_theorem(implies(implies(a,b),
implies(implies(b,c),implies(a,c))))
-->false.