Input:
lemma inorder_update: "t \<in> T h \<Longrightarrow>
  sorted1(inorder t) \<Longrightarrow> inorder(update x y t) = upd_list x y (inorder t)"

Output: by(simp add: update_def inorder_upd inorder_tree)