1
"substb s (Less a1 a2) = Less (substa s a1) (substa s a2)"
2
"substb s (And b1 b2) = And (substb s b1) (substb s b2)"
3
"substb s (Neg b) = Neg (substb s b)"