barestate.coq initial.coq initialnew.coq