let
prove dp log w =
let
smt = of_name dp
in
translate log smt w >>= whydp log smt