Module LocalClosure.
Definition bar@{i} := Type@{i}.
Definition foo@{i j} (x y z : nat) :=
@id (nat -> Type@{j}) (fun _ => Type@{i}).
Eval vm_compute in foo.
End LocalClosure.
Polymorphic Inductive unit := tt.
Polymorphic Definition foo :=
let x := id tt in (x, x, Type).

Lemma bad : False.