constant f : nat → nat
notation a `²` := f a
variable a : nat
check a²