Initial coq code.