module Bad1 data Bad = BadDCon (x : Nat)