let aime-1983-p2 = `!x p f. (&0 < p /\ p < &15) /\ (p <= x /\ x <= &15) /\ (f x = abs (x - p) + abs (x - &15) + abs (x - p - &15)) ==> &15 <= f x`;;