Working on tseitin in SAT.lhs.