mirror of
https://github.com/supleed2/ELEC70056-HSV-CW1.git
synced 2024-09-19 20:46:16 +00:00
83 lines
2.4 KiB
Plaintext
83 lines
2.4 KiB
Plaintext
theory HSV_chapter4 imports Complex_Main begin
|
|
|
|
(* Triangle numbers *)
|
|
fun triangle :: "nat \<Rightarrow> nat" where
|
|
"triangle n = (if n = 0 then 0 else n + triangle (n-1))"
|
|
|
|
value "triangle 1"
|
|
value "triangle 2"
|
|
value "triangle 3"
|
|
|
|
theorem triangle_closed_form: "triangle n = (n+1) * n div 2"
|
|
apply (induct n)
|
|
apply simp+
|
|
done
|
|
|
|
(* Tetrahedral numbers *)
|
|
fun tet :: "nat \<Rightarrow> nat" where
|
|
"tet n = (if n = 0 then 0 else triangle n + tet (n-1))"
|
|
|
|
value "tet 1" (* 1 *)
|
|
value "tet 2" (* 4 *)
|
|
value "tet 3" (* 10 *)
|
|
value "tet 4" (* 20 *)
|
|
value "tet 5" (* 35 *)
|
|
value "tet 6" (* 56 *)
|
|
|
|
find_theorems "_ div ?x + _ div ?x"
|
|
thm div_add
|
|
|
|
(* Proving that closed form is equivalent to recursive definition *)
|
|
theorem "tet n = ((n + 2) * (n + 1) * n) div 6"
|
|
proof (induct n)
|
|
case 0
|
|
show ?case by simp
|
|
next
|
|
case (Suc k)
|
|
|
|
(* induction hypothesis *)
|
|
assume IH: "tet k = (k + 2) * (k + 1) * k div 6"
|
|
|
|
(* establish a useful fact and label it "*" *)
|
|
have "2 dvd (k + 2) * (k + 1)" by simp
|
|
hence *: "6 dvd (k + 2) * (k + 1) * 3" by presburger
|
|
|
|
(* establish another useful fact and label it "**" *)
|
|
have "2 dvd (k + 2) * (k + 1) * k" by simp
|
|
moreover have "3 dvd (k + 2) * (k + 1) * k"
|
|
proof -
|
|
{
|
|
assume "k mod 3 = 0"
|
|
hence "3 dvd k" by presburger
|
|
hence "3 dvd (k + 2) * (k + 1) * k" by fastforce
|
|
} moreover {
|
|
assume "k mod 3 = 1"
|
|
hence "3 dvd (k + 2)" by presburger
|
|
hence "3 dvd (k + 2) * (k + 1) * k" by fastforce
|
|
} moreover {
|
|
assume "k mod 3 = 2"
|
|
hence "3 dvd (k + 1)" by presburger
|
|
hence "3 dvd (k + 2) * (k + 1) * k" by fastforce
|
|
} ultimately
|
|
show "3 dvd (k + 2) * (k + 1) * k" by linarith
|
|
qed
|
|
ultimately have **: "6 dvd (k + 2) * (k + 1) * k" by presburger
|
|
|
|
(* the actual proof *)
|
|
have "tet (Suc k) = triangle (Suc k) + tet k"
|
|
by simp
|
|
also have "... = (k + 2) * (k + 1) div 2 + tet k"
|
|
using triangle_closed_form by simp
|
|
also have "... = (k + 2) * (k + 1) div 2 + (k + 2) * (k + 1) * k div 6"
|
|
using IH by simp
|
|
also have "... = ((k + 2) * (k + 1) * 3 + (k + 2) * (k + 1) * k) div 6"
|
|
using div_add[OF * **] by simp
|
|
also have "... = (k + 2) * (k + 1) * (k + 3) div 6"
|
|
by (simp add: distrib_left)
|
|
also have "... = (Suc k + 2) * (Suc k + 1) * Suc k div 6"
|
|
by (metis One_nat_def Suc_1 add.commute add_Suc_shift mult.assoc
|
|
mult.commute numeral_3_eq_3 plus_1_eq_Suc)
|
|
finally show ?case by assumption
|
|
qed
|
|
|
|
end |