Require Fin Ascii.
Hint Rewrite byte_unwrap : cheerios.
Definition bool_serialize (b : bool) : IOStreamWriter.t :=
if b then serialize x01 else serialize x00.
Definition bool_deserialize :=
b <- deserialize ;;
match b with
| x00 => ByteListReader.ret false
| x01 => ByteListReader.ret true
| _ => ByteListReader.error
end.

Lemma bool_serialize_deserialize_id :
serialize_deserialize_id_spec bool_serialize bool_deserialize.