variable {A : Type}

definition id (a : A) := a

check @id

inductive list :=
| nil : list
| cons : A → list → list

check @list.cons