| x = 3 ' + 2 ', to6 = fail, x2 = x ∧ d0 = 3, h0 = head(x2), to2 = some(Node(Leaf, some(Leaf) .t)) ∧ x0 = pop(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 = some(Node(Leaf, Node(Node(Leaf, Leaf), Leaf))) |
x = 3 ' + 2 ', to6 = fail, x2 = x ∧ d0 = 3, h0 = head(x2), to2 = some(Node(Leaf, some(Leaf) .t)) ∧ x0 = pop(x2) ⊦ 〈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 = some(Node(Leaf, Node(Node(Leaf, Leaf), Leaf)))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ some(t) .t = t], [CSIMPSEQ : ⊦ fail ≠ some(t)])]]