How to encode inductive data types in Kind’s type system.