let mathd-algebra-101 = `!x:real. (x pow 2 - &5 * x - &4 <= &10) ==> x >= -- &2 /\ x <= &7`;;