| bst(t), s = t.set, ((tr(r, t) * P))(H) ⊦ ⟪search_tree_insert(a; r, H)⟫ ⟨ordered_set_insert(a; s)⟩ ⟨t := t.insert(a)⟩ (s = t.set ∧ ((tr(r, t) * P))(H) ∧ bst(t)) |
bst(t), ((tr(r, t) * P))(H) ⊦ ⟪search_tree_insert(a; r, H)⟫ ⟨s := t.set; ordered_set_insert(a; s)⟩ ⟨t := t.insert(a)⟩ (s = t.set ∧ ((tr(r, t) * P))(H) ∧ bst(t))
[Concretesimprules(())]