diff -r f1c29e366c09 -r 4aeb25ba90f3 src/HOL/Data_Structures/Leftist_Heap.thy --- a/src/HOL/Data_Structures/Leftist_Heap.thy Sun Mar 24 14:15:10 2024 +0100 +++ b/src/HOL/Data_Structures/Leftist_Heap.thy Sun Mar 24 14:50:47 2024 +0100 @@ -160,16 +160,16 @@ subsection "Complexity" text \Auxiliary time functions (which are both 0):\ -define_time_fun mht -define_time_fun node +time_fun mht +time_fun node lemma T_mht_0[simp]: "T_mht t = 0" by(cases t)auto text \Define timing function\ -define_time_fun merge -define_time_fun insert -define_time_fun del_min +time_fun merge +time_fun insert +time_fun del_min lemma T_merge_min_height: "ltree l \ ltree r \ T_merge l r \ min_height l + min_height r + 1" proof(induction l r rule: merge.induct)