Make minor improvements to the generated files

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Translate.ml b/src/Translate.ml
index f86ef438..c6db9f19 100644
--- a/src/Translate.ml
+++ b/src/Translate.ml
@@ -357,8 +357,11 @@ let translate_module (filename : string) (dest_dir : string)
   (* Create a vertical box *)
   Format.pp_open_vbox fmt 0;
 
-  (* Add the module name *)
-  Format.pp_print_string fmt ("(** " ^ m.M.name ^ " *)");
+  (* Create the header *)
+  Format.pp_print_string fmt
+    "(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)";
+  Format.pp_print_break fmt 0 0;
+  Format.pp_print_string fmt ("(** [" ^ m.M.name ^ "] *)");
   Format.pp_print_break fmt 0 0;
   Format.pp_print_string fmt ("module " ^ module_name);
   Format.pp_print_break fmt 0 0;