put coqPassCoreToCore on the CoreM monad, greatly simplify Desugar.lhs