| to3 = fail, x0 = 2 ', x1 = x0 ∧ d0 = 2, h0 = head(x1) ⊦ 〈if h0 < d0 then to := fail else if h0 = d0 then { x1 := pop(x1) ; to := some(Leaf) } else 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)) } }〉 〈to3 := to ; if to3 = fail then to := fail else to := some(Node(Node(Leaf, Leaf), to3 .t))〉 〈to5 := to ; if to5 = fail then to0 := fail else to0 := some(Node(Leaf, to5 .t))〉 〈to1 := to0 ; if x1 ≠ [] then to1 := fail〉 to1 = some(Node(Leaf, Node(Node(Leaf, Leaf), Leaf))) |
to3 = fail, x0 = 2 ', x1 = x0 ∧ d0 = 2, h0 = head(x1) ⊦ 〈if h0 = d0 then { x1 := pop(x1) ; to := some(Leaf) } else 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)) } }〉 〈to3 := to ; if to3 = fail then to := fail else to := some(Node(Node(Leaf, Leaf), to3 .t))〉 〈to5 := to ; if to5 = fail then to0 := fail else to0 := some(Node(Leaf, to5 .t))〉 〈to1 := to0 ; if x1 ≠ [] then to1 := fail〉 to1 = some(Node(Leaf, Node(Node(Leaf, Leaf), Leaf)))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ head(d ') = d])]]