signature { automatic } theory
{
!((down (N1 dia (N1 ^ p1) )) --> p1)
}