fun isin :: "('a::linorder*'b) tree ==> 'a ==> bool"where "isin Leaf x = False" | "isin (Node l (a,_) r) x = (case cmp x a of LT ==> isin l x | EQ ==> True | GT ==> isin r x)"
lemma isin_set_inorder: "sorted(inorder t) ==> isin t x = (x ∈ set(inorder t))" by (induction t rule: tree2_induct) (auto simp: isin_simps)
lemma isin_set_tree: "bst t ==> isin t x ⟷ x ∈ set_tree t" by(induction t rule: tree2_induct) auto
end
Messung V0.5 in Prozent
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet am 2026-04-30)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.