method image (glob:global) =
match glob with
| GVar (v,_,_) -> v.vname ^ " (GVar) "
| GVarDecl (_,v,_) -> v.vname ^ " (GVarDecl) "
| GFun (fdec, _) -> fdec.svar.vname ^ " (GFun) "
| GType (ty, _) -> ty.tname
| GCompTag (ci, _) | GCompTagDecl (ci, _) -> ci.cname
| GEnumTagDecl (ei,_) | GEnumTag (ei,_) -> ei.ename
| GAsm (_,_) | GPragma _ | GText _ -> ""
| GAnnot (an,_) ->
match an with
Dfun_or_pred (li,_) -> li.l_var_info.lv_name
| Daxiomatic (s,_,_) -> s
| Dtype (lti,_) -> lti.lt_name
| Dlemma (ln, _, _, _, _, _) -> ln
| Dinvariant (toto,_) -> toto.l_var_info.lv_name
| Dtype_annot (ta,_) -> ta.l_var_info.lv_name