1
"evalb env (Less a1 a2) = (evala env a1 < evala env a2)"
2
"evalb env (And b1 b2) = (evalb env b1 & evalb env b2)"
3
"evalb env (Neg b) = (~ evalb env b)"