toSchemePi : PiInfo (SchemeObj Write) -> SchemeObj Write
toSchemeWhy : WhyErased (SchemeObj Write) -> SchemeObj Write