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