--
open num

eval 3+(2:num)
eval 3+2*(5:num)
eval 5*(5:num)
eval (eq.rec (eq.refl (2:num)) (eq.refl (2:num)) : 2 = (2:num))