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