Control.Monad.Trans.Open.Example
data Ty
data Tm
data J a
type Theory j
unitThy
prodThy
combinedThy
judge
traceThy
data Pack φ
tracedJudge