variable {A : Type}
definition id (a : A) := a
check @id
inductive list :=
| nil : list
| cons : A → list → list
check @list.cons