Commit a97bd87b authored by Jakob Botsch Nielsen's avatar Jakob Botsch Nielsen

Add buggy version of congress and use implementation to prove it buggy

parent b7e83ca5
Pipeline #12539 failed with stage
in 7 minutes and 58 seconds
......@@ -5,6 +5,7 @@ src/BoundedN.v
src/ChainedList.v
src/Circulation.v
src/Congress.v
src/Congress_Buggy.v
src/Containers.v
src/Extras.v
src/Finite.v
......
This diff is collapsed.
......@@ -33,6 +33,15 @@ Definition with_default {A : Type} (a : A) (o : option A) : A :=
| None => a
end.
Definition unpack_option {A : Type} (a : option A) :=
match a return match a with
| Some _ => A
| None => unit
end with
| Some x => x
| None => tt
end.
Fixpoint sumZ {A : Type} (f : A -> Z) (xs : list A) : Z :=
match xs with
| [] => 0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment