ordered≤(x) ⊦ ins≤(a, x) = x.head ' + ins≤(a, x.tail), x = [], a < x.head
Used simplifier rules: ⊦ a + x = a ' + x; (s)