set_target id (C.Object annobj) ;
set_target idbody (C.ConstantBody annobj) ;
List.iter (function (cid,_,context, t) as annconj ->
set_target id (C.Object annobj) ;
set_target idbody (C.ConstantBody annobj) ;
List.iter (function (cid,_,context, t) as annconj ->