Some more stuff on inductive types.