1
Goal
2
"evala env (substa s a) = evala (%x. evala env (s x)) a & \
3
\ evalb env (substb s b) = evalb (%x. evala env (s x)) b";
4
by(mutual_induct_tac ["a","b"] 1);