+
+val screenshot:
+ GrafiteTypes.status -> NCic.metasenv -> NCic.metasenv ->
+ NCic.substitution -> string -> unit
+
+(* CSC: these functions should completely disappear; bad design;
+ the object type is MatitaScript.script *)
+val register_matita_script_current: (unit -> < advance: ?statement:string -> unit -> unit; status: GrafiteTypes.status >) -> unit
+val get_matita_script_current: unit -> < advance: ?statement:string -> unit -> unit; status: GrafiteTypes.status >