enum MyList a.
  Nil
  Pair a (MyList a)

let x : MyList Int
@expect_diagnostic 2010
let y : MyList Bool = x
let z : MyList String