inductive List (a: Type): Type where| Good: List a| Good2: List a -> List a| Bad: List b -> List a        ^^^^^^^ -- not allowed!