Apakah mungkin menggunakan nama pred_Zero
dan pred_Suc
sebagai pengganti 1
dan 2
dalam pembuktian dengan induksi berikut?
fun pred where
pred_Zero:
"pred 0 = 0"
| pred_Suc:
"pred (Suc n) = n"
lemma pred_le:
"pred n ≤ n"
proof (induct rule: pred.induct)
case 1
thus ?case by simp
next
case (2 n)
thus ?case by simp
qed