Hint 2 for the have exercise

Try

have h_one : 1 = (a + 1) - a,