let ok = ref true
+let version = KP.sprintf "This file was generated by %s: do not edit" (G.version_string true)
+
let base = "coq"
let ext = ".v"
let path = KF.concat dir fname in
let och = open_out (path ^ ext) in
out_preamble och;
- out_top_comment och (KP.sprintf "This file was generated by %s: do not edit" G.version_string);
+ out_top_comment och version;
output_entity och, close_out och
END