supleed2/ELEC70056-HSV-CW1
1
0
Fork 0
mirror of https://github.com/supleed2/ELEC70056-HSV-CW1.git synced 2024-12-22 21:55:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Isabelle Task 1 complete

Browse source
This commit is contained in:
Aadi Desai 2022-12-08 14:34:49 +00:00
parent ba694b4e41
commit d226d0a21b
No known key found for this signature in database
GPG key ID: CFFFE425830EF4D9
1 changed files with 18 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
isabelle/2022/HSV_tasks_2022.thy
View file

@ -1,20 +1,28 @@
theory HSV_tasks_2022 imports Complex_Main begin theory HSV_tasks_2022 imports Complex_Main begin
section {* Task 1: Full adders *} section "Task 1: Full adders"
fun halfadder :: "bool * bool \<Rightarrow> bool * bool"
where "halfadder (a,b) = (
let cout = (a \<and> b) in
let s = (a \<or> b) \<and> \<not>(a \<and> b) in
(cout, s))"
fun fulladder :: "bool * bool * bool \<Rightarrow> bool * bool" fun fulladder :: "bool * bool * bool \<Rightarrow> bool * bool"
where where "fulladder (a,b,cin) = (
"fulladder (a,b,cin) = (
let (tmp1, tmp2) = halfadder(a,b) in let (tmp1, tmp2) = halfadder(a,b) in
let (tmp3, s) = halfadder(cin,tmp2) in let (tmp3, s) = halfadder(cin,tmp2) in
let cout = tmp1 | tmp3 in let cout = tmp1 | tmp3 in
(cout, s))" (cout, s))"
fun b2i :: "bool \<Rightarrow> int"
where "b2i (b) = (if (b) then 1 else 0)"
section {* Task 2: Fifth powers *} theorem "\<forall>a b.(co,s) = halfadder(a,b) \<Longrightarrow> (2*b2i(co)+b2i(s)) = (b2i(a)+b2i(b))"
by auto
theorem "(n::nat) ^ 5 mod 10 = n mod 10" theorem "\<forall>a b ci.(co,s) = fulladder(a,b,ci) \<Longrightarrow> (2*b2i(co)+b2i(s)) = (b2i(a)+b2i(b)+b2i(ci))"
oops by auto
section {* Task 3: Logic optimisation *} section {* Task 3: Logic optimisation *}