| x = 2 ' + 2 ', to6 = fail, x2 = x ∧ d0 = 3, h0 = head(x2), to2 = fail ∧ x0 = x2 ⊦ 〈if to2 = fail then to := fail else { to6 := fail ; build_rec#(2; x0, to6) ; if to6 = fail then to := fail else to := some(Node(to2 .t, to6 .t)) }〉 〈to5 := to ; if to5 = fail then to0 := fail else to0 := some(Node(Leaf, to5 .t))〉 〈to1 := to0 ; if x0 ≠ [] then to1 := fail〉 to1 = fail |
x = 2 ' + 2 ', to6 = fail, x2 = x ∧ d0 = 3, h0 = head(x2), to2 = fail ∧ x0 = x2 ⊦ 〈to := fail〉 〈to5 := to ; if to5 = fail then to0 := fail else to0 := some(Node(Leaf, to5 .t))〉 〈to1 := to0 ; if x0 ≠ [] then to1 := fail〉 to1 = fail
[[CONCRETESIMPRULES : ()]]