М
Size: a a a
М
М
М
S
М
М
S
BT
theory SubТри утверждения я доказал, ещё 2 не могу, что для любого m >= n результат 0, и для любого m < n результат n - m
imports Main
begin
fun sub :: "nat ⇒ nat ⇒ nat"
where
"sub 0 m = 0" |
"sub n 0 = n" |
"sub (Suc n) (Suc m) = sub n m"
lemma[simp]: "sub 0 m ≡ 0"
by simp
lemma[simp]: "sub n 0 = n"
apply (induction n)
apply auto
done
lemma[simp]: "sub m m = 0"
apply (induction m)
apply auto
done
lemma[simp]: "sub n (Suc 0) = n - Suc 0"
apply (induction n)
apply auto
done
end
М
S
BT
S
S
BT
S
S
М
g
BT