1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE TypeFamilies #-} module Imp where import Exp (C, T, S) instance C Int where data T Int = TInt data instance S Int Bool = SIntBool