add procedure create_mathima